设置多页值属性会使 Excel 崩溃

Question

我有一个多页用户窗体控件，其中包含两个页面和用于取消、返回、下一步和完成的按钮控件。

当我通过减去 1 在“后退”按钮子中设置 multipage.value 属性时，Excel 冻结/挂起。

Private Sub btn_Back_Click()
        ' Set the buttons
        Me.btn_Next.Enabled = True
        Me.btn_Finish.Enabled = False
        Me.btn_Back.Enabled = False
        Me.multipage_add_xfr.value = Me.multipage_add_xfr.value - 1
End Sub

通过添加 1 来“前进”到第二页的代码在 btn_Next_Click() 子中可以正常工作：

 Me.multipage_add_xfr.value = Me.multipage_add_xfr.value + 1

最后，在UserForm_Initialize() 上，将多页控件设置为第一页（例如 value = 0）也会导致 Excel 崩溃。

Me.multipage_add_xfr.value = 0

UPADTE 以下代码适用于在当前项目中创建的新用户表单，但旧用户表单不能。

Private Sub CommandButton1_Click()
      Me.CommandButton1.Enabled = False
      Me.CommandButton2.Enabled = True
      Me.MultiPage1.value = Me.MultiPage1.value + 1
End Sub

Private Sub CommandButton2_Click()
      Me.CommandButton2.Enabled = False
      Me.CommandButton1.Enabled = True
      Me.MultiPage1.value = Me.MultiPage1.value - 1
End Sub

Private Sub UserForm_Initialize()
      Me.CommandButton2.Enabled = False
      Me.CommandButton1.Enabled = True
      Me.MultiPage1.value = 0
End Sub

想法？

Answer 1

试试这个。

Private Sub btn_Back_Click()
    If multipage_add_xfr.Value < 1 Then Exit Sub '<~~ Add this one line

    Me.btn_Next.Enabled = True
    Me.btn_Finish.Enabled = False
    Me.btn_Back.Enabled = False
    Me.multipage_add_xfr.Value = Me.multipage_add_xfr.Value - 1
End Sub

最后，在 UserForm_Initialize() 上，将多页控件设置为第一页（例如 value = 0）也会导致 Excel 崩溃。

在这种情况下，删除控件并重新创建它。如果这仍然没有帮助，那么您可能需要重新创建表单...

您可能还想检查在Private Sub UserForm_Activate() 中将其设置为0 是否可以解决问题？

请注意 vba 强制我的代码更改为小写 - 这是否表明存在问题？ – Zephyr Mays 54 分钟前

这通常发生在您声明具有相同名称的变量时

来自聊天：File Post Mortem 证实了我的怀疑。声明了一个同名的变量。

Public Sub update(ByVal value As Long, _
                  Optional ByVal MaxValue As Long = 0, _
                  Optional ByVal Status As String = "", _
                  Optional ByVal DisplayPercent As Boolean = True)

Multipage 也已损坏。更换控件解决了问题。