Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Выборка по текстовому значению  (Прочитано 6130 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Olegspb
Гость
« : 11-05-2006 09:20 » 

Необходимо найти в столбце ячейки содержащие текст "товар получен" и поставить в соседнюю ячейку "кредит". Пишу:

For Each cell In Range("M2:M100")
   If cell.Value = "*товар получен*" Then
   cell.Offset(0, 1).Value = "кредит"
   End If
Next

Результат нулевой. Подозреваю, что звездочки здесь не проходят.
Но как написать по-другому не знаю. Поможите чем сможите.
Записан
PooH
Глобальный модератор

ru
Offline Offline
Пол: Мужской
... и можно без хлеба!


« Ответ #1 : 11-05-2006 09:41 » 

используй функцию InStr
Записан

Удачного всем кодинга! -=x[PooH]x=-
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #2 : 12-05-2006 05:26 » 

нужно использовать не оператор "=", а оператор "LIKE"

Код:
For Each cell In Range("M2:M100")
   If cell.Value LIKE "*товар получен*" Then
       cell.Offset(0, 1).Value = "кредит"
   End If
Next
Записан

I Have Nine Lives You Have One Only
THINK!
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines