在Excel中显示消息框

Question

我需要比较excel（vba）中的两个日期列。如果单元格值相等，则必须显示一个消息框，其中包含＆＃34; TARGET ACHIEVED＆＃34;，＆＃34; YES＆＃34;或＆＃34;否＆＃34;选项。根据选择的值，必须更改第二列单元格颜色   - 是 - 橙色   - 不 - 蓝色

Answer 1

以下代码将执行此操作。

Dim Date1 As String
Dim Date2 As String
Dim msgResult As VbMsgBoxResult

Date1 = ThisWorkbook.Sheets(1).Cells(1)
Date2 = ThisWorkbook.Sheets(1).Cells(2)

If IsDate(Date1) And IsDate(Date2) Then
    If CDate(Date1) = CDate(Date2) Then
        msgResult = MsgBox("TARGET ACHIEVED", vbYesNo)

        If vbYes = msgResult Then
            ' code for Yes handling
            ThisWorkbook.Sheets(1).Cells(1).Interior.ColorIndex = 46 'orange
        Else
            ' code for NO handling
            ThisWorkbook.Sheets(1).Cells(1).Interior.ColorIndex = 5 'blue color
        End If
    End If
End If

您可以获得更多Excel颜色代码here。