在单元格"A1"单击，然后打开 ComboBox11

Question

Cell("A1"(显示相邻单元格("B1"(的值，该单元格是(Active X(ComboBox11的链接单元格。

当点击"；A1"；，我希望ComboBox11打开/下拉以强制用户在下拉列表中选择一个值。

否则(未单击时(A1将显示默认值。(已工作(

我意识到"；A1〃；可以设置为链接单元格，但在工作流的布局中这是不希望的。

Answer 1

没有打开组合框的方法，但您可以使用带有组合框的工作表上的SelectionChange事件首先激活组合框，然后发送"Alt Down"打开它的钥匙。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
ActiveSheet.ComboBox11.Activate
SendKeys "%{DOWN}"
End If
End Sub

此代码需要进入项目资源管理器中的相关Sheet对象，而不是通用代码模块。