Question

我有一个值为的Combobox：＆＃34; none＆＃34;，＆＃34; 1＆＃34;，＆＃34; 2＆＃34;，＆＃34; 3＆＃34;和＆＃34; 4＆＃34;。我希望看到Combobox显示的页数。我怎样才能做到这一点？即组合框= 3 - 第1,2和3页变得可见。

Answer 1

替代方案：

Private Sub ComboBox1_Change()  ' Could also use a number spinner to control user input
Dim pgCount as Short
    ' Some data validation
    pgCount = IIf(isnumeric(ComboBox1.Text),CShort(ComboBox1.Text),0)
    pgcount = iif(pgCount >= 0 and pgCount < 5, pgCount,0)

    Me.MultiPage2(0).Visible = pgCount > 0
    Me.MultiPage2(1).Visible = pgCount > 1
    Me.MultiPage2(2).Visible = pgCount > 2
    Me.MultiPage2(3).Visible = pgCount > 3
End Sub

用户输入的数据验证始终很重要 - 如何处理错误的输入？一个更好的问题是：如何防止输入错误。

一点解释：

数据验证首先检查用户是否输入了代表数字的内容
如果输入类似于数字，则将其转换为数字。在这种情况下，将其转换为Short会删除用户可能输入的任何小数位。
如果输入与数字不相似，请改用0（软失败）
如果转换的数字介于0（＆＃34;无＆＃34;）和4之间，则为OK，否则将其设置为0（另一个软失败）。
[数据转换结束]
接下来的四行使用简单的布尔逻辑来确定是否应显示选项卡。我用你的答案代码来确定逻辑。

Answer 2

终于搞定了

Private Sub ComboBox1_Change()
Select Case ComboBox1.Text
Case "none"
Me.MultiPage2(0).Visible = False
Me.MultiPage2(1).Visible = False
Me.MultiPage2(2).Visible = False
Me.MultiPage2(3).Visible = False
Case "1"
Me.MultiPage2(0).Visible = True
Me.MultiPage2(1).Visible = False
Me.MultiPage2(2).Visible = False
Me.MultiPage2(3).Visible = False
Case "2"
Me.MultiPage2(0).Visible = True
Me.MultiPage2(1).Visible = True
Me.MultiPage2(2).Visible = False
Me.MultiPage2(3).Visible = False
Case "3"
Me.MultiPage2(0).Visible = True
Me.MultiPage2(1).Visible = True
Me.MultiPage2(2).Visible = True
Me.MultiPage2(3).Visible = False
Case "4"
Me.MultiPage2(0).Visible = True
Me.MultiPage2(1).Visible = True
Me.MultiPage2(2).Visible = True
Me.MultiPage2(3).Visible = True
End Select
End Sub

Excel VBA：根据Combobox选择隐藏页面

2 个答案: