excel - 在用户窗体 Excel 上禁用键盘输入

Question

我目前有带有 79 个组合框的用户窗体，其中填充了所有相同的值 1-5。截至目前，如果用户错误地击键，我会收到错误消息。因为在组合框更改后它会创建一个计算，因为它不识别字符输入。所以我现在所做的是将组合框更改为 fmStyleDropDownList，它仅适用于仅添加组合框中列出的项目，现在的问题是，在组合框更改事件之后，我没有 if 语句来捕获输入的 0。如果我在整个项目中没有大约 3000 个组合框，那将不是问题，所以我的问题是如何在组合框中隐藏项目 0(如果我删除 0，计算会自动在组合框的位置放置一个 0为了使计算工作)或者如果任何组合框文本等于0，则可以向用户窗体添加控件，然后frm？whatever.show。

 Dim ctrl As Control
 For Each ctrl In Me.Controls
 If TypeOf ctrl Is MSForms.ComboBox Then
    With ctrl
        .AddItem "1"
        .AddItem "2"
        .AddItem "3"
        .AddItem "4"
        .AddItem "5"
        .AddItem "0"


    End With
End If
Next ctrl

Answer 1

在组合框按键事件中测试按键输入。

Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'Test for zero being pressed.
    If KeyAscii = 48 Then
        'If we get a zero entered, change it to nothing.
        KeyAscii = 0
    End If
End Sub