|
[本文なし]
配置
CommandButton1 CommandButton3 CommandButton3
ComboBox1
以上のようにCommandButtonが3つとComboBoxが1つあります。
CommandButtonをクリックするとComboBoxのリストが替わるようにしようとしてます。
Private Sub CommandButton1_Click()
ComboBox1.RowSource = "データ!a1:a10"
End Sub
Private Sub CommandButton2_Click()
ComboBox1.RowSource = "データ!b1:b10"
End Sub
Private Sub CommandButton3_Click()
ComboBox1.RowSource = "データ!c1:c10"
End Sub
のように表すだけならすぐ出来るのですが、CommandButtonをクリックした時に
わざわざComboBox1のドロップボタンを押さずにリストまで現れるようにしたいのですが・・・
ComboBox1.DropButtonClick
をつけてみたのですがうまくまわりませんでした。
どのようにしたら良いのか教えてください。
|
|