VBA数据有效性点击单元格直接出现下拉数据

nnsea

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

'程序出错时，继续执行下一步

n = Target.Validation.Type

'当单元格没有【数据验证】时，程序出错，但会继续执行

If Err = 0 Then Application.SendKeys "%{down}"

'如果程序没有出错，Err为0，即单元格有【数据验证】那么……

'用SendKeys语句发送快捷键【ALT+方向键向下】，调取单元格的下拉列表

End Sub