彩色细胞的日期超过20年前？

Question

我名义上有个人的出生日期。我需要创建一个程序来突出27年前生日的红色细胞，因为27岁是年龄限制。有人可以帮我这个吗？我知道在Excel上使用条件格式化功能是可能的，但是我想用vba来做，所以我可以一次过滤许多不同的类别。

Answer 1

对于格式化条件，您可以使用以下内容：

   'for whole column A, if cell value is greater than 27
    With Range("A:A").FormatConditions.Add(xlCellValue, xlGreater, "=27")

      'color interior with red and black for font
      .Interior.Color = RGB(255, 0, 0)
      .Font.Color = RGB(0, 0, 0)
    End With

对于出生年份，您可以使用以下功能：

    '=YearDiff(B1) <- enter this on cells as a formula with birthday parameter (from B1 on this example)
    Function YearDiff(pDate As Date) As Long
      YearDiff = DateDiff("yyyy", pDate, Now())
    End Function

下次，请努力发布您的代码，以便我们可以看到您遇到的问题。