VBA：如果单元格格式是日期，那么做一些事情

Question

我在为宏设置条件时遇到问题。 它应该这样做：

If CELL_A is * **AND** CELL_B is **DATE** then....

    Sub kontrolafyzprav()

radek = 4

  With List1

    Do While .Cells(radek, 3) <> ""
        If .Cells(radek, 3) = "DOM" And .Cells(radek, 7).NumberFormat = "General" Then
            .Cells(radek, 3).Interior.Color = RGB(255, 150, 150)
            .Cells(radek, 7).Interior.Color = RGB(255, 150, 150)

        ElseIf .Cells(radek, 3) = "MO" And .Cells(radek, 7).NumberFormat = "d/m/yyyy" Then
            .Cells(radek, 3).Interior.Color = RGB(255, 150, 150)
            .Cells(radek, 7).Interior.Color = RGB(255, 150, 150)
                    ' :(    :(     :(     :(

        End If
                radek = radek + 1
    Loop

  End With

End Sub

与ElseIf .Cells(radek, 3) = "MO" And .Cells(radek, 7).NumberFormat = "d/m/yyyy" Then 一致，我尝试了我能想到的一切。

第一组条件很好，但我无法获得第二组：/

有什么帮助吗？

Answer 1

本机 VBA IsDate Function 可以很好地确定单元格的内容，以查看它是否包含日期。 Range.Value property（但不是Range.Value2 property）保留的区域特定日期设置有助于做出决定。

Sub kontrolafyzprav()
    Dim raek As Long

    radek = 4

    With List1
        Do While .Cells(radek, 3) <> ""
            If .Cells(radek, 3) = "DOM" And .Cells(radek, 7).NumberFormat = "General" Then
                .Cells(radek, 3).Interior.Color = RGB(255, 150, 150)
                .Cells(radek, 7).Interior.Color = RGB(255, 150, 150)

            ElseIf .Cells(radek, 3) = "MO" And IsDate(.Cells(radek, 7)) Then
                .Cells(radek, 3).Interior.Color = RGB(255, 150, 150)
                .Cells(radek, 7).Interior.Color = RGB(255, 150, 150)
                        ' :(    :(     :(     :(
            End If
            radek = radek + 1
        Loop
    End With

End Sub

IsDate 函数不会被无效的日期文本所迷惑。