VBA开发需求：为甘特图模板实现子层级日期最值自动计算

我明白你在这个项目管理甘特图模板里遇到的痛点——要自动算出父级WBS对应的所有子项的最早和最晚日期对吧？之前你尝试写函数没搞定，我给你整理了一个靠谱的VBA自定义函数方案，适配这个模板的结构：

自定义VBA函数实现 #

打开Excel的VBA编辑器（按Alt+F11），插入一个新模块，粘贴以下代码：

Function GetChildDate(wbsParent As String, dateRange As Range, wbsRange As Range, getMax As Boolean) As Variant
    Dim cell As Range
    Dim childWBS As String
    Dim resultDate As Date
    Dim firstDate As Boolean
    
    firstDate = True
    
    ' 遍历所有WBS单元格，筛选父级的子项
    For Each cell In wbsRange
        childWBS = cell.Value
        ' 判断当前WBS是否为目标父级的子项（以父级开头且长度更长）
        If Left(childWBS, Len(wbsParent)) = wbsParent And Len(childWBS) > Len(wbsParent) Then
            ' 检查对应日期是否有效
            If IsDate(dateRange.Cells(cell.Row - wbsRange.Row + 1).Value) Then
                If firstDate Then
                    resultDate = dateRange.Cells(cell.Row - wbsRange.Row + 1).Value
                    firstDate = False
                Else
                    If getMax Then
                        ' 取最大日期
                        resultDate = WorksheetFunction.Max(resultDate, dateRange.Cells(cell.Row - wbsRange.Row + 1).Value)
                    Else
                        ' 取最小日期
                        resultDate = WorksheetFunction.Min(resultDate, dateRange.Cells(cell.Row - wbsRange.Row + 1).Value)
                    End If
                End If
            End If
        End If
    Next cell
    
    ' 返回结果：找到日期则返回，否则返回空值
    If Not firstDate Then
        GetChildDate = resultDate
    Else
        GetChildDate = ""
    End If
End Function

函数用法说明 #

以你提到的WBS为1的第8行（E列）为例：

• 获取子项最大结束日期：在E8单元格输入
  =GetChildDate(A8, $F:$F, $A:$A, TRUE)
• 获取子项最小开始日期：如果需要子项的最早开始时间，把最后一个参数改成FALSE，比如
  =GetChildDate(A8, $E:$E, $A:$A, FALSE)

参数解释：

• A8：当前父级的WBS单元格（比如你的第8行WBS值为1）
• $F:$F：存储子项结束日期的列（根据你的模板实际列调整）
• $A:$A：存储所有WBS数据的列
• TRUE/FALSE：TRUE取最大日期，FALSE取最小日期

注意事项 #

• 确保WBS列是文本格式，避免数字格式导致匹配错误（比如“1”和“1.0”会被识别为不同值）
• 如果模板的WBS列或日期列不是A、E、F列，记得替换成实际的列范围
• 保存工作簿时要选择.xlsm格式（启用宏的工作簿），否则函数会失效

内容的提问来源于stack exchange，提问作者npn