設定自動跳位功能

使用說明：
1.開啟此檔案時請啟用巨集，否則將無自動換欄位的功能
2.每個工作表(Sheet)要使用時都要重新啟用一次
3.啟用及停用方式都相同，只要在D1處按右鍵即可
4.以〔滑鼠右鍵〕選取D１，就可以〔啟用〕或〔關閉〕自動跳位功能，
  會限制只會在A、Ｂ、Ｃ、D欄之間逐列移動。
5.要檢視程式碼，可按〔Alt + F11〕，
   或以〔滑鼠右鍵〕指向〔工作表名稱〕〔檢視程式碼〕，
   若要引用此程式功能可將全部程式碼複製到自己的檔案工作表中即可。

將下列程式複製到程式碼中

Dim xChk$
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "D1" Then   '設定啟用及關閉此功能的儲存格
   Cancel = True
   If xChk <> "On" Then
      xChk = "On"
      MsgBox "※自動跳位已啟動！　"
   ElseIf xChk = "On" Then
      xChk = "Off"
      MsgBox "※自動跳位已關閉！　"
   End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If xChk <> "On" Then Exit Sub
With Target
     If .Count <> 1 Then Exit Sub
     If .Column = [E1].Column Then         '當移動到此欄位時跳位
        [A1].Cells(.Row + 1, 1).Select     '跳到此欄位
     End If
End With
End Sub