Excel - 通过VBA显示ComboBox DropDown

Question

我需要一个工作簿来打开时显示Combobox列表下拉列表.

工作簿中的组合框是一个表单控件,因此是一个形状.

似乎找不到相关的财产.

Answer 1

如果您正在使用ActiveX控件,请参阅下面的内容,否则,如果您使用的是表单控件,则将其替换为ActiveX控件(如果您希望通过代码进行下拉菜单).下面的代码适用于表单和工作表中的ActiveX控件.如果控件位于工作表上,则更ComboBox1.SetFocus改为ComboBox1.Activate

我能想到的两种方式......

• 使用简单的命令

经过试验和测试

Private Sub CommandButton1_Click()
   ComboBox1.DropDown
End Sub

• 使用Sendkeys.如果使用不当,Sendkeys是不可靠的.

经过试验和测试

Private Sub CommandButton1_Click()
   ComboBox1.SetFocus
   SendKeys "%{Down}"
End Sub

SCREENSHOTS