| |
コンボボックスを使いたくて自分なりにサイトを見て、下記の様に
作ったのですが思ったように動きません。
デバックで確認すると変数には文字が入ってcase文でも一致してる
と思うのですが、全然原因が分かりません・・・・・
やりたい事はクリックイベントでリストから選んだ物に対しての行
動を行いたいだけです。
「間違い及び修正点」を指摘して頂きたいです。
よろしくお願いします。
Private Sub CommandButton1_Click()
Dim p_name As String
Dim ma As String
Dim mb As String
Dim mc As String
ma = "ma"
mb = "mb"
mc = "mc"
p_name = ComboBox1
Select Case p_name
Case p_name = ma
TextBox2 = Range("B2")
TextBox3 = Range("C2")
TextBox4 = Range("D2")
Case ComboBox1 = mb
TextBox2 = Range("B3")
TextBox3 = Range("C3")
TextBox4 = Range("D3")
Case ComboBox1 = mc
TextBox2 = Range("B4")
TextBox3 = Range("C4")
TextBox4 = Range("D4")
End Select
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "ma"
ComboBox1.AddItem "mb"
ComboBox1.AddItem "mc"
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
