作者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/m.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