自动展开下拉列表

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