VBA动态表单SaveData子程序报错：Next无对应For及控件匹配问题

问题根源分析 #

1. 语法结构错误：原代码中两个If语句均未添加End If，导致编译器无法识别For循环的边界，触发"Next without a For"错误。
2. 控件判断逻辑失效：原代码依赖未初始化的Cntrl变量做类型判断，且混淆了控件的TypeName（系统内置类型，如TextBox）与自定义命名（如TxtBox&DataCol），导致控件匹配失败。
3. 错误处理不合理：全局On Error GoTo会跳过所有错误，掩盖合法赋值过程中的问题，不利于调试。

修正后的SaveData子程序代码 #

Sub SaveData()
    Dim DataCol As Integer
    Dim TxtField As MSForms.TextBox
    Dim CboField As MSForms.ComboBox
    Dim DTbl As String
    Dim DataRow As Long
    Dim StartCol As Integer, EndCol As Integer
    
    ' 请替换为实际业务参数
    DTbl = "数据源表名"
    DataRow = 2 ' 需保存的目标行号
    StartCol = 1 ' 数据起始列
    EndCol = 19 ' 对应19个数据列

    For DataCol = StartCol To EndCol
        ' 尝试查找TextBox控件
        On Error Resume Next
        Set TxtField = DynamicForm.Controls("TxtBox" & DataCol)
        On Error GoTo 0
        
        If Not TxtField Is Nothing Then
            ' 对比并更新值
            If Sheets(DTbl).Cells(DataRow, DataCol).Value <> TxtField.Value Then
                Sheets(DTbl).Cells(DataRow, DataCol).Value = TxtField.Value
            End If
            Set TxtField = Nothing ' 释放对象
        Else
            ' 查找ComboBox控件
            On Error Resume Next
            Set CboField = DynamicForm.Controls("CboBox" & DataCol)
            On Error GoTo 0
            
            If Not CboField Is Nothing Then
                ' 对比并更新值
                If Sheets(DTbl).Cells(DataRow, DataCol).Value <> CboField.Value Then
                    Sheets(DTbl).Cells(DataRow, DataCol).Value = CboField.Value
                End If
                Set CboField = Nothing ' 释放对象
            End If
        End If
    Next DataCol
End Sub

关键修改说明 #

• 修复语法结构：为每个If添加对应End If，确保For循环逻辑完整，解决"Next without a For"报错。
• 优化控件查找：直接通过自定义命名（TxtBox&DataCol/CboBox&DataCol）查找控件，用On Error Resume Next处理控件不存在的场景，再通过Not ... Is Nothing确认查找结果，避免类型判断失误。
• 调整错误处理：将全局错误跳转改为局部临时忽略，仅跳过控件不存在的错误，保留其他异常的提示能力，便于后续调试。
• 添加对象释放：每次使用完控件对象后设置为Nothing，避免内存泄漏。

额外注意事项 #

确保ComboBox构建代码中的TblSetUps是有效的Excel单元格区域名称，否则下拉列表无法正常加载，影响表单输入。

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