Excel VBA sendkeys问题

答案:3 悬赏:80 手机版

解决时间 2021-04-04 18:05

提问者网友：咪咪
2021-04-04 03:37

最佳答案

五星知识达人网友：醉吻情书
2021-04-04 04:05

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

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

全部回答

1楼网友：独钓一江月
2021-04-04 04:44

Sub test2()
Dim i As Integer

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

2楼网友：从此江山别
2021-04-04 04:13

有这必要吗、是单元格文本型数字转值吗？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”选择这日期一列，然后分列就行了

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息