Функция OR но для шести значений

[Флина]

Доброй ночи!
У меня выпадающий список из шести значений в ячейке. И я хочу, чтобы кроме значений из этого списка никакое другое значение нельзя было вставить, написать и появлялось предостерегающее сообщение. Я знаю, например, как это сделать для одного значения с помощью макроса через фукцию if. Но как это сделать с помощью макроса для шести значений? С помощью какого оператора перечислить все 6 значений?

[motorway]

Select Case
http://msdn.microsoft.com/ru-ru/library/cy37t14y.aspx
Так?

[Флина]

Спасибо. Но нет.
Наверно так, что если а не содержит ряд значений, то какое-то действие. Вот как описать вот это содержит

[Флина]

Коряво описала.
Есть список. И в нем значения:
яблоки
груши
сливы
персики
помидоры
огурцы
Как описать, что если ячейка не содержит какое-то из этих значений, то какое-то действие. Вот эта операция содержит как описывается?

[motorway]

Например, так можно:

Function F1(Target As Range)
F1 = False
If Target.Value = "яблоки" Then F1 = True
If Target.Value = "груши" Then F1 = True
If Target.Value = "сливы" Then F1 = True
If Target.Value = "персики" Then F1 = True
If Target.Value = "помидоры" Then F1 = True
If Target.Value = "огурцы" Then F1 = True

End Function

Использование функции:

If F1(Cells(1, 1)) Then MsgBox "Да" Else MsgBox "Нет"

[Флина]

Большое спасибо))))

[EugeneS]

Сообщение от Флина

Коряво описала.
Есть список. И в нем значения:
яблоки
груши
сливы
персики
помидоры
огурцы
Как описать, что если ячейка не содержит какое-то из этих значений, то какое-то действие. Вот эта операция содержит как описывается?

чем не устраивает предложенный motorway Select case? Измените значение ячейки "С3"

[motorway]

Можно покороче:

Function F1(Target As Range)
F1 = False
v = Target.Value
If v = "яблоки" Or v = "груши" Or v = "сливы" Or v = "персики" Or v = "помидоры" Or v = "огурцы" Then F1 = True
End Function

[IgorGO]

для данной задачи и такая функция подойдет:

Function YesNo(r As Range) As Boolean
  YesNo = InStr("яблокигрушисливыперсикипомидорыогурцы", r) > 0
End Function

или для строгости (чтобы случайно "помидор" не проскочил так:

Function YesNo(r As Range) As Boolean
  YesNo = InStr(".яблоки.груши.сливы.персики.помидоры.огурцы.", "." & r & ".") > 0
End Function

[Флина]

Спасибо всем за ответы)))
А как сделать, чтобы это было не для одной ячейки? А в каждой ячейки какого столбца. Чтобы ограничить ввод данных во все ячейки столбца.