Excel VBA 換行?

[匿名]

2020-11-26 12:13 am

我要輸入的資料儲存格順序是B2→C2→D2→B3→C3→D3......
輸入的方式是：B2 輸入完後按鍵盤右鍵輸入C2，再按右鍵輸入D2，再按右鍵跳到B3，但若是B2=0，就不用輸入C2和D2，直接往下跳到B3，若B3=0，就跳B4B4不為0，就回到原本C4→D4→B5....請問這樣要如何用VBA寫出來呢？試了很久都做不出來，一直卡在B行等於0，沒有辦法正確做出我想要的換行，請教各位了～謝謝!!

更新1:

原本是使用 Sub 清除() Range("B2:D31").ClearContents End Sub 把資料刪除會直跑出錯誤....

回答 (1)

Cheng

2020-11-27 2:01 pm

✔ 最佳答案

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 And Target.Column < 5 Then
If Target.Column = 2 And Target = 0 Then Cells(Target.Row + 1, 2).Select
If Target.Column = 4 Then Cells(Target.Row + 1, 2).Select
End If
End Sub

👍 0 👎 0