作者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