尽管运行-Time Error 91，Userform 仍然有效。发生了什么事？

Question

我是用户表单的新手。我创建了以下从子例程调用的用户窗体。用户窗体从 sheet 中选取一个运行ge 并创建相应数量的文本框，然后创建复选框，以便用新名称分配原始名称。

使用以下内容创建用户表单：

Public Sub UserForm_Initialize()

    'Declare variables
    Dim txtBox As MSForms.TextBox
    Dim comBox As MSForms.ComboBox
    Dim i As Integer
    Dim j As Integer
    Dim n As Integer
    Dim dist As Integer
    Dim dstArr As Variant
    Dim rng As Range
    
    'Assign variables
    Set rng = Range("Missing_MAERSK")
    n = rng.Rows.Count
    dist = 5
    dstArr = Range("LU_Destination_Ports").Value
    
    'Loop to add textboxes
    For i = 1 To n
        Set txtBox = UserForm1.Controls.Add("Forms.TextBox.1", Visible:=True)
        With txtBox
            .name = "txtBox" & i
            .Value = rng(i)
            .Height = 20
            .Width = 150
            .Left = 81
            .Top = 30 + dist
            .Font.Size = 10
        End With
        dist = dist + 20
    Next i
    
    'Loop to add list boxes
    dist = 5
    For j = 1 To n
        Set comBox = UserForm1.Controls.Add("Forms.ComboBox.1", Visible:=True)
        With comBox
            .name = "comBox" & j
            .List = dstArr
            .Height = 20
            .Width = 150
            .Left = 315
            .Top = 30 + dist
            .Font.Size = 10
        End With
        dist = dist + 20
    Next j
    
    'Show userform
    UserForm1.Show
    
End Sub

然后单击“替换名称”按钮时，以下是运行：

Public Sub CommandButton1_Click()

    'Close userform
    Unload UserForm1
    
    'This is the one
    Dim cmb As MSForms.ComboBox
'   Dim txt As MSForms.TextBox
    Dim oldVal As String
    Dim newVal As String
    Dim rng As Range
    Dim rng2 As Range
    Dim n As Integer
    Set rng = Range("MAERSK_Destin")
    Set rng2 = Range("Missing_MAERSK")
    n = rng2.Rows.Count
    
    'Loop
    For i = 1 To n
        Set txt = Me.Controls("txtBox" & i)
        Set cmb = Me.Controls("comBox" & i)
            If cmb.Value <> "" Then
                oldVal = txt.Value
                newVal = cmb.Value
                rng.Replace what:=oldVal, Replacement:=newVal
            End If
    Next i
    
End Sub

假设我将曼谷填充到曼谷 BMT，我得到以下信息：

我认为问题可能在于我调用 Command_Button1_Click 子中的值的方式。

如有任何建议，我们将不胜感激。

干杯

Answer 1

找到问题了。

根据这个post：

不应从用户窗体外部初始化用户窗体。

我是用我的潜艇给 UserForm_Initialize() 打电话的，所以为了纠正这个问题，我将其替换为 UserForm1.Show

尽管运行-Time Error 91，Userform 仍然有效。发生了什么事？

Userform works despite Run-Time Error 91. What's going on?

excel

vba

userform

尽管 运行-Time Error 91，Userform 仍然有效。发生了什么事？

Userform works despite Run-Time Error 91. What's going on?

excel

vba

userform

尽管运行-Time Error 91，Userform 仍然有效。发生了什么事？