поиск слова - Мир MS Excel

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/поиск слова - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » поиск слова (Макросы Sub)

поиск слова

feniksa

Дата: Суббота, 07.12.2013, 14:26 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 20% ±

2010

Добрый день!
Очень прошу еще раз помощи для написания еще одного макроса для поиска слова, например "оплата". Я написала макрос при помощи макрорекордера и формулы ВПР. Всё вроде правильно, но вместо #Н/Д (когда значение не найдено) мне необходимо чтобы 0 вставал.
[vba]

Код

Sub Макрос4()
'
' Макрос4 Макрос
' поиск "оплата2"&chr(10)&"'"&chr(10)&""&chr(10)&"'
ActiveCell.FormulaR1C1 = "=VLOOKUP(""*оплата*"",RC[-3]:RC[-2],2,0)"
Selection.AutoFill Destination:=Range("D4:D32"), Type:=xlFillDefault
Range("D4:D32").Select
ActiveWindow.SmallScroll Down:=-12
End Sub

[/vba]