如何在多个VBA用户表单中使用公共Range变量？

嘿，我帮你梳理下代码里的问题点，调整后就能正常调用公共变量了：

核心问题分析 #

你已经声明了Public变量，但还是用不了，主要是几个细节没处理好：

• 公共变量的引用不明确：在UserForm2里直接用FillRange，VBA无法识别它是UserForm1里的公共变量，必须明确指定所属的窗体实例。
• Range对象的判断逻辑错误：不能直接把Range对象和空字符串""比较，应该用Is Nothing来判断是否找到目标单元格。
• 对象赋值/拼写错误：代码里存在拼写错误（比如UserFrom1），还有给Range单元格赋值时的写法问题。

修正后的代码 #

UserForm1 修正版 #

Public FillRange As Range
Public BKref As Variant

Private Sub CommandButton1_Click()
    On Error GoTo errhndlr
    
    ' 查找目标单元格
    Set FillRange = Sheets("Loader").Cells.Find(TextRef.Value)
    
    ' 先判断是否找到单元格
    If Not FillRange Is Nothing Then
        ' 偏移到目标区域
        Set FillRange = FillRange.Offset(0, 2)
        BKref = TextRef.Value
        
        UserForm1.Hide
        UserForm2.Show
    Else
        MsgBox "Booking Reference cannot be empty or not found!", vbCritical, "Error"
        UserForm1.Hide
    End If
    
    Exit Sub
    
errhndlr:
    MsgBox "Booking reference not found, please double-check that the booking reference you've entered is correct, alternatively update it manually.", vbCritical, "Error"
    UserForm1.Hide ' 修正拼写错误：UserFrom1 → UserForm1
End Sub

UserForm2 修正版 #

Private Sub CommandButton1_Click()
    ' 先确认UserForm1的FillRange不为空
    If Not UserForm1.FillRange Is Nothing Then
        ' 给单元格赋值，明确使用.Value
        UserForm1.FillRange.Value = TextPloaded.Value
        UserForm1.FillRange.Offset(0, 2).Value = TextTime.Value
        UserForm1.FillRange.Offset(0, 3).Value = TextLoader.Value
        
        ' 处理备注栏
        If TextComm.Value <> "" Then
            UserForm1.FillRange.Offset(0, 4).Value = TextComm.Value
        Else
            UserForm1.FillRange.Offset(0, 4).Value = ""
        End If
        
        ' 校验托盘数量
        If UserForm1.FillRange.Value <> UserForm1.FillRange.Offset(0, -1).Value Then
            MsgBox "Actual and Planned pallets doesn't match, please highlight the discrepancies on the assembly sheet!"
            Dim currentBKref As Variant
            currentBKref = UserForm1.FillRange.Offset(0, -2).Value
            
            With Sheets("Assembly")
                .Activate
                .Rows(1).AutoFilter Field:=16, Criteria1:=currentBKref
            End With
            UserForm2.Hide
        Else
            UserForm2.Hide
            UserForm1.Show
        End If
    Else
        MsgBox "No valid range selected!", vbCritical, "Error"
        UserForm2.Hide
        UserForm1.Show
    End If
End Sub

关键调整说明 #

1. 明确引用公共变量：在UserForm2里所有用到FillRange和BKref的地方，都加上UserForm1.前缀，告诉VBA这个变量属于UserForm1的实例。
2. 正确判断Range对象：用If Not FillRange Is Nothing替代If Not FillRange = ""，这是VBA里判断对象是否存在的标准写法。
3. 修正拼写错误：把错误的UserFrom1改成UserForm1，避免运行时错误。
4. 规范单元格赋值：给单元格赋值时最好明确写出.Value，让代码更清晰，也避免潜在的类型问题。

内容的提问来源于stack exchange，提问作者K. Robert