excel - 从按钮调用 VBA 表单会导致 UserForm_Initialize 运行两次，从而破坏我的代码？

Question

您好，精彩的 VBA 社区，我对 vba 还很陌生，正在努力学习很多东西。预先感谢您查看我的代码以及我对所面临问题的描述。

我在页面上有一个调用新用户表单的按钮。

代码片段 1:

Sub btnShowDetails_Click()
    Call frmShowDeets.ShowDeets
End Sub

...调用“frmShowDeets”用户窗体中的下一段代码:

代码片段 2:

Public Sub ShowDeets()

Dim frm As frmShowDeets
Set frm = New frmShowDeets 'this line triggers the Userform_Initialize() event below
  frm.Show

End Sub

...触发:

代码片段 3:

Private Sub UserForm_Initialize()

Dim comboBoxItem As Range

For Each comboBoxItem In ContactList.Range("tblContactList[CompanyName]")
                                            '^refers to unique values in a named range
  With Me.boxCompanySelection
    .AddItem comboBoxItem.Value
  End With
Next comboBoxItem

End Sub

因此，此时，我要显示的表单已在其一个组合框中加载了值以供用户选择。用户选择一家公司，Combobox_Change 事件会触发提取该公司信息的其他例程。

代码片段 4:

Public Sub boxCompanySelection_Change()
  Call frmShowDeets.PullData
End Sub

Sub PullData()
Dim numCompanies As Long
  numCompanies = ContactList.Range("B6").Value 'this holds a count of the rows in the named range
Dim FoundCell As Range
  Set FoundCell = ContactList.Range("tblContactList[Company Name]").Find(What:=boxCompanySelection.Text, LookIn:=xlValues, LookAt:=xlWhole)

Dim CompanyRow As Long
  CompanyRow = FoundCell.Row

With ContactList
  'pull a bunch of the company's details
End With
End Sub

这就是奇怪的地方...一旦显示表单并且用户选择组合框项目之一，触发 Combobox_Change 事件，代码就会中断，因为 Range( 的 'What:=boxCompanySelection.Text' 部分) ).Find 方法读取为“”空(即使代码片段 3 旨在加载公司名称，而代码片段 4 仅在用户从组合框中选择这些公司名称之一时才会触发)，并且我不需要构建处理“未找到”异常的东西，因为唯一可能的值应该是从我的命名范围中提取的值。

通过单步执行代码，我确定由于某种原因，代码片段 2 和 3 在代码片段 4 运行之前运行两次。有谁知道我的代码是什么导致了这种情况发生？我认为显示并加载组合框值的表单与代码片段 4 从中读取数据的任何内容之间存在脱节。

更奇怪的是，如果我从代码片段 2 开始运行代码(忽略代码片段 1 中的按钮调用)，表单将按预期工作，并且据我所知，2 和 3 只运行一次。

问题可能是我忽略的简单问题，但我就是不知道它是什么。再次感谢!

Answer 1

您必须了解表单是一个对象 - 与任何其他类模块完全相同，只是表单恰好有一个设计器和一个基类，因此 UserForm1继承UserForm类的成员。

表单也有一个默认实例，许多教程只是愉快地跳过了这个非常重要但相当技术性的部分，这将我们准确地带到了 Stack Overflow 上，其中存在涉及全局状态的错误意外存储在默认实例上。

Call frmShowDeets.ShowDeets

假设 frmShowDeets 是表单类的名称，并假设这是对该表单的第一个引用，则运行的 UserForm_Initialize 处理程序默认实例在.点运算符执行并取消引用对象时运行。 然后 ShowDeets 方法运行。

Public Sub ShowDeets()

Dim frm As frmShowDeets
Set frm = New frmShowDeets 'this line triggers the Userform_Initialize() event below
  frm.Show

End Sub

该行在名为 frm 的本地实例上触发 UserForm_Initialize - 这是一个完全独立的对象，属于同一类。每当类的实例被初始化(即创建)时，Initialize 处理程序就会运行。 Terminate 处理程序在该实例被销毁时运行。

所以 ShowDeets 充当某种“工厂方法”，创建并显示 frmShowDeets 类/表单的新实例 - 换句话说，无论发生了什么除此之外，默认实例是无关紧要的:您正在使用的对象存在于 ShowDeets 范围内，名为 frm，一旦超出范围就会被销毁.

完全删除 ShowDeets 方法。替换这个:

Call frmShowDeets.ShowDeets

这样:

With New frmShowDeets
    .Show
End With

现在，Initialize 处理程序不再在默认实例上运行。

您想要的是完全避免使用默认实例。将表单代码隐藏中的所有 frmShowDeets 替换为 Me(请参阅 Understanding 'Me' (no flowers, no bees) )，以便不会意外地将状态存储在默认实例中。

Call frmShowDeets.PullData

变得简单:

Call Me.PullData

或者甚至:

PullData

因为 Call 在任何地方都不需要，并且当您在类模块的代码中进行成员调用时，Me 限定符始终是隐式的。