这篇博客讨论了一段VBA代码，该代码用于根据用户在组合框中的选择来显示或隐藏Excel工作表中的选项卡。当用户选择一个选项时，对应的选项卡将显示，而其他六个选项卡则会隐藏，以防止用户错误地访问其他内容。作者在代码的最后尝试通过For-Each-Next循环来实现这一功能，但遇到了如何正确引用和处理框架及页面的问题。
我已经编写了VBA代码，根据组合框选择显示隐藏的选项卡 . 组合框中有七个选项，每个选项对应框架中的七个隐藏选项卡 .
Private Sub CBO_EntryType_Change()
Dim iPage As Integer
If Me.CBO_EntryType.Value = "Abstracts" Then
iPage = 1
ElseIf CBO_EntryType.Value = "Awards" Then
iPage = 2
ElseIf CBO_EntryType.Value = "Career Fairs" Then
iPage = 3
ElseIf CBO_EntryType.Value = "Editorials" Then
iPage = 4
ElseIf CBO_EntryType.Value = "Rankings" Then
iPage = 5
ElseIf CBO_EntryType.Value = "Tradeshows" Then
iPage = 6
ElseIf CBO_EntryType.Value = "Social Media" Then
iPage = 7
End If
Me.MultiPage1.Pages(iPage).Visible = True
End Sub
我似乎遇到麻烦的是，如何确保隐藏其他标签？由于人们只能在组合框中单击一个选项，但他们可能会错误地单击一个选项，然后单击正确的选项 . 根据组合框中的选定项目，只能看到一个选项卡 . 其他六个应该隐藏起来 .
我想在sub的末尾有一个For-Each-Next循环，它禁用任何与iPage变量不匹配的标签，但是我很难弄清楚如何在For Each Next循环中寻址框架和页面 . 变量声明是什么？
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
