0

1 つの case ステートメントで複数の命令を使用できますか? 7 つ以上の条件があるため、if..then を使用したくありません。私がやりたいのは、コンボボックスの値が「これ」の場合、新しい行を正しい行に挿入し、コンボボックスの値を新しく作成された行に追加することです。例は次のとおりです。

Case ComboBox1.Value = "Venofix"
  instruction 1 ~> count the number of row of "venofix"
  instruction 2 ~> insert new row at the last row
  instruction 3 ~> insert data from combobox

Case ComboBox1.Value = "Penofix"
  instruction 1 ~> count the number of row of "penofix"
  instruction 2 ~> insert new row at the last row
  instruction 3 ~> insert data from combobox
4

2 に答える 2

0

これはあなたがしようとしていることですか？

コメントで言ったようにI would however keep Instruction 2 and 3 out of the select case (not because it won't work inside the select case but simply because I would want to avoid duplicate code)

Sub Sample()
    Select Case ComboBox1.Value
    Case "Venofix"
        'instruction 1 ~> count the number of row of "venofix"
    Case "Penofix"
        'instruction 1 ~> count the number of row of "penofix"
    End Select

    'instruction 2 ~> insert new row at the last row
    'instruction 3 ~> insert data from combobox
End Sub
于 2013-02-20T08:18:24.950 に答える
0

カンマ区切りで複数の条件を指定することもできます。

Sub Sample()

        Dim conDition As String
        conDition = ComboBox1.Value
        Select Case conDition
        Case "Venofix"
            Debug.Print "instruction 1"
        Case "Penofix"
          Debug.Print "instruction 1"
       Case "test1", "test2"
            Debug.Print "more than 1 instruction"
        End Select


    End Sub
于 2013-02-20T08:25:39.370 に答える