作者ddqueen (呼~呼~叔叔觉得你好可爱~)
看板Office
标题[算表]Excel巨集卷动视圈,储存格成画面最上端
时间Wed Sep 30 01:49:03 2020
软体:Excel
版本:2016
我现在有一个需求,就是在Excel中,目前在用的储存格变到在画面的最上端。
一般来说可用滑鼠的滚动来完成,可是我想设成巨集後,设快捷键用键盘就能完成。
之前我在Word有类似的需求,我写的如下
ActiveDocument.ActiveWindow.SmallScroll Down:=70
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=1
可是在Excel中,我就写不出来了,我原本写的如下:
ActiveWindow.SmallScroll Down:=27
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Offset(-1, 0).Range("A1").Select
可是储存格竟然不是移到最上面去,而是在画面的中间……。
请问要怎麽写呢?
话说回来,我去google才知道原来巨集的语言就是VBA……我一直以为VBA是个软体之类的
东西……。
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.36.234.60 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1601401745.A.FF4.html
1F:→ soyoso: 以application.goto,scroll为真 09/30 07:11
呃,上网google了「application.goto」,可是还是不会写……能请您帮我写
一下吗?我最近才学会录制巨集的……写的语法也是看录制後的语法是怎样才会的。
※ 编辑: ddqueen (114.36.234.60 台湾), 09/30/2020 19:24:13
2F:→ soyoso: 假设,application.goto range("b10"),true 09/30 19:26
3F:→ soyoso: 就是储存格b10在最左上角 09/30 19:26
4F:→ soyoso: 要用range.offset的话,就调整一下,但不要加入.select的 09/30 19:28
5F:→ soyoso: 部分 09/30 19:28
还是不会写也。@@
※ 编辑: ddqueen (114.36.231.122 台湾), 10/26/2020 20:00:02
後来问到了,用ActiveWindow.ScrollRow = Selection.Row就可以了。
※ 编辑: ddqueen (114.36.231.122 台湾), 10/28/2020 02:54:29