跳转至冻结窗口下方

zllyyz · 发表于 2024-3-13 15:09

本帖最后由 zllyyz 于 2024-3-13 16:16 编辑

请各位大大指教：需动态跳转至“冻结窗口”下方的第一个单元格第1行第1列（如冻结窗口在“行3“ 需跳转至A4单元格），
PS1：冻结窗口行列随时变动

PS2：标题名不固定（FIND可能不适用）

Sub s()
[a1].Select
End Sub

山菊花 · 发表于 2024-3-13 15:57

Range("a" & ActiveWindow.SplitRow + 1).Activate
或者：
Application.SendKeys "^{HOME}"

zllyyz · 发表于 2024-3-13 16:17

山菊花发表于 2024-3-13 15:57
Range("a" & ActiveWindow.SplitRow + 1).Activate
或者：
Application.SendKeys "^{HOME}"

Application.SendKeys "^{HOME}"
此行代码测试不成功不知道哪里有问题（重新冻结另外一行后无法使用）

perfect131 · 发表于 2024-3-13 17:37

zllyyz 发表于 2024-3-13 16:17
Application.SendKeys "^{HOME}"
此行代码测试不成功不知道哪里有问题（重新冻结另外一行后无法使用）

这样写即可
但必须先 activate 工作表

zllyyz · 发表于 2024-3-13 17:59

perfect131 发表于 2024-3-13 17:37
这样写即可
但必须先 activate 工作表

感谢补充知识，先送花后续再测试

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

[已解决] 跳转至冻结窗口下方

评分

评分