好不容易寫完了使用者的需求,本想交付使用者測試,但後來又心癢癢的,總覺得那直接錄製的巨集不太好用,索性就再小修改一下吧!
修改目標:
按【Ctrl】+【z】:讓螢幕往右捲動至第105【DA】欄,並選取相對該輸入值的欄位。
按【Ctrl】+【a】:讓螢幕往左捲動至第3【C】欄,並選取相對該輸入值的欄位。
修改後如下圖:
說明如下
巨集一:
RC = Selection.Row() ,
是為了取得一開始遊標是選取那一列,並將數值帶入 RC 變數中。
ActiveWindow.ScrollColumn = 89,
是為了讓螢幕往右捲動至第89欄。
ActiveSheet.Cells(RC, 105).Select,
是為了選取相對該輸入值的欄位,若原點選的位置是在【A6】這一欄,按【Ctrl】+【z】後,ActiveSheet.Cells(RC, 105).Select會變成ActiveSheet.Cells(6, 105).Select,此時遊標會停留在【DA6】。
巨集二:
RC = Selection.Row(),
是為了取得一開始遊標是選取那一列,並將數值帶入 RC 變數中。
ActiveWindow.ScrollColumn = 3,
是為了讓螢幕往左捲動至第3欄。
ActiveSheet.Cells(RC, 3).Select,
是為了選取相對該輸入值的欄位,若原點選的位置是在【DA6】這一欄,按【Ctrl】+【a】後,ActiveSheet.Cells(RC, 3).Select會變成ActiveSheet.Cells(6, 3).Select,此時遊標會停留在【C6】。
其實,該巨集一及巨集二中的 ActiveWindow.ScrollColumn = 89 及 ActiveWindow.ScrollColumn = 3 是可以省略的,只要靠ActiveSheet.Cells(RC, 3).Select便可達到目的。
【版權宣告】 版權屬瑞奇所有,歡迎非商業用途轉載,並請於轉載文章之中註明原始出處,否則即視為侵權行為!