返回列表 上一主題 發帖

[發問] Worksheet_Change多條件

simon552614

帖子
4 
主題
3 
精華
0 
積分
55 
點名
0  
作業系統
Win10 
軟體版本
2013 
閱讀權限
20 
性別
男 
註冊時間
2019-3-26 
最後登錄
2023-10-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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
請教改怎麼修正?
收藏 分享

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
4#
發表於 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
複製代碼

TOP

simon552614

帖子
4 
主題
3 
精華
0 
積分
55 
點名
0  
作業系統
Win10 
軟體版本
2013 
閱讀權限
20 
性別
男 
註冊時間
2019-3-26 
最後登錄
2023-10-24 
3#
發表於 2020-8-25 13:17 | 只看該作者
犯蠢了，竟然忘記and和or的條件怎麼下

謝謝提供其他範例

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
2#
發表於 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
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題