仅当 DOB 存在时才计算年龄

Question

我有一个正在处理的大文件，需要能够计算人们的出生日期。我在这里附上了一个示例文件以获得一个想法....但基本上我要做的是仅当“DOB”列中存在数据时，才能计算“年龄”。

DOB 将在每隔一列列出最多 18 个不同的人（所以列 A、C、E .....）在列 B、D、F ......我希望有年龄以年计算。

问题是，不会总是有 18 人的数据，所以这仅需要计算 DOB 列中是否存在数据。

理想情况下，这将是我在打开文件时运行的宏，以便所有年龄都可以更新。

我该怎么做这样的事情？

我希望输出只显示年龄......所以如果 DOB 是 01/01/2001 - 年龄将显示为 18

Answer 1

我将假设 VBA 是多余的。这对我有用...

=IF(A1="","",ROUNDDOWN(YEARFRAC(A1,NOW()),0))

如果您正在查看 VBA 解决方案，则上述公式可直接转换为 VBA。就您的上下文而言，它并不完整，但这是一个更大的部分，目前如果不查看您的代码就很难注入...

Public Sub WriteAgeToCell()
    If Range("A1").Text <> "" Then
        Range("A2") = WorksheetFunction.RoundDown(WorksheetFunction.YearFrac(Range("A1"), Now), 0)
    End If
End Sub

在您的 Workbook 对象中使用 Workbook_Open() 可用于自动重新计算您需要的内容。

因此，将所有内容放在一起，并稍作妥协，您可以执行以下操作...

Private Sub Workbook_Open()
    Dim objSheet As Worksheet, lngAgeCol As Long, lngEndRow As Long, i As Long
    Dim lngStartRow As Long

    With Range("rngHeaderAge")
        Set objSheet = .Worksheet
        lngAgeCol = .Column
        lngStartRow = .Row + 1
    End With

    lngEndRow = objSheet.Cells.SpecialCells(xlLastCell).Row

    For i = lngStartRow To lngEndRow
        objSheet.Cells(i, lngAgeCol).FormulaR1C1 = "=IF(RC[-1]="""","""",ROUNDDOWN(YEARFRAC(RC[-1],NOW()),0))"
    Next
End Sub

当工作簿打开时，它将从标题列下方的行中填写公式，然后如果在会话期间更改 DOB，则年龄将即时更新。

要完成上述工作，您只需将代码更新到 VBA 编辑器中的 Workbook 对象中，并针对年龄列的标题创建一个命名范围，如下所示。