VBA步进运行子过程时用户窗体黄色指示器异常行为咨询

问题根源 #

在VBA中，只要通过窗体名称直接引用它的任何成员（包括属性、方法），VBA就会自动隐式创建该窗体的实例并触发UserForm_Initialize事件——哪怕你只是读取它的Visible属性，并没有调用Show方法。

你代码里的If frmDaftarHarga.Visible = True这行，当窗体还未加载时，引用frmDaftarHarga.Visible会触发VBA自动加载窗体（执行Initialize），但因为没调用Show，窗体不会显示，之后才进入Else分支执行后续代码。

解决方法 #

要避免这种隐式加载，需要先判断窗体是否已被实例化（存在于内存中），可以通过遍历UserForms集合来实现：

步骤1：添加窗体加载检查函数 #

在标准模块中添加以下代码：

Function IsLoaded(formName As String) As Boolean
    Dim frm As Object
    For Each frm In VBA.UserForms
        If frm.Name = formName Then
            IsLoaded = True
            Exit Function
        End If
    Next frm
    IsLoaded = False
End Function

步骤2：修改原工作表事件代码 #

把原判断逻辑改成先检查窗体是否加载，再判断可见性：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Rows.Count > 1 Or Selection.Columns.Count > 1 Then Exit Sub
    Dim rgPrice As Range

    Set rgPrice = Range("B6", Range("B24").End(xlUp)).Offset(0, 2)

    If Not Intersect(Target, rgPrice) Is Nothing Then
        ' 先检查窗体是否已加载，避免隐式触发Initialize
        If IsLoaded("frmDaftarHarga") Then
            If frmDaftarHarga.Visible = True Then
                If InStr(frmDaftarHarga.cbByNamaByTgl.Value, "Nama") Then
                    frmDaftarHarga.PopLB_ByNama
                Else
                    frmDaftarHarga.PopLB_ByTgl
                End If
            End If
        Else
            ' 窗体未加载时直接执行此处，不会触发Initialize
            frmDaftarHarga.Show vbModeless
        End If
    End If
End Sub

补充说明 #

• 推荐使用显式实例化窗体的写法，从根源避免隐式加载问题：

  Dim myFrm As New frmDaftarHarga
  myFrm.Show vbModeless
  

  这种方式只有在你显式创建实例时才会触发Initialize，不会因误引用属性提前加载。

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