vba - Excel - 通过 VBA 显示 ComboBox DropDown

Question

我需要一个工作簿来在打开时显示组合框列表下拉菜单。

工作簿中的组合框是一个表单控件，所以是一个形状。

似乎无法找到相关的属性。

Answer 1

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

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

• 使用简单的命令

久经考验

Private Sub CommandButton1_Click()
   ComboBox1.DropDown
End Sub

• 使用发送键。如果使用不当，Sendkeys 是不可靠的。

久经考验

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

截图

Answer 2

我认为最好的 UserForm 组合框是 Siddharth Rout ComboBox1.SetFocus SendKeys "%{Down}"

对于工作表上的某些组合框 CB.DropDown 就足够了..就像它们没有 setfocus 或 activate

Answer 3

我在 .dropdown 上遇到过很多崩溃，但在 SendKeys 上发现了一些成功......