设置组合框的一些属性（滚动、编辑、跳转）

Question

我想为一些 VBA 表单组合框设置 3 个属性，但我不知道是否可行。 我不想让组合框可编辑。现在，如果用户在其中输入内容并提交表单，它将发送该值...我想让他仅从我在组合框中添加的值中进行选择。 我想让组合框中的项目列表可滚动。现在，如果使用滚动条，我可以滚动列表，但我不知道为什么不能使用鼠标滚动来滚动。 如果我开始打字，我想跳到某个项目。假设我在一个组合框中有一年中的月份...如果我开始输入 mar 我希望它跳到三月。我知道对于 html 表单来说，这个属性是默认的，但我不知道 VBA 表单... 多谢

Answer 1

在您想要的行为中，有些可以通过组合上的设置实现，其他则需要对

1. 月份列表进行编码：将条目列表放在（隐藏）工作表上并命名范围。将 .RowSource 设置为该范围
2. 键入时匹配：设置属性 .MatchEntry = fmMatchEntryComplete 和 .MatchRequired = True
3. 拒绝非列表条目：组合使用这些设置将允许您键入无效条目，但在提交时会拒绝它并弹出错误消息。如果您想在键入时默默地拒绝无效数据，则需要对其进行编码。
4. 如果您希望将所选值返回到工作表，请将 .ControlSource 设置为单元格地址（最好是命名范围）
5. 通过“...用鼠标滚动滚动...” 我假设你指的是鼠标滚轮。不幸的是，表单不支持鼠标滚轮滚动。您必须自己编写代码。有一个针对此问题的 Microsoft 补丁 此处（我自己还没有尝试过）

静默拒绝无效条目的示例代码

Private Sub cmbMonth_Change()
    Static idx As Long
    Dim Match As Boolean
    Dim i As Long

    If cmbMonth.Value = "" Then Exit Sub
    If idx = 0 Then idx = 1
    i = idx
    Match = False
    For i = 0 To cmbMonth.ListCount
        If cmbMonth.List((i + idx - 1) Mod cmbMonth.ListCount) Like cmbMonth.Value & "*" Then
           cmbMonth.ListIndex = (i + idx - 1) Mod cmbMonth.ListCount
           Match = True
           Exit For
        End If
    Next
    If Not Match Then
        cmbMonth.Value = Left(cmbMonth.Value, Len(cmbMonth.Value) - 1)
    End If
End Sub

Answer 2

将组合框的属性 MatchEntry 设置为 1 (fmMatchEntryComplete)，并将 MatchRequired 设置为 true，例如

combobox1.MatchEntry=1
combobox1.MatchRequired=True

[] 的