自动展开下拉列表

Question

我有一个带有下拉列表的单元格。我手动按下向下箭头（在单元格的右侧）以显示列表的内容。我需要一种使用 VBA 自动扩展列表的方法。我怎样才能做到这一点？

Answer 1

您可以试试下面的代码。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    If Target.Cells.Count = 1 Then
        If Target.Validation.InCellDropdown = True Then
            Application.SendKeys ("%{UP}")
        End If
    End If
End Sub

自动展开下拉列表

Automatically Expand a Drop-Down List

excel

vba

drop-down-menu