Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Or .Row = 1 Then Exit Sub
If .Column = 2 Then
If .Value = "" Then .Cells(1, 0).Resize(1, 6).ClearContents: Exit Sub
.Cells(1, 0) = Format(Date, "emmdd")
ElseIf .Column = 6 Then
If .Value <> "" Then Range("B" & .Row + 1).Select
End If
End With
End Sub作者: s7659109 時間: 2018-9-13 10:50
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Or .Row = 1 Then Exit Sub
If .Column = 2 Then
If .Value = "" Then .Cells(1, 0).Resize(1, 6).ClearContents: Exit Sub
.Cells(1, 0) = Format(Date, "emmdd")
ElseIf .Column = 3 Then
If .Value <> "" Then .Cells(1, 3).Select
ElseIf .Column = 6 Then
If .Value <> "" Then Range("B" & .Row + 1).Select
End If
End With
End Sub作者: s7659109 時間: 2018-9-13 12:29
這樣改,可以用了,謝謝准大。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Or .Row = 1 Then Exit Sub
If .Column = 2 Then
If .Value = "" Then .Cells(1, 0).Resize(1, 6).ClearContents: Exit Sub
.Cells(1, 0) = Format(Date, "emmdd")
.Cells(1, 2).Select
ElseIf .Column = 3 Then
If .Value <> "" Then .Cells(1, 3).Select
ElseIf .Column = 5 Then
If .Value <> "" Then .Cells(1, 2).Select
ElseIf .Column = 6 Then
If .Value <> "" Then Range("B" & .Row + 1).Select
End If
End With
End Sub作者: 准提部林 時間: 2018-9-13 15:28
謝謝Hsieh,但還有個問題請教,若限定輸入欄位b c e f ,d欄位跳過,a 欄位帶入系統日期,請問以下這段如何改?
If Target.Address Like "$E$*" Then
Application.MoveAfterReturnDirection = xlToRight '設定輸入方向向右
With Me
.Unprotect '取消保護工作表
.Range("E:F").Locked = False '取消輸入範圍的鎖定
.EnableSelection = xlUnlockedCells '設定保護狀態下不能選取鎖定儲存格
.Cells(Target.Row, 1).Resize(, 3) = Array(Format(Date, "emmdd"), 123, 345) '輸入A:C欄位作者: 准提部林 時間: 2018-9-14 12:54
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Or .Row = 1 Then Exit Sub
If .Column = 5 Then
If .Value = "" Then .Cells(1, -3).Resize(1, 6).ClearContents: Exit Sub
.Cells(1, -3) = Format(Date, "emmdd")
.Cells(1, -2) = 123
.Cells(1, -1) = 345
.Cells(1, 2).Select
ElseIf .Column = 6 Then
If .Value <> "" Then .Cells(2, 0).Select
End If
End With
End Sub作者: s7659109 時間: 2018-9-14 14:35