| |
［本文なし］
配置
CommandButton1 CommandButton3 CommandButton3
ComboBox1
以上のようにCommandButtonが３つとComboBoxが１つあります。
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
をつけてみたのですがうまくまわりませんでした。
どのようにしたら良いのか教えてください。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
