根据表单选项buttonselect大小写

我有一个表单设置了几个参数。 我已经设置了两个选项button“滚动”和“一次”我的表格。 我想把这个设置为一个条件来select使用哪种情况。 例如，如果select“一次”，则使用select大小写而不使用扩展使用select大小写使用扩展。 下面的代码是我现在不知道我是否正确地做这个条件。

If OnetimeOption.value = True Then Select Case MonthComboBox.value Case "Week One" iCol = "BB" Case "Week Two" iCol = "BC" Case "Week Three" iCol = "BD" Case "Week Four" iCol = "BE" Case "Week Five" iCol = "BF" Case "Week Six" iCol = "BG" Case "One Seven" iCol = "BH" Case "One Eight" iCol = "BI" Case "One Nine" iCol = "BJ" Case "One Ten" iCol = "BK" Case "One Eleven" iCol = "BL" Case "One Twelve" iCol = "BM" End Select Else nExtend = 1 'Set this as a default. Select Case MonthComboBox.value Case "Week One" iCol = "BB" nExtend = 12 Case "Week Two" iCol = "BC" nExtend = 11 Case "Week Three" iCol = "BD" nExtend = 10 Case "Week Four" iCol = "BE" nExtend = 9 Case "Week Five" iCol = "BF" nExtend = 8 Case "Week Six" iCol = "BG" nExtend = 7 Case "One Seven" iCol = "BH" nExtend = 6 Case "One Eight" iCol = "BI" nExtend = 5 Case "One Nine" iCol = "BJ" nExtend = 4 Case "One Ten" iCol = "BK" nExtend = 3 Case "One Eleven" iCol = "BL" nExtend = 2 Case "One Twelve" iCol = "BM" nExtend = 1 End Select End If 

Answer 1

如果两个Select Case使用相同的一组值，我会以不同的方式写它。 但他们没有。 但是，我会结合具有相同结果的案例。

 If OnetimeOption.Value = True Then Select Case MonthComboBox.Value Case "Week One" iCol = "C" Case "Week Two" iCol = "N" Case "Week Three" iCol = "O" Case "Week 4" iCol = "P" Case "Week 5", "Week 6", "One Month" iCol = "Q" End Select Else nExtend = 1 'Set this as a default. Select Case MonthComboBox.Value Case "Week One" iCol = "C" Case "Week One" iCol = "N" nExtend = 4 Case "Current Month +2" iCol = "O" nExtend = 3 Case "Current Month +3" iCol = "P" nExtend = 2 Case "Current Month +4" iCol = "Q" End Select End If