技巧區‎ > ‎高級程度‎ > ‎

猶如親手打字 [1999年3月]

張貼者:2010年5月29日 上午6:32Carson Cheng   [ 已更新 2010年5月29日 上午6:32 ]
利用SendKeys陳述式,可以做到一些巨集做不到的東西,例如把菜單拉下、示範如何做某一指令等。

例一:光把檔案菜單拉下
   Sub PullDownFileMenu()
       SendKeys "%F"              ' < Alt > + F 
   End Sub

例二:示範如何多加一欄
   Sub InsertColumn()
       ' 「True」代表要等候動作做完才執行下一個指令,這裡我們需要等候,好讓畫面更新
       SendKeys "%I", True            '  < Alt > + I 
       Pause
       SendKeys "{down}", True
       Pause
       SendKeys "{down}", True
       Pause
       SendKeys "~"                       ' < Enter > 
   End Sub

   ' 暫停一秒,讓使用者看清楚
   Private Sub Pause()
       Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
   End Sub

例三:一直按著 < Shift >,按 < End >,然後按右鍵,才放開 < Shift >。要用括號把受影響的鍵括著。
       SendKeys "+({End}{Right})", True


以下是可以用的程式碼,詳情請參考說明:

鍵                 程式碼 
BACKSPACE            {BACKSPACE} 或 {BS} 
BREAK               {BREAK} 
CLEAR                {CLEAR} 
DELETE or DEL            {DELETE} 或 {DEL} 
END                 {END} 
ENTER (數字鍵)          {ENTER} 
ENTER                ~    (tilde) 
ESC                {ESCAPE} 或 {ESC} 
HELP                {HELP} 
HOME                {HOME} 
INS                  {INSERT} 
TAB                 {TAB} 
CAPS/SCROLL/NUM LOCK       {CAPSLOCK}/{SCROLLLOCK}/{NUMLOCK} 
PAGE UP/DOWN            {PGUP}/{PGDN} 
RETURN               {RETURN} 
UP/DOWN/LEFT/RIGHT ARROW        {UP}/{DOWN}/{LEFT}/{RIGHT} 
F1 至 F15               {F1} 至 {F15} 
SHIFT                 +  
CTRL                 ^ 
ALT                  %  
Comments