vba - 変数 A の値を使用して変数 B を取得する

Question

私の変数:answer_a, answer_b, answer_c, question_letter

変数question_letterはユーザーが設定します。a、b、またはを入力するかどうかに応じて、それぞれ、、またはcを取得します。answer_aanswer_banswer_c

後で3つ以上のanswer_変数が大幅に増えるため、次のようなことをしたいのですanswer_ & question_letterが、これはコンパイルされません。

これどうやってするの？ありがとうございました！

Answer 1

簡単な解決策は配列です：

Dim answer() as String    ' An empty array
ReDim answer(1 to 3)      ' Set the array to 3 "cells"
Dim ansReturn as String
...
Select Case question_letter
    case "a"
        ansReturn = answer(1)
    case "b"
        ansReturn = answer(2)
    case "c"
        ansReturn = answer(3)
    case else
        ansReturn = ""
End Select

配列は、任意の (正の整数) サイズに設定できます。

Answer 2

これを行うにはいくつかの方法があります。case ステートメントを使用することもできます。

Select Case question_letter
    Case a
        code
    Case b 
        more code
    Case else
        code if nothing matches
End Select