Question

我想根据用户在用户表单上选择的标签为变量分配一个整数。我有3个标签，所以如果用户选择第二个标签，我想为该变量分配2的整数。

if tab2.Select = True then
    var1 = 2
end if

如何用VBA代码编写该代码以实现选择选项卡，并因此将整数分配给变量？

编辑：通过选项按钮，这些页面上还有按钮，我也想将用户的选择分配给变量。因此，如果用户选择一个选项，那么以下代码在语法上是否正确？

If OptionButton1.Value = True Then
    var2 = 1
ElseIf OptionButton2.Value = True Then
    var2 = 2
ElseIf OptionButton3.Value = True Then
    var2 = 3
End If

Answer 1

如果我正确理解了您的问题，我想您正在寻找一种捕获用户窗体上当前活动页面的方法，并根据选择内容将一些值复制到变量中。如果是，那么您可以实现以下目标：

Private Sub MultiPage1_Click(ByVal Index As Long)

Dim value_To_be_set as integer

    If Index = 0 Then

        value_To_be_set= 1

    ElseIf Index = 1 Then

        value_To_be_set= 2

    ElseIf Index = 2 Then

        value_To_be_set = 3

    End If

End Sub

希望有帮助

VBA如何捕获用户窗体上的选定选项卡？

1 个答案: