2010年6月18日 星期五

VBA:sendkey 與絕對位址

 
很多時要先 link 不同 sheet,然後再轉絕對位址。
如 '01'!AL5 要轉為 '01'!$AL$5 ,雖然簡單,但
不斷要按 F2 及 F4 ,重覆工作下令人厭惡,況且
要做 31 天。
 
以下是一個簡單 MACRO 。
 
  
Sub testsendkey()
' 測試 sendkey 功能
' 先將要轉「絕對位址」的範圍 select,
' 然後按 menu --> macro --> run macro
'
 For Each x In Selection
   Application.SendKeys "{F2}", True
   Application.SendKeys "{F4}", True
   Application.SendKeys "{ENTER}", True
 Next
End Sub
 
 
 

沒有留言: