Question

EXCEL的VBA代码，求修改

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 Or Target.Count > 1 Or ActiveSheet.Name = "首页汇总" Then Exit Sub
If Target.Column = 4 And Target.Offset(0, -1) <> "" And Target.Offset(0, 1) = "" Then
Application.SendKeys "%{DOWN}"
ElseIf Target.Column = 5 And Target.Offset(0, -1) <> "" Then
Application.SendKeys "%{DOWN}"
End If
End Sub
--------------------------------------
这里Application.SendKeys "%{DOWN}"后面，要加多一个模拟按键Application.SendKeys "{DOWN}"，结果就没有反应了，这样能怎么修改呢

Answer 1

求别人修改代码，你不说明你代码想达到的目的别人也不好改呀，因为你的代码也许无法满足要求，别人也改不了，多数时候要换个思路来解决问题，不能在一棵树上吊死。从其他几位的回答和你的追问分析，你是想选中的单元格下拉选择第一项，那将以下这句
Application.SendKeys "%{DOWN}"
改为
Target = Split(Target.Validation.Formula1, ",")(0)
即可

Answer 2

不知道你要干啥。{down}只是选中，实测代码没问题。
你需要的仅仅是选中吗，还是要进行输入，如果要完成输入，再加一个{enter}才行。

追问

%{DOWN}，出现下拉框，然后需要{DOWN}，才会选择下拉框里面的东西，不知道你怎么实测的，ALT+下，是下拉框，再按下，才能选择到下拉框的东西

追答

对的啊，down是选中了，选中了，然后呢，你没要求输入呀，就那么选中了而已嘛。

追问

问题是，这个代码下去，down并没有触发，就是没有选择，所以我才来这里求解的

Answer 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 And Target.Offset(0, -1) <> "" And Target.Offset(0, 1) = "" Then
Application.SendKeys ("%{down}")

End If
End Sub
其他仿照修改

追问

你这个不成功的，在你的Application.SendKeys ("%{down}")后面再来个，就不会触发了

追答

你这个触发是有条件的

Target.Column = 4 And Target.Offset(0, -1) "" And Target.Offset(0, 1) = ""

追问

If Target.Column = 4 And Target.Offset(0, -1) "" And Target.Offset(0, 1) = "" Then

Application.SendKeys ("%{down}")
Application.SendKeys ("{down}")
像这样，Application.SendKeys ("{down}")就没反应了