ячейка в рамках определенных значений

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Asya
Сообщения: 110
Зарегистрирован: 06 фев 2007, 14:33
Откуда: Киев
Контактная информация:

Подскажите, пожалуйста, если я хочу выполнять определенные действия над ячейками, значение которых находится в рамках определенного списка.
Грубо говоря, нужен аналог IN в SQL
типа такого: if sheets(t).cells(1,1) IN (1,2,8,15,48,95)
Select case - не подходит в моем случае (по определенным причинам)
Дмит
Сообщения: 145
Зарегистрирован: 27 ноя 2004, 22:23
Контактная информация:

Если это в Exel, то можно воспользоваться функцией ПОИСКПОЗ

Код: Выделить всё

On Error Resume Next
If WorksheetFunction.Match(Sheets(1).Cells(1, 1).Value, Array(1, 2, 8, 15, 48, 95)) = 0 Then
    MsgBox "не найдено"
Else
    MsgBox "есть"
End If
End Sub
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

Не верю, что "if sheets(t).cells(1,1) IN (1,2,8,15,48,95)" нельзя заменить на select case :)
Ответить