Суббота, 27.04.2024, 00:24
Все о программировании в MS Office
Приветствую Вас Гость | RSS
Главная Справочник VBA Регистрация Вход

ВНИМАНИЕ!!!

сайт переехал на новый домен

 

VBA-HELP.RU

Меню сайта

Категории
Математические функции [9]
Дата и время [21]
Обработка массивов [4]
Тригонометрия [5]
Обработка цвета [2]
Другие [1]
Работа с файлами [1]
Принятие решения [4]

Друзья сайта
  • Инструкции для uCoz

  • Реклама

    Главная » Справочник VBA » Функции и операторы » Принятие решения

    Choose

    Функция Choose

    Проверяет заданное значение и возвращает результат из списка параметров.
     
    Синтаксис:

    Choose(index, choice-1[, choice-2, ... [, choice-n]])

    index - Числовое выражение, которое определяет, какое значение из списка вернет функция. Если  index равен 1, то функция вернет choice-1 , если index равен 2, то функция вернет choice-2  и и так далее.
    choice - Выражение, содержащее один из возможных вариантов.
     
    Комментарии:
    Choose оценивает каждый вариант в списке, даже при том, что он возвращает только один.
    Функция Choose возвращает Null, если index - меньше чем 1 или больше чем число по перечисленным вариантам.
    Если index не целое число, он округляется к самому близкому целому числу прежде, чем быть оцененным.

    Пример:

    Этот пример использует функцию Choose, чтобы отобразить имя в ответ на index, который приходит в процедуру в Ind параметр.
     
    Function GetChoice(Ind As Integer)
    GetChoice = Choose(Ind, "Сергей", "Андрей", "Алексей")
    End Function
    Категория: Принятие решения | Добавил: Админ (27.08.2009)
    Просмотров: 3684
    Всего комментариев: 0
    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]
    Форма входа

    Новое в Спр.VBА
    Внимание: Если вы не нашли необходимую Вам информацию
    Вы можете оставить запрос на дополнение Справочника VBA в ФОРУМЕ
    Обновления в Справочнике VBA
    [27.08.2009] - Choose
    [27.08.2009] - Switch
    [27.08.2009] - IIF
    [27.08.2009] - If...Then...Else
    [24.08.2009] - MultiPage

    Поиск

    Наш опрос
    Оцените мой сайт
    Всего ответов: 25

    Copyright MyCorp © 2024 Яндекс цитирования Rambler's Top100   Каталог сайтов Рейтинг@Mail.ru Проверка ТИЦ