標題: [發問] Worksheet_Change多條件 [打印本頁]

---

作者: simon552614    時間: 2020-8-24 22:55     標題: Worksheet_Change多條件

論壇首發，請多指教
我想對第3. 6. 9 欄有變更時做動作
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Or 6 Or 9 Then
    MsgBox ("OK")
Else
    Exit Sub
End If
End Sub

單純寫Target.Column = 3 時，是可行的，但加上Or就不會走到else
請教改怎麼修正?

---

作者: Andy2483    時間: 2020-8-25 07:33

回復 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

---

作者: simon552614    時間: 2020-8-25 13:17

犯蠢了，竟然忘記and和or的條件怎麼下

謝謝提供其他範例

---

作者: starry1314    時間: 2020-8-25 16:47

回復 1# simon552614

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Select Case Target.Column
   
3. Case 3
   
4. MsgBox ("OK")
   
5. Case 6
   
6. MsgBox ("OK")
   
7. Case 9
   
8. MsgBox ("OK")   
   
9. End Select
   
10. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)