VBA根据活动工作表激活用户表单选项卡答案

【问题标题】：VBA Activate Userform Tab depending on active worksheetVBA根据活动工作表激活用户表单选项卡
【发布时间】：2021-04-19 03:32:10
【问题描述】：

我有一个用户表单，其中包含许多与特定工作表相关的选项卡。我正在尝试根据初始化用户窗体时的活动工作表来激活特定选项卡。有人可以帮我看看吗？

谢谢。

Private Sub UserForm_Initialize()

If ActiveSheet.Name = "Test1" Then
    MultiPageSheets.SelectedItem.Index = 0

ElseIf ActiveSheet.Name = "Test2" Then
    MultiPageSheets.SelectedItem.Index = 1

ElseIf ActiveSheet.Name = "Test3" Then
    MultiPageSheets.SelectedItem.Index = 2

ElseIf ActiveSheet.Name = "Test4" Then
    MultiPageSheets.SelectedItem.Index = 3

End If

End Sub

【问题讨论】：

我相信这只是Multipage.Value = X 而不是Multipage.SelectedItem.Index = X

标签： excel vba tabs userform multipage

【解决方案1】：

试试：

Private Sub UserForm_Initialize()

If ActiveSheet.Name = "Test1" Then
    MultiPageSheets.Value = 0

ElseIf ActiveSheet.Name = "Test2" Then
    MultiPageSheets.Value = 1

ElseIf ActiveSheet.Name = "Test3" Then
    MultiPageSheets.Value = 2

ElseIf ActiveSheet.Name = "Test4" Then
    MultiPageSheets.Value = 3

End If

End Sub

【讨论】：