我試圖觸發 q 列的彈出訊息，如果它不同于“打開”或“關閉”，它說請輸入理由此代碼運行良好，但如果我單擊不同的列（Q 除外），它會給我以下錯誤訊息
我怎樣才能擺脫這個訊息？
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Range("Q2:Q3977"), Target) = "Open") And Not (Application.Intersect(Range("Q2:Q3977"), Target) = "Closed") Then
MsgBox "Please Enter Justification"
End If
End Sub
uj5u.com熱心網友回復：
一種方法是檢查.Column的Target以確保它是Q第一個。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 17 Then
If Not (Application.Intersect(Range("Q2:Q3977"), Target) = "Open") And Not (Application.Intersect(Range("Q2:Q3977"), Target) = "Closed") Then
MsgBox "Please Enter Justification"
End If
End If
End Sub
可能有更酷的方法。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/357723.html