Макрос кнопки для Excel / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос кнопки для Excel

3 сообщений из 3, страница 1 из 1

Макрос кнопки для Excel

#39433405

l3g10n3r

Гость

Здравствуйте! Не могу написать макрос для кнопки в Excel. Что бы при нажатии на кнопку происходил поиск номера введённого товара и присваивалось в нужной ячейке значение "Отсутствует"
Вот код. Уже более двух дней копаюсь и не могу нормализовать его, что бы получить, то что нужно. Знаю что это вполне реально написать, но не могу понять как

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Private Sub CommandButton1_Click()
    Dim num As Integer
    num = InputBox("Введите номер товара")
    Sheets("Название товара").Activate
    ActiveSheet.Columns("A:A").Select
    Selection.Find(What:=num, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
        :=True, SearchFormat:=False).Activate
    ActiveCell.FormulaR1C1 = "Отсутствует"
    Range("C3").Select
End Sub

Будьте добры, помогите пожалуйста. Очень нужно. Если с этим поможете, то я дальше сам смогу писать подобные макросы. Мне для магазина нужно. Вот на этом застопорился и дальше не могу ничего сделать!
Прикладываю скриншот таблицы товаров. Нужно что бы это значение "Отсутствует" вставлялось соответственно номеру товара. Например если товар под номером 5, то и "Отсутствует" должно вставиться в ячейку C6
Буду очень благодарен если поможете. Спасибо!

...

Рейтинг:

0 / 0

05.04.2017, 12:00

| Ответить | Цитировать | Написать

Макрос кнопки для Excel

#39433436

Твердолобый

Гость

l3g10n3r,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Private Sub CommandButton1_Click()
Dim r As Range
Dim s As Range
Dim num
    num = InputBox("Введите номер товара")
    Set r = Sheets("Название товара").Range("A:A")
    Set s = r.Find(num)
    If TypeName(s) = "Range" Then
        s.Offset(0, 2).Value = "Отсутствует"
    End If
End Sub

...

Рейтинг:

0 / 0

05.04.2017, 12:46

| Ответить | Цитировать | Написать

Макрос кнопки для Excel

#39433483

l3g10n3r

Гость

Твердолобый,
огромное спасибо!!! Всё прекрасно работает! Всё как мне и было нужно!! Я Вам очень благодарен! Вы даже не представляете! Ещё раз спасибо!!!

...

Рейтинг:

0 / 0

05.04.2017, 14:02

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос кнопки для Excel

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&fpage=27&tid=2172736]:	0ms
get settings:	9ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	37ms
get topic data:	13ms
get forum data:	3ms
get page messages:	39ms
get tp. blocked users:	1ms
others:	15ms

total:	137ms