gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-03 02:24:22 30 4
gpt4 key购买 nike

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

代码

'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

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

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

提前致谢......

最佳答案

您可以设置多页的属性:

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

记住它以0开头

关于vba - 如何使用 VBA 代码选择/打开多页(用户窗体)下可用的页面,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48637482/

30 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com