Здравствуйте уважаемые знатоки VBA, в приложенном файле в первом столбце в ячейках располагаются значения, такие как "спелые яблоки", "зеленые яблоки", "красные яблоки", так же файл содержит макрос: [vba]
Код
Sub поиск() Poisk = "яблоки" i = Application.WorksheetFunction.CountIf(Sheets("Лист1").Columns(1), Poisk) Sheets("Лист2").Cells(1, 1) = i End Sub
[/vba] Необходимо что бы значение i соответствовало количеству тех значений в столбце, которые содержат слово "яблоки", т.е "красные яблоки"+ "зеленые яблоки" и т.д.
Здравствуйте уважаемые знатоки VBA, в приложенном файле в первом столбце в ячейках располагаются значения, такие как "спелые яблоки", "зеленые яблоки", "красные яблоки", так же файл содержит макрос: [vba]
Код
Sub поиск() Poisk = "яблоки" i = Application.WorksheetFunction.CountIf(Sheets("Лист1").Columns(1), Poisk) Sheets("Лист2").Cells(1, 1) = i End Sub
[/vba] Необходимо что бы значение i соответствовало количеству тех значений в столбце, которые содержат слово "яблоки", т.е "красные яблоки"+ "зеленые яблоки" и т.д.Sashagor1982
Sub поиск() Poisk = "яблоки" i = Application.WorksheetFunction.CountIf(Sheets("Лист1").Columns(1), "*" & Poisk & "*") Sheets("Лист2").Cells(1, 1) = i End Sub
[/vba]
Может, так [vba]
Код
Sub поиск() Poisk = "яблоки" i = Application.WorksheetFunction.CountIf(Sheets("Лист1").Columns(1), "*" & Poisk & "*") Sheets("Лист2").Cells(1, 1) = i End Sub