使用 VBA 根据单元格日期突出显示行答案

【问题标题】：Highlit rows based on cell date with VBA使用 VBA 根据单元格日期突出显示行
【发布时间】：2022-02-18 21:33:26
【问题描述】：

我有一个 Excel 工作表，用于存储员工详细信息（姓名、年龄等）。在 G 列，我存储了他们的保险到期日期。如果 G 列中的到期日期距离到期还有 3、2、1 天，是否有办法更改整个员工行单元格的颜色、字体颜色并使字体加粗。我尝试了条件格式但不起作用，因为有很多人使用此工作簿，并且当员工不再工作并且格式条件不断混乱时，他们继续使用复制/粘贴和删除行。谢谢

【问题讨论】：

标签： excel vba date format conditional-statements

【解决方案1】：

sub test()
dim i as integer
dim k as integer
dim start as range
set start = sheets("sheet1").Range("A1")
k = change of rows between the expiry date and the cell you want to make bold

for i = 0 to End 'How many rows you need to check
  if start.offset(i, 0) < today() then 'Not sure if today is a vba formula but you can adjust the if statement to your purpose. 
     start.offset(i, x).forecolor = Bold ' This is not the correct way of making text bold, but you could google that yourself. 
end if
next i
end sub

这是一个非常艰难的开始，可以制作您正在寻找的东西。如果您需要将超过 1 个单元格加粗，请插入另一个循环，或使用范围而不是我上面使用的偏移量。

【讨论】：

感谢您的努力。我基本上不了解这段代码的任何内容:)。看来我还有很多东西要学。我会用谷歌搜索它，也许会找到一些教程或其他东西。再次感谢你的回复！祝你有美好的一天
我将尝试使用文本而不是代码：遍历具有到期日期的列，创建一个 if 语句并检查该单元格是否比今天多 3 天。如果这是真的，请将行加粗，如果不是，则什么都没有。然后检查下一个单元格