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檔.