Поиск в ячейках по части слова

@voidex · Регистрация: 05.07.2013

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток
есть макрос(точнее его часть которую я бы хотел изменить

Visual Basic

 
pomenat = InputBox("введите слово")
 
For Z = Z To LastRow1
    If UCase(Cells(Z, c).Text) = UCase(pomenat) And.....

Как сделать так, чтобы можно было ввести(в inputbox) не полное содержание ячейки, которое надо обработать (например: желтый дом), а одно слово "желтый" или "дом" или если возможно(так для общего развития

) вообще "жел"(если такое возможно)

@~~Апострофф~~ · 25.12.2013, 10:30

Метод Range.Find с параметром LookAt:=xlPart
или (тоже из справки)

Visual Basic

For Each c In [A1:C5]
'    If c.Font.Name Like "Cour*" Then
'        c.Font.Name = "Times New Roman"
    If c Like "*" & pomenat & "*" Then
        c.Font.Name = "Times New Roman"
    End If
Next

или InStr заюзать - самое доступное средство...

@voidex · 25.12.2013, 10:53 **[ТС]**

спасибо! instr то что нужно

@voidex 168 / 6 / 3 Регистрация: 05.07.2013 Сообщений: 62
	25.12.2013, 10:53 [ТС]	3
	спасибо! instr то что нужно 0