又来了，你会检查单元格是否包含时间吗？

标签：VBA

在文章《有趣！你会检查单元格是否包含日期吗？》中，我们使用VBA自定义函数，简单地解决了检查单元格中是否包含日期的问题。

那么，如果单元格中包含的是时间，你怎么检查呢？

我们知道，Excel将日期存储为数字，同样，Excel将时间也存储为数字，只是Excel存储时间时，数字是在0到1之间。因此，上午6点会被存储为0.25，中午12点会被存储为0.5，以此类推。

现在，如果在单元格中输入6:00或0.25，Excel将无法判断这是存储的时间还是存储的数字。

有很多可能的解决办法，但都不完美，唯一的方法是使用VBA来实现。只有一行代码，相当简单！

Function IsTime(rngCell) As Boolean
    IsTime = (Mid(rngCell.NumberFormat, 9, 4) ="h:mm" And VarType(rngCell) = vbDouble)
End Function

现在，在工作表中，可以像使用Excel内置函数一样，使用IsTime函数来判断某单元格中是否是时间。如果是，则返回TRUE，否则返回FALSE。如下图1所示。

图1

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。