請問有誰能教我如何跳格

[苦命人]

舉例來說
當A2輸入"1"跳B2,A1輸入"2"跳C2
感謝您.....................
可接受VBA

[fox3000]

將以下程式碼貼到 vba 的 Sheet 頁(不是新增模組再貼上)
如果要作用於所有的工作表，就貼到 ThisWorkbook 的頁面中

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$2" Then
If Target.Cells = 1 Then [B2].Select
End If
If Target.Address = "$A$1" Then
If Target.Cells = 2 Then [C2].Select
End If
End Sub

以上程式碼於 office xp 中測試ok


"苦命人" 來函：

Post by 苦命人
舉例來說
當A2輸入"1"跳B2,A1輸入"2"跳C2
感謝您.....................
可接受VBA

[Morgan]

試試這段，依數字來跳格
輸入1向右跳1格，2跳兩格依此類推
如要向下跳，只需將0 和 Target.Value位置對換即可

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Offset(0, Target.Value).Select
End Sub


"fox3000" 來函：

Post by fox3000
將以下程式碼貼到 vba 的 Sheet 頁(不是新增模組再貼上)
如果要作用於所有的工作表，就貼到 ThisWorkbook 的頁面中
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$2" Then
If Target.Cells = 1 Then [B2].Select
End If
If Target.Address = "$A$1" Then
If Target.Cells = 2 Then [C2].Select
End If
End Sub
以上程式碼於 office xp 中測試ok
"苦命人" 來函：

Post by 苦命人
舉例來說
當A2輸入"1"跳B2,A1輸入"2"跳C2
感謝您.....................
可接受VBA