Question

需要帮助突出显示包含当前日期和其他时间的单元格。我写的代码在这里，但是只能用当前日期突出显示单元格。

Sub Datechoose（）

name="YourProgrammName.myapp" type="win32" />
<description> Really Cool App</description>
<dependency />
<!-- Identify the application security requirements. -->
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
  <security>
   <requestedPrivileges>
    <requestedExecutionLevel
      level="requireAdministrator"
      uiAccess="false"/>
    </requestedPrivileges>
   </security>
</trustInfo>
<!-- padding to four-byte multiple file size including the byte order mark --   
<!-- padding 123 -->
 </assembly>

结束子

enter image description here

我的目的是突出显示具有当前日期（6/22/2018和时间）的单元格。请帮帮我...

Answer 1

将2个比较值包装成一种格式，以确保Excel以相同的方式读取它们。

if isdate(rCell) then
    If format(rCell.Value, "mm/dd/yyyy") = format(Date, "mm/dd/yyyy") Then
        rCell.Interior.Color = vbGreen
    End If
end if

编辑1

如果单元格值是有效日期参数之外的数值，则会收到溢出错误。您可以通过使用“ isDate”功能来验证此单元格是否为日期并可以处理格式来避免这种情况。

Answer 2

突出显示单元格并为其指定条件格式。

选择A1后，如果日期/时间值的日期部分等于今天的日期，则下面的条件将返回TRUE。

=INT(A1)=TODAY()

如@HarassedDad所说-2018年6月22日将是43273.5中午12点。
INT(43273.5)缩短了时间，只剩下要与您的日期值进行比较的日期。

Excel_VBA高亮显示具有当前日期和不同时间的单元格

2 个答案:

编辑1