vba - 用户表单初始化

Question

在我的用户表单初始化中，我已将 optionbutton1 和 optionbutton4 的值默认设置为 true。有四个选项按钮。如果用户单击任何其他选项按钮，我希望以下内容成为图表标题。

我已经调用了与命令按钮相关的子过程:

Sub ChartName()
    If UserForm1.OptionButton1.value = True And UserForm1.OptionButton3.value = True Then
        ActiveChart.ChartTitle.Text = "First Case"
    ElseIf UserForm1.OptionButton2.value = True And UserForm1.OptionButton3.value = True Then
        ActiveChart.ChartTitle.Text = "Second Case"
    ElseIf UserForm1.OptionButton1.value = True And UserForm1.OptionButton4.value = True Then
        ActiveChart.ChartTitle.Text = "Third Case"
    ElseIf UserForm1.OptionButton2.value = True And UserForm1.OptionButton4.value = True Then
        ActiveChart.ChartTitle.Text = "Fourth Case"
End Sub

但是，无论用户选择什么，默认的 optionbutton1 和 optionbutton3 都会被视为 true，因此始终显示“First Case”。

有人可以向我建议如何解决这个问题吗？

Answer 1

对你的情况了解得不够多。试试这个:

Sub ChartName()
    If UserForm1.OptionButton1.Value = True And UserForm1.OptionButton3.Value = True Then
        ActiveChart.ChartTitle.Text = "First Case"
        Exit Sub
    End If

    If UserForm1.OptionButton2.Value = True And UserForm1.OptionButton3.Value = True Then
    ActiveChart.ChartTitle.Text = "Second Case"
        Exit Sub
    End If

    If UserForm1.OptionButton1.Value = True And UserForm1.OptionButton4.Value = True Then
        ActiveChart.ChartTitle.Text = "Third Case"
        Exit Sub
    End If

    If UserForm1.OptionButton2.Value = True And UserForm1.OptionButton4.Value = True Then
        ActiveChart.ChartTitle.Text = "Fourth Case"
        Exit Sub
    End If

End Sub