TARGET.COLUMN使用一簡例

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ERRORFREE

'利用TARGET.COLUMN功能，讓游標到達F欄時，自動跳到下一ROW的D欄備用

If Target.Row < 19 Then Exit Sub      '起始行號為19
If Target.Column = 6 Then
Target.Offset(1, -2).Select
End If
If Target.Offset(-1, -2).Value = "貼錯Label" Then
Beep
MsgBox "貼錯Label"
End If
If Target.Offset(-1, -2).Value = "重覆,再掃描" Then
Beep
MsgBox "重覆,再掃描"
End If

ERRORFREE:
Exit Sub

End Sub