VBA宏调用报错：fixColumns中store_name变量未定义

错误根源 #

1. 主宏fixColumns中调用inputStoreName store_name时，store_name变量既未定义也未赋值，这是直接触发"变量未定义"错误的原因。
2. 当前用户窗体的调用逻辑混乱：CommandButton1_Click直接调用OKButton_Click，而OKButton_Click又跳过主宏直接执行inputStoreName，导致主宏完全无法获取用户输入的参数，流程逻辑完全脱节。

修正方案 #

调整流程逻辑，让主宏fixColumns主导整个流程：触发用户窗体→获取输入值→调用子过程处理单元格。以下是修正后的完整代码：

用户窗体代码（假设窗体包含文本框store、确定按钮OKButton、取消按钮CancelButton）

' 确定按钮点击事件：隐藏窗体，让主宏获取输入值
Private Sub OKButton_Click()
    Me.Hide
End Sub

' 取消按钮点击事件：隐藏窗体
Private Sub CancelButton_Click()
    Me.Hide
End Sub

标准模块代码（包含主宏与子过程）

Public Sub fixColumns()
    Dim store_name As String
    
    ' 以模态方式显示窗体，等待用户输入
    UserForm2.Show vbModal
    
    ' 获取用户输入值，随后卸载窗体
    store_name = UserForm2.store.Text
    Unload UserForm2
    
    ' 校验输入有效性，避免空值执行
    If Trim(store_name) <> "" Then
        inputStoreName store_name
    Else
        MsgBox "请输入门店名称！"
    End If
    
    ' 原有其他逻辑代码...
End Sub

Sub inputStoreName(ByRef store_name As String)
    Dim store_range As Range
    Dim cell As Range
    
    ' 示例：指定处理Sheet1中A列有数据的区域（可根据实际需求修改）
    Set store_range = ThisWorkbook.Sheets("Sheet1").Range("A2:A" & ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row)
    
    For Each cell In store_range
        ' 可选：跳过空单元格，避免无效拼接
        If cell.Value <> "" Then
            cell.Value = store_name & cell.Value
        End If
    Next cell
End Sub

修正关键点 #

• 主宏fixColumns主动触发用户窗体，通过vbModal模式确保用户完成输入后才继续执行后续逻辑。
• 用户点击确定后窗体仅隐藏，主宏可直接从窗体的文本框中读取输入值，避免变量作用域混乱。
• 主宏中定义并赋值store_name变量，调用inputStoreName时参数合法，不会再出现未定义错误。

内容的提问来源于stack exchange，提问作者Alice. M.