4

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

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

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

4

3 回答 3

7

如果您使用的是 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

截图

在此处输入图像描述

于 2012-10-24T03:01:33.660 回答
0

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

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

于 2017-01-28T06:03:25.510 回答
0

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

于 2017-01-25T11:16:51.237 回答