Vba：如何使用 isdate 检查单元格是否为日期

您可以使用 VBA 中的IsDate函数来检查给定单元格是否为日期。

如果给定单元格中的值被识别为日期，则此函数将返回True 。

否则，该函数将返回False 。

以下是在实践中使用此功能的常见方法：

 SubCheckDate ()
    
Dim i As Integer

For i = 1 To 9
    
    If IsDate(Range(" A " & i)) = True Then
        Range(" B " & i) = " Is a Date "
    Else
        Range(" B " & i) = " Is Not a Date "
    End If
Next i
    
End Sub

这个特定的宏将检查A1:A9范围内的每个单元格是否是日期。

如果单元格是日期，则B1:B9范围内的相应单元格中将返回“Is a date”。

如果单元格不是日期，则将返回“不是日期”。

以下示例展示了如何在实践中使用此语法。

示例：如何在 VBA 中使用 IsDate

假设我们在Excel中有如下一列值：

假设我们要检查 A 列中的每个单元格是否是日期。

我们可以创建以下宏来执行此操作：

 SubCheckDate ()
    
Dim i As Integer

For i = 1 To 9
    
    If IsDate(Range(" A " & i)) = True Then
        Range(" B " & i) = " Is a Date "
    Else
        Range(" B " & i) = " Is Not a Date "
    End If
Next i
    
End Sub

当我们运行这个宏时，我们会收到以下输出：

B 列告诉我们 A 列中的每个匹配单元格是否被识别为日期。

请注意，我们选择返回“是日期”或“不是日期”，但您可以使用If Else语句返回您想要的任何内容。

注意：您可以在此处找到 VBA IsDate函数的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何从日期获取月份名称
VBA：如何使用 DateValue 函数
VBA：数字大于日期