好不容易寫完了使用者的需求,本想交付使用者測試,但後來又心癢癢的,總覺得那直接錄製的巨集不太好用,索性就再小修改一下吧!
修改目標:
按【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便可達到目的。
人生,不就是由一連串的選擇所組合而成。 故事,通常可以從微小的細節中受到感動。 我是「高級水電工」,也是華語導遊/華語領隊, 就讓我們一起共同體驗人生、體驗感動。 |

|
限會員,要發表迴響,請先登入
- 5樓. Nel2010/02/11 13:34CTRL-A, CTRL-Z
CTRL-A, CTRL-Z屬於系統內建的複合鍵...
拿來應用, 比較不適合哦...
- 4樓. 幸福綠光2010/02/06 00:26我
有粉認真滴看~ 迷油看懂
不夠聰明@@
有 些 事 情 .★ * ★..
.*★ *. *..* ★
★ 不 是 為 了 *
★ & ‧°∴°﹒☆°.﹒
‘*. 讓人感激才做的 *
‘★ ★
‘*..★' - 3樓. kathy.2010/02/05 15:29想精進的夢幻破滅。還是去睡覺好了。
施主不要用這篇,來應付點閱率的長尾巴喔....
- 2樓. kathy.2010/02/05 14:25ㄚ獼鴕否
施主近來巨集之功力十分了得。煽哉!
啊!上次那本函數聖經可擱了好久沒唸誦了。
再拿出來唸一下,看看對此篇有沒有新的參悟。
睡到倒頭哉 - 1樓. 阿菊2010/02/05 10:41我一直想學巨集及函數
天資不足...看迷有啦!