VBAコンボボックスのテキストは、私はそれを入力しない限り、/ストアテキストを覚えていないだろう

Question

コンボボックス残りません。

Private Sub ComboBox1_Initialize() 
    ComboBox1.List = Array("0", "0.1", "0.2") 
End Sub 

テキスト値は、コマンドボタンの機能を決定します。

Private Sub CommandButton1_Click() 
    If ComboBox1.Text = "0" Then 
     Call Name0 
    End If 
    If ComboBox1.Text = "0.1" Then 
     Call Name1 
    End If 
    If ComboBox1.Text = "0.2" Then 
     Call Name2 
    End If 
End Sub 

コードは機能しますが、配列はコンボボックスに保持されません。

Answer 1

これは最もよく機能しているようで、フォーム上ではよりよく見えます。 私の質問には答えられませんが、それを解決する別の方法があります。 乾杯！

Private Sub CommandButton1_Click() 
     If OptionButton1.Value = True Then 
     Call Name_0 
     End If 
      If OptionButton2.Value = True Then 
      Call Name1 
      End If 
      If OptionButton3.Value = True Then 
     Call Name2 
     End If 
    End Sub