Функция Choose

Выбирает и возвращает значение из списка аргументов.

Синтаксис

Choose( индекс , вариант-1[, вариант-2] ... [, вариант-n] )

Функция Choose имеет следующие аргументы:

Аргумент

Описание

индекс

Обязательный аргумент. Числовое выражение или поле со значением в диапазоне от 1 до числа доступных вариантов выбора.

вариант

Обязательный аргумент. Выражение типа Variant, содержащее один из возможных вариантов выбора.


Замечания

Функция Choose возвращает значение, выбранное из списка вариантов по значению аргумента индекс. Если аргумент индекс равен 1, Choose возвращает первый вариант в списке; если аргумент индекс равен 2, функция возвращает второй вариант и так далее.

Функцию Choose можно использовать для поиска значения в списке возможных вариантов. Например, если индекс равен 3, а вариант-1 = "один", вариант-2 = "два" и вариант-3 = "три", функция Choose возвращает значение "три". Эта функция особенно полезна, когда аргумент индекс указывает значение в группе переключателей.

Choose обрабатывает каждый вариант в списке, хотя возвращает всего один вариант. Поэтому следует учесть возможность нежелательных последствий. Например, при использовании функции MsgBox как части выражения во всех вариантах окно сообщения будет отображаться при обработке каждого варианта, хотя функция Choose возвращает значение только одного из них.

Функция Choose возвращает значение NULL, если индекс меньше 1 или больше числа вариантов.

Если индекс не является целым числом, он округляется до ближайшего целого числа.

Пример

Примечание : В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.

В данном примере функция Choose используется для отображения имени в ответ на индекс, переданный процедуре в параметре Ind.

Function GetChoice(Ind As Integer)
GetChoice = Choose(Ind, "Speedy", "United", "Federal")
End Function
Совершенствование навыков
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×