编辑记录时自动更新用户窗体多个DueDate文本框的技术问询

核心思路 #

把单个DueDate的计算逻辑封装成通用函数，然后在txtDueDate1_Exit事件中循环调用该函数，一次性更新所有17个后续DueDate文本框，无需用户逐个切换控件。

具体实现代码 #

首先添加通用计算函数（放在用户窗体代码模块中）：

Private Sub CalculateDueDate(prevDateTxt As MSForms.TextBox, daysTxt As MSForms.TextBox, targetDateTxt As MSForms.TextBox, calTypeTxt As MSForms.TextBox)
    Dim prevDate As Date
    Dim addDays As Integer
    
    ' 验证输入有效性，避免报错
    If IsDate(prevDateTxt.Value) And IsNumeric(daysTxt.Value) Then
        prevDate = CDate(prevDateTxt.Value)
        addDays = CInt(daysTxt.Value)
        
        If calTypeTxt.Value = "Calendar" Then
            targetDateTxt.Value = Format(prevDate + addDays, "yyyy/mm/dd")
        Else
            targetDateTxt.Value = Format(WorksheetFunction.WorkDay(prevDate, addDays), "yyyy/mm/dd")
        End If
    End If
End Sub

然后修改txtDueDate1_Exit事件，批量更新所有后续文本框：

Private Sub txtDueDate1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim i As Integer
    Dim prevDateTxt As MSForms.TextBox
    Dim daysTxt As MSForms.TextBox
    Dim targetDateTxt As MSForms.TextBox
    Dim calTypeTxt As MSForms.TextBox
    
    ' 循环处理从第2到第17个DueDate文本框
    For i = 2 To 17
        ' 通过控件名称规律动态获取对应控件
        Set prevDateTxt = Me.Controls("txtDueDate" & i - 1)
        Set daysTxt = Me.Controls("txtDays" & i)
        Set targetDateTxt = Me.Controls("txtDueDate" & i)
        Set calTypeTxt = Me.Controls("txtBusCal" & i)
        
        ' 调用通用函数计算并更新日期
        CalculateDueDate prevDateTxt, daysTxt, targetDateTxt, calTypeTxt
    Next i
End Sub

代码说明 #

• 通用函数CalculateDueDate：封装了日期计算的核心逻辑，同时增加输入有效性验证，避免因无效输入导致运行错误。
• 循环批量处理：利用控件名称的统一命名规则（txtDueDateX、txtDaysX、txtBusCalX）动态获取控件，省去重复编写17次计算逻辑的麻烦。
• 保留Exit事件：鉴于你提到_Change或_AfterUpdate事件无法正常工作，继续使用txtDueDate1_Exit触发更新，用户离开该文本框时自动完成所有后续日期的计算。

额外优化建议 #

• 如果后续控件命名规则调整，需要同步修改循环中的控件名称拼接逻辑。
• 可以在函数中添加错误处理（如On Error Resume Next），进一步提升代码稳定性。

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