excel - 设置多页值属性会使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

Lastly, on UserForm_Initialize(), setting the multipage control to the first page (e.g. value = 0) also crashes Excel.

在这种情况下，删除控件并重新创建它。如果仍然不能解决问题，那么您可能不得不重新创建表格...

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

Note the change to lower case that vba forces on my code - is that indicative of a problem? – Zephyr Mays 54 mins ago

当您声明一个具有相同名称的变量时，通常会发生这种情况

来自聊天:文件发布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)

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