自動展開下拉列表

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