如何用VBA表达Ctrl+Home

glhfgtd · 发表于 2011-7-7 07:12

我试图用SendKeys自动Ctrl+Home所有的工作表(Sheet1,2,3,4)，然后保存工作簿。
但代码只对其中一个工作表有效，不知是哪里出了错，请高手指点！
代码如下，工作范例详见附件：
Sub CtrlHome()
Dim wbk As Workbook
Dim wst As Worksheet
Set wbk = ThisWorkbook
For Each wst In wbk.Worksheets
wst.Activate
Application.SendKeys "^{HOME}"
Next wst
wbk.Save
End Sub

[ 本帖最后由 glhfgtd 于 2011-7-8 00:57 编辑 ]

xiangzi728 · 发表于 2011-7-7 07:34

直接用： Cells(1,1).Select
不行吗？

guojianlin1985 · 发表于 2011-7-7 08:19

你应该看看帮助，home键如何表示。

glhfgtd · 发表于 2011-7-8 00:31

因为有冻结窗格，所以Ctrl+Home并不在A1单元格啊。
已查找了Sendkey的帮助，"^{HOME}"是正确的。
运行代码后，只对一页worksheet有效，不知有没有人知道是为什么？

livewire · 发表于 2011-7-8 08:26

实在不行就换一种思路

Application.Goto Cells(ActiveWindow.SplitRow + 1, ActiveWindow.SplitColumn + 1)

复制代码

glhfgtd · 发表于 2011-7-8 11:20

lol 我怎么没想到Split row & Col呢，谢谢livewire正解

fengdotnet · 发表于 2016-8-21 21:09

livewire 发表于 2011-7-8 08:26
实在不行就换一种思路

怎么我加代码进去没用呢

fengdotnet · 发表于 2016-8-21 21:10

glhfgtd 发表于 2011-7-8 00:31
因为有冻结窗格，所以Ctrl+Home并不在A1单元格啊。
已查找了Sendkey的帮助，"^{HOME}"是正确的。
运行代 ...

你这个代码要怎么加？？

zhjlgaojuan · 发表于 2016-8-22 08:50

貌似,中间应该加个+号?
"^+{home}"
这样才是表示同时按下的吧?
"^{home}"应该表示的是按ctrl,按home..

fengdotnet · 发表于 2016-8-25 09:36

ddddddddddddddddddddddddddd

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA表达Ctrl+Home

评分