在Excel中判断单元格是否包含日期

原文地址：http://www.excel123.cn/Article/excelhanshu/201109/884.html

Excel中的系列“Is”类函数可以判断指定值并返回TRUE或FALSE，如ISNUMBER函数判断值是否为数字、ISTEXT判断值是否为文本等。但Excel没有提供一个判断日期的工作表函数，如“IsDate”。如果要检测某单元格是否为日期，可以用CELL函数，例如下面的公式判断A1单元格是否为日期：

    =IF(LEFT(CELL("format",A1))="D",IF(--RIGHT(CELL("format",A1))<6,TRUE))

    当A1单元格为日期格式时返回TRUE，否则返回FALSE。将该公式用于数据有效性中，可以限制用户只能输入指定的文本和任意日期。

    另外，还可用VBA中的IsDate函数来判断，如下面的自定义函数：

    Function Is_Date(expr)
    Application.Volatile
    Is_Date = IsDate(expr)
    End Function

    在Excel工作表界面按Alt+F11，打开VBA编辑器，单击菜单“插入→模块”，粘贴上述代码。然后在单元格中输入公式：

    =Is_Date(A1)

    当A1单元格包含某个日期时返回TRUE。与第一个公式不同的是，如果A1单元格为空，该公式返回FALSE。

    说明：当引用单元格中的格式发生改变时，上述两个公式返回的结果不能自行更改，这时按F9键重新计算即可。