Question

我有一些在后台运行的代码。部分，我想检查Col13（sheet ='Project_Name'）中的单元格是否具有日期格式的值。如果没有，我想通知用户。

如果Admin工作表中已标记的单元格标记为“ True”，Col13将是一个日期-以便您了解我的代码的第一部分是什么。

代码

'Checking date of activity
For i = 7 To LastRow
    With Worksheets("Admin")
        If .Cells(i, 13).Value = "True" Or .Cells(i, 11).Value = "True" Then
            With Worksheets("Project_Name")
                If Not IsDate(.Cells(i, 13)) Then
                    MsgBox ("Please ensure that Date of Activity is in the correct Date format.")
                    Exit Function
                End If
            End With
        End If
    End With
Next i

尽管非常简单的循环检查，但它不起作用。我不确定我的声明是否

If Not IsDate()

是正确的吗？

任何建议将不胜感激。

Answer 1

如果“管理”工作表上的K和M列包含真正的布尔值（工作表上居中对齐的TRUE或FALSE），则不应将它们与类似"True"的字符串进行比较。它们的基本布尔值足以评估。

If .Cells(i, 13).Value Or .Cells(i, 11).Value Then
    ...
end if

单元格验证-检查日期[Excel VBA]

1 个答案: