Worksheet_Change多條件 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » Worksheet_Change多條件

返回列表下一主題上一主題發帖

[發問] Worksheet_Change多條件

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

1^# 跳轉到 »

發表於 2020-8-25 16:47 | 顯示全部帖子

回復 1# simon552614

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 3
MsgBox ("OK")
Case 6
MsgBox ("OK")
Case 9
MsgBox ("OK")
End Select
End Sub

複製代碼

靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。

返回列表下一主題上一主題