大家早上好,

我在Excel用户窗体中有一个ComboBox和一个MultiPage。我要创建的是一个Sub,它基本上将名称不等于ComboBox选择的所有MultiPage页面的Visibility设置为0,但是我陷入了困境。

 Sub changeMultiPageVisibility()
 If userForm.templateComboBox = "Criteria1" Then While
 multiPage.Names <> userForm.templateComboBox Set multiPage.Pages.Visible = 0


我仍然不熟悉VBA和UserForms,如果有人可以指出正确的方向,我将不胜感激。谢谢!

最佳答案

我会将以下代码用于ComboBox更改事件:

Private Sub templateComboBox_Change()
    Dim p As MSForms.Page

    For Each p In MultiPage.Pages
        p.Visible = (p.Name = templateComboBox.Value)
    Next
End Sub

09-30 09:30