excel VBA請教如何輸入完跳至下一儲存格

fashionkid

fashionkid
個人積分：12分
文章編號：54106760

12分

樓主

2015-01-19 13:27

請問VBA方面該如何寫？在C2或D2輸入完enter後，會跳至B3儲存格；C3或D3會跳至B4
以此類推下去

再次感謝各位

2015-01-19 13:27 發佈

文章關鍵字 Excel VBA 儲存格

abollar

abollar
個人積分：965分
文章編號：54116422

965分

2樓

2015-01-19 23:54

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveCell.Offset(0, -1).Select
End Sub

abollar

abollar
個人積分：965分
文章編號：54116595

965分

3樓

2015-01-20 0:07

樓上是單純往左移動一格，往下移動一格

若是指名要C欄、D欄跳到B欄下一列
程式碼為：

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 3 Then
ActiveCell.Offset(0, -1).Select
ElseIf ActiveCell.Column = 4 Then
ActiveCell.Offset(0, -2).Select
End If
End Sub

一樣寫在Worksheet的Change事件

AESUGO

AESUGO
個人積分：10分
文章編號：54127991

10分

4樓

2015-01-20 17:34

之前寫過的範例給你參考

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cal As Integer
Dim xy As Variant
Dim I As Integer, cr() As String
xy = Array("對應座標")
'對應座標 : A=1~Z=26;AA=27~AZ=52
cal = UBound(xy)
For I = 0 To cal
cr = Split(xy(I), ",")
If Int(cr(0)) = Target.Row And Int(cr(1)) = Target.Column Then
If I < cal Then
cr = Split(xy(I + 1), ",")
Else
cr = Split(xy(0), ",")
End If
Cells(Int(cr(0)), Int(cr(1))).Select
Exit For
End If
Next
End Sub

-----------------
補充一下

例如C2跳B3

xy = Array("2,3","3,2")