如何自动展开下拉验证列表

Question

SendKeys 有什么替代方法可以自动展开下拉验证列表吗？单击单元格后，我想展开下拉验证列表。我的问题的重点完全是如何避免SendKeys方法。

这是使用SendKeys 的正常工作解决方案：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If HasValidation(Target) Then
        SendKeys "%{DOWN}"
        SendKeys "{NUMLOCK}", True 'Workaround for Numlock turn off bug
    End If
End Sub

Function HasValidation(MyCell As Range) As Boolean
    Dim t: t = Null
    On Error Resume Next
    t = MyCell.Validation.Type
    On Error GoTo 0
    HasValidation = Not IsNull(t)
End Function

相关链接：
HasValidation函数：https://stackoverflow.com/a/31346246/1903793
NumLockbug：https://stackoverflow.com/a/29551913/1903793

上面的代码运行顺利，没有任何障碍。对于广泛报道的问题，我只是对SendKeys 有偏见。我怀疑将此解决方案合并到更大的代码中可能会在未来导致难以捕捉的意外行为。

Answer 1

您对想要实现的目标的定义留下了一些有待回答的问题，但也许下面的代码会让您走上正确的道路。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Const Trigger As String = "A3:B4"               ' modify to suit
    Const ValCell As String = "H3"                  ' modify as required

    Dim ValType As Long

    If Not Application.Intersect(Target, Range(Trigger)) Is Nothing Then
        Application.EnableEvents = False
        Range(ValCell).Activate

        On Error Resume Next
        ValType = ActiveCell.Validation.Type
        On Error GoTo 0
        If ValType = 3 Then SendKeys "%{DOWN}"

        Application.EnableEvents = True
    End If
End Sub

上述过程监控触发器范围A3:B4，您可以根据需要进行调整。如果单击此范围内的一个单元格（它可能是单个单元格范围），则具有验证的单元格中的下拉列表（定义为 ValCell）会展开，前提是它存在。代码通过激活CellVal 单元来实现这一点。