VBA Excel - 如果列中的某個值符合我的條件，則顯示一條消息

Question

我想創建一個在我處理 Excel 工作表時在后台繼續運行的宏。

功能：如果整列中的某個單元格 = Now() 則顯示一個消息框。

有人可以分享這個代碼嗎？

Answer 1

把它放在你的工作表模塊中

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' for a certain column - in this case G
    Dim Arr
        Arr = Split(Target.Address, "$")
        If Arr(1) = "G" Then
            Beep
            MsgBox "You have selected column G..."
        End If

' for a certain row - in this case 2
    If Right(Target.Address, 2) = "$2" Then
        Beep
        MsgBox "You have selected Row 2..."
    End If

' for a certain cell - in this case A3
    If Target.Address = "$A$3" Then
        Beep
        MsgBox "You have selected Cell A3..."
    End If


End Sub