Question

Excel VBA sendkeys问题

各位好，我需要写一段代码，可以让我依次选中第一行中所有的单元格，之后对每个单元格安F2+回车。求帮助。谢谢

Answer 1

sendkeys 有2个参数的,第2个参数为TRUE,则 Microsoft Excel 等待击键处理完后再将控制返回到宏
那么你写成
Application.Quit
Application.SendKeys "{tab}",TRUE
Application.SendKeys "{enter}",TRUE

这样应该行了,MSDN说,向对话框发送按键时,需要先调用SENDKEYS...,我在做试验时,你上写的2种方法都可以正常退出..没看出区别,可能是我们的EXCEL版本不一样

Answer 2

有这必要吗、是单元格文本型数字转值吗？

Sub lklkkl()
    For i = 1 To [a1].End(2).Column
        Cells(1,I).Select
        SendKeys "{F2}+{ENTER}"
    Next
End Sub

 你要列，我却弄成行的

追问

是的，日期的问题，选中之后输入F2+回车貌似就解决了，有什么好办法吗？谢谢

追答

从什么改成什么？直接点就行了。不用给他绕弯

追问

就是我VB录入两段日期，日期匹配后会有运算，但是表格里看上去格式一样的日期在VB里一个显示2013-7-1，另一个显示“2013-7-1”，所以if statment做出来不相等，运算就不执行。有什么办法吗？谢谢啊。

追答

“2013-7-1”选择这日期一列，然后分列就行了

Answer 3

Sub test2()
Dim i As Integer

For i = 1 To 256
Cells(1, j).Select
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
Next

End Sub