vba - 如何使用 VBA 代码选择/打开多页(用户窗体)下可用的页面

Question

我正在尝试向用户提示一条消息，以选择用户表单上每个页面(多页选项)下的至少一个可用复选框，并将其导航到该页面以选择该复选框

代码

'this will check whether any checkbox selected, if not it will prompt to select any one
If UF1_Revenue_Location_Role_Srch.Revenue_Loc_CheckBox1.Value = True And Not _
    (UF2_Revenue_DailyRate.MultiPage1.Page1.Revenue_Ind_CheckBox1.Value = True _
    Or UF2_Revenue_DailyRate.MultiPage1.Page1.Revenue_Ind_CheckBox2.Value = True _
    Or UF2_Revenue_DailyRate.MultiPage1.Page1.Revenue_Ind_CheckBox3.Value = True _
    Or UF2_Revenue_DailyRate.MultiPage1.Page1.Revenue_Ind_CheckBox4.Value = True _
    Or UF2_Revenue_DailyRate.MultiPage1.Page1.Revenue_Ind_CheckBox5.Value = True) Then
MsgBox "To Proceed: Kindly select atleast one Designation under Location India"
UF2_Revenue_DailyRate.MultiPage1.Page1.Show
    Call UserForm_Initialize

Else

 If UF1_Revenue_Location_Role_Srch.Revenue_Loc_CheckBox2.Value = True And Not _
    (UF2_Revenue_DailyRate.MultiPage1.Page2.Revenue_Ger_CheckBox1.Value = True _
    Or UF2_Revenue_DailyRate.MultiPage1.Page2.Revenue_Ger_CheckBox2.Value = True _
    Or UF2_Revenue_DailyRate.MultiPage1.Page2.Revenue_Ger_CheckBox3.Value = True _
    Or UF2_Revenue_DailyRate.MultiPage1.Page2.Revenue_Ger_CheckBox4.Value = True _
    Or UF2_Revenue_DailyRate.MultiPage1.Page2.Revenue_Ger_CheckBox5.Value = True) Then
MsgBox "To Proceed: Kindly select atleast one Designation under Location Germany"
UF2_Revenue_DailyRate.MultiPage1.Page2.Select
    Call UserForm_Initialize

在上面的代码中，我尝试使用选择选项和显示选项打开页面

UF2_Revenue_DailyRate.MultiPage1.Page1.Show
UF2_Revenue_DailyRate.MultiPage1.Page2.Select

但它们都没有真正起作用。

有没有其他方法可以向用户打开此页面，以便他们可以轻松地从中选择复选框，而不是逐个选择页面？

提前致谢......

Answer 1

您可以设置多页的属性值:

UF2_Revenue_DailyRate.MultiPage1.Value = 0 'Page1
UF2_Revenue_DailyRate.MultiPage1.Value = 1 'Page2

记住它以0开头