Поиск значение по приблизительному совпадению

Вход

Регистрация

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

= Мир MS Excel/Поиск значение по приблизительному совпадению - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск значение по приблизительному совпадению (Макросы/Sub)

Поиск значение по приблизительному совпадению

Sashagor1982

Дата: Вторник, 19.08.2014, 22:50 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 287

Репутация: -6 ±

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

Excel 2007

Здравствуйте уважаемые знатоки VBA, в приложенном файле в первом столбце в ячейках располагаются значения, такие как "спелые яблоки", "зеленые яблоки", "красные яблоки", так же файл содержит макрос:
[vba]

Код

Sub поиск()
Poisk = "яблоки"
i = Application.WorksheetFunction.CountIf(Sheets("Лист1").Columns(1), Poisk)
Sheets("Лист2").Cells(1, 1) = i
End Sub

[/vba]
Необходимо что бы значение i соответствовало количеству тех значений в столбце, которые содержат слово "яблоки", т.е "красные яблоки"+ "зеленые яблоки" и т.д.

К сообщению приложен файл: 1559230.xls (30.5 Kb)

Ответить

Pelena

Дата: Вторник, 19.08.2014, 23:08 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19197

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

Замечаний: ±

Excel 365 & Mac Excel

Может, так
[vba]

Код

Sub поиск()
Poisk = "яблоки"
i = Application.WorksheetFunction.CountIf(Sheets("Лист1").Columns(1), "*" & Poisk & "*")
Sheets("Лист2").Cells(1, 1) = i
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Sashagor1982

Дата: Вторник, 19.08.2014, 23:12 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 287

Репутация: -6 ±

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

Excel 2007

Спасибо большое hands

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск значение по приблизительному совпадению (Макросы/Sub)

Страница 1 из 1
1