Andy2483

回復 1# simon552614


A:   
If Target.Column = 3 Or Target.Column = 6 Or Target.Column = 9 Then
   MsgBox ("OK")
End If

B:
With Target
   If InStr("3,6,9", .Column) Then
      MsgBox ("OK")
   End If
End With

C:
With Target
   If InStr("3,6,9", .Column) And .Count = 1 Then
      MsgBox ("OK")
   End If
End With

D:
With Target
   If InStr("3,6,9", .Column) And .Count = 1 And .Row > 10 Then
      MsgBox ("OK")
   End If
End With