EXCEL vba 設定快速鍵

前言:在T客邦看到一篇Office 真強者！用 Excel 設計 RPG 遊戲，超過2000種敵人、8個魔王以及4種結局使用EXCEL VBA寫出來的遊戲只是方向鍵還是用滑鼠來按，以下說明使用快速鍵方法來作設定:
1. 選取,功能區選取,開發人員/程式碼/巨集 ;

2.選取巨集名稱uu,按一下,[選項] ;

3.在快速鍵Ctrl+,輸入"u"後按一下,[確定],依此再設定[k][m][u]鍵 ;

4.完成設定後畫面回到如上第2步驟,按一下,[取消],這時可以按[ctrl]+[h]會有左移效果;
5.程式碼如下:

Sub hh()
' ctrl + h
'左移
ActiveCell.Value = ""
ActiveCell.Offset(0, -1) = "X"
ActiveCell.Offset(0, -1).Select
End Sub

Sub kk()
'右移
ActiveCell.Value = ""
ActiveCell.Offset(0, 1) = "X"
ActiveCell.Offset(0, 1).Select
End Sub

Sub mm()
'下移
ActiveCell.Value = ""
ActiveCell.Offset(1, 0) = "X"
ActiveCell.Offset(1, 0).Select
End Sub

Sub uu()
'上移
ActiveCell.Value = ""
ActiveCell.Offset(-1, 0) = "X"
ActiveCell.Offset(-1, 0).Select
End Sub


延伸閱讀: 使用word開啟網頁資料,可以將網頁下載存成WORD檔.