VBA用户窗体重载报错及代码跳过问题求助

问题1：重载窗体时的对象错误 #

错误根源 #

• Unload Me会直接销毁窗体对象，后续立即调用Start_data_conv.Show会因对象不存在报错
• CountA(Cells)未指定工作表，默认引用活动表，导致检查逻辑失效
• 循环未终止，会重复触发提示和重载操作

修正代码（按钮点击事件） #

Private Sub Start_data_conv_button_Click()
    Dim ws As Worksheet
    Dim isDataOK As Boolean
    isDataOK = True
    
    ' 遍历所有工作表验证数据
    For Each ws In ThisWorkbook.Worksheets
        ' 明确指定检查当前工作表的单元格，修正条件逻辑
        If WorksheetFunction.CountA(ws.Cells) = 0 Or Not IsEmpty(ws.Range("B1")) Then
            MsgBox "未导入源数据或存在空工作表，请补全后重试。", vbCritical
            isDataOK = False
            Exit For ' 发现错误立即终止循环
        End If
    Next ws
    
    If Not isDataOK Then
        Me.Hide ' 隐藏窗体而非销毁，保留对象引用
        Start_data_conv.Show vbModeless ' 无括号调用，避免参数传递异常
        Exit Sub ' 终止当前事件，不执行后续转换
    End If
    
    ' 数据验证通过，执行转换逻辑
    Me.Hide
    Call org_columns_rows
    Unload Me ' 转换完成后卸载窗体
End Sub

问题2：检查循环移至主代码后无反应/工作簿关闭 #

错误根源 #

• 主代码未返回验证结果，按钮事件无法判断是否继续执行
• 循环逻辑未终止，导致后续代码被跳过或异常触发

修正方案（将检查逻辑移至标准模块） #

1. 标准模块中编写验证函数：

Function IsSourceDataReady() As Boolean
    Dim ws As Worksheet
    IsSourceDataReady = True
    
    For Each ws In ThisWorkbook.Worksheets
        If WorksheetFunction.CountA(ws.Cells) = 0 Or Not IsEmpty(ws.Range("B1")) Then
            MsgBox "未导入源数据或存在空工作表，请补全后重试。", vbCritical
            IsSourceDataReady = False
            Exit For
        End If
    Next ws
End Function

2. 按钮点击事件调用该函数：

Private Sub Start_data_conv_button_Click()
    If Not IsSourceDataReady() Then
        Me.Hide
        Start_data_conv.Show vbModeless
        Exit Sub
    End If
    
    Me.Hide
    Call org_columns_rows
    Unload Me
End Sub

关键注意事项 #

• 调用窗体Show方法时不要加括号，否则会因参数按值传递引发对象错误
• 优先用Me.Hide隐藏窗体，而非Unload Me销毁对象，避免重载时的对象引用问题
• 数据检查时必须明确指定工作表对象，避免默认引用活动表导致的逻辑错误

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