0

下面是我试图在多页用户窗体命令按钮上使用的代码。此按钮应首先检查您是否选择了 7 个选项按钮之一。如果您还没有，它应该要求您“选择站点”。如果您这样做了，那么根据您选择的选项，它应该为一大组命名文本框生成默认值。但是，当代码运行时，我收到一条错误消息，指出“选择案例和第一个案例之间的语句或标签无效”。我是在 VBA 中使用 Case 语句的新手，但我认为它可能比嵌套 if 更好。但是，看来我做错了什么，希望你们能帮我弄清楚是什么。

我使用的是 Excel 2013，但是该文件将在使用 Excel 2007 的机器上运行。

Private Sub SiteNext_Click()
If Me.OptionButton1.Value = False And Me.OptionButton2.Value = False And Me.OptionButton3.Value = False And Me.OptionButton4.Value = False And _
    Me.OptionButton5.Value = False And Me.OptionButton6.Value = False And Me.OptionButton7.Value = False Then
    MsgBox "Select Site"
    Exit Sub
Else

    Select Case Me.OptionButton1.Value = True

    LocalTier1.Value = "600"
    LocalTier2.Value = "250"
    LocalTier3.Value = "175"
    LocalTier4.Value = "125"
    LocalTier5.Value = "85"
    LocalTier6.Value = "65"
    LocalTier7.Value = "40"
    LocalTier8.Value = "25"
    LocalTier9.Value = "10"
    LocalTier10.Value = "5"
    LocalTier11.Value = "5"
    DriveTier1.Value = "600"
    DriveTier2.Value = "250"
    DriveTier3.Value = "175"
    DriveTier4.Value = "125"
    DriveTier5.Value = "85"
    DriveTier6.Value = "65"
    DriveTier7.Value = "40"
    DriveTier8.Value = "25"
    DriveTier9.Value = "10"
    DriveTier10.Value = "5"
    DriveTier11.Value = "5"
    OuterTier1.Value = "600"
    OuterTier2.Value = "250"
    OuterTier3.Value = "200"
    OuterTier4.Value = "150"
    OuterTier5.Value = "100"
    OuterTier6.Value = "75"
    OuterTier7.Value = "45"
    OuterTier8.Value = "30"
    OuterTier9.Value = "15"
    OuterTier10.Value = "10"
    OuterTier11.Value = "5"

    Case Me.OptionButton2.Value = True

    LocalTier1.Value = "250"
    LocalTier2.Value = "225"
    LocalTier3.Value = "150"
    LocalTier4.Value = "120"
    LocalTier5.Value = "80"
    LocalTier6.Value = "50"
    LocalTier7.Value = "25"
    LocalTier8.Value = "15"
    LocalTier9.Value = "10"
    LocalTier10.Value = "5"
    LocalTier11.Value = "5"
    DriveTier1.Value = "300"
    DriveTier2.Value = "225"
    DriveTier3.Value = "150"
    DriveTier4.Value = "120"
    DriveTier5.Value = "80"
    DriveTier6.Value = "50"
    DriveTier7.Value = "25"
    DriveTier8.Value = "15"
    DriveTier9.Value = "10"
    DriveTier10.Value = "5"
    DriveTier11.Value = "5"

    Case Me.OptionButton3.Value = True

    LocalTier1.Value = "200"
    LocalTier2.Value = "175"
    LocalTier3.Value = "125"
    LocalTier4.Value = "75"
    LocalTier5.Value = "60"
    LocalTier6.Value = "40"
    LocalTier7.Value = "20"
    LocalTier8.Value = "15"
    LocalTier9.Value = "10"
    LocalTier10.Value = "5"
    LocalTier11.Value = "5"
    DriveTier1.Value = "225"
    DriveTier2.Value = "200"
    DriveTier3.Value = "150"
    DriveTier4.Value = "100"
    DriveTier5.Value = "80"
    DriveTier6.Value = "60"
    DriveTier7.Value = "30"
    DriveTier8.Value = "20"
    DriveTier9.Value = "15"
    DriveTier10.Value = "10"
    DriveTier11.Value = "10"

    Case Me.OptionButton4.Value = True

    LocalTier1.Value = "175"
    LocalTier2.Value = "150"
    LocalTier3.Value = "100"
    LocalTier4.Value = "60"
    LocalTier5.Value = "45"
    LocalTier6.Value = "25"
    LocalTier7.Value = "10"
    LocalTier8.Value = "5"
    LocalTier9.Value = "5"
    DriveTier1.Value = "200"
    DriveTier2.Value = "175"
    DriveTier3.Value = "125"
    DriveTier4.Value = "100"
    DriveTier5.Value = "50"
    DriveTier6.Value = "30"
    DriveTier7.Value = "15"
    DriveTier8.Value = "10"
    DriveTier9.Value = "10"

    Case Me.OptionButton5.Value = True

    LocalTier1.Value = "175"
    LocalTier2.Value = "150"
    LocalTier3.Value = "100"
    LocalTier4.Value = "60"
    LocalTier5.Value = "40"
    LocalTier6.Value = "20"
    LocalTier7.Value = "15"
    LocalTier8.Value = "10"
    LocalTier9.Value = "5"
    LocalTier10.Value = "5"
    DriveTier1.Value = "175"
    DriveTier2.Value = "150"
    DriveTier3.Value = "100"
    DriveTier4.Value = "60"
    DriveTier5.Value = "40"
    DriveTier6.Value = "20"
    DriveTier7.Value = "15"
    DriveTier8.Value = "10"
    DriveTier9.Value = "5"
    DriveTier10.Value = "5"

    Case Me.OptionButton6.Value = True

    LocalTier1.Value = "75"
    LocalTier2.Value = "50"
    LocalTier3.Value = "30"
    LocalTier4.Value = "20"
    LocalTier5.Value = "15"
    LocalTier6.Value = "10"
    LocalTier7.Value = "5"
    DriveTier1.Value = "75"
    DriveTier2.Value = "50"
    DriveTier3.Value = "30"
    DriveTier4.Value = "20"
    DriveTier5.Value = "15"
    DriveTier6.Value = "10"
    DriveTier7.Value = "5"

    Case Me.OptionButton7.Value = True

    LocalTier1.Value = "50"
    LocalTier2.Value = "25"
    LocalTier3.Value = "20"
    LocalTier4.Value = "10"
    LocalTier5.Value = "5"
    LocalTier6.Value = "5"
    DriveTier1.Value = "50"
    DriveTier2.Value = "25"
    DriveTier3.Value = "20"
    DriveTier4.Value = "10"
    DriveTier5.Value = "5"
    DriveTier6.Value = "5"

    End Select

    Me.MultiPage1.Value = 1
End If

End Sub
4

1 回答 1

1

您可以使用通用的Select Case True. 它将评估每个案例并在第一个真实案例中执行操作：

Select Case True
    Case Me.OptionButton1.Value = True
    ' actions ...
    Case Me.OptionButton2.Value = True
    ' actions ...
End Select
于 2015-01-18T19:38:50.920 回答