返回列表 上一主題 發帖

[發問] Worksheet_Change多條件

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1447 
主題
40 
精華
0 
積分
1471 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-5-5 
1# 跳轉到 »
發表於 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

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題