Escolher função

Devolve um valor selecionado de uma lista de valores.

  Choose (Index As Integer, Expression1[, Expression2, ... [, Expression_n]]) As Variant

Variante. Um valor inferido a partir do parâmetro Index.

Índice: Qualquer expressão numérica arredondada para um número inteiro. Índice aceita valores inteiros a partir de 1 que especificam qual das opções possíveis deve ser devolvida.

Expressão1, Expressão2, …, Expressão_n: Expressões que representam cada uma das opções possíveis.

A função Choose devolve um valor da lista de expressões com base no valor do índice. Se Índice = 1, a função devolve a primeira expressão da lista; se Índice = 2, devolve a segunda expressão e assim sucessivamente.

Se o valor do índice for inferior a 1 ou superior ao número de expressões listadas, a função devolve um valor Null.

O erro n.º 5 ocorre quando são omitidos parâmetros. O erro n.º 13 ocorre se Index for igual a Null.

O exemplo seguinte utiliza a função ou Choose para selecionar uma cadeia de caracteres entre várias que formam um menu:

Sub ExampleChoose
    Print ChooseMenu(2) ' "Formato de gravação"
    MsgBox Choose(index :=  -5, 9, "Basic", PI) ' Null
    MsgBox Choose(index := 3.14, 9, "Basic", PI) ' PI
End Sub
 
Function ChooseMenu(Index As Integer)
    ChooseMenu = Choose(Index, "Formato rápido", "Formato de gravação", "Formato de sistema")
End Function