输入键模拟点击不适用于复选框

Question

我已经复制并稍微修改了this post 底部的代码，以允许在我创建的工作表表单上的表单控件之间切换。这是与 KeyCode = vbKeyEnter 相关的部分：

Select Case KeyCode
Case vbKeyTab
    Dim Backward As Boolean
    Backward = (Shift And fmShiftMask)

    Call MoveFocus(Cntrl:=Cntrl, TabIndex:=TabIndex, Backward:=Backward)

Case vbKeyEnter
    Select Case TypeName(Cntrl)
    Case TxtBoxType
        If Not (Cntrl.EnterKeyBehavior And Cntrl.MultiLine) Then
            Call MoveFocus(Cntrl:=Cntrl, TabIndex:=TabIndex)
        End If
    Case Else
        On Error Resume Next
        Application.Run Sheet1.CodeName & "." & Cntrl.name & "_Click"
        On Error GoTo 0
    End Select
End Select

该代码适用于在控件之间向前和向后切换。但是，我在使用回车键检查和取消选中复选框控件时遇到了麻烦。它适用于选项按钮，但不适用于复选框。如果我将CheckBox1.Value = True 添加到 CheckBox1_Click 事件中，它可以检查它是否为真，但自然不会允许它取消选中为假。我尝试添加以下 IF 语句以根据当前值将其设置为 true 或 false，但没有任何反应。

If CheckBox1.Value = True Then
    CheckBox1.Value = False
Else
    CheckBox1.Value = True
End If

另一个注意事项：当我按 Enter 并且表单控件没有任何反应时，它会将活动单元格向下移动到活动列。有什么建议吗？

Answer 1

^{这可能是也可能不是编程问题的答案；我会让选民决定。}
Q.输入键模拟单击不适用于复选框

你为什么要这么做？您正在花费时间和精力故意“破坏”一个工作系统。 spacebar 长期以来一直是打开和关闭复选框的公认按键，Tab 和 Shift+Tab 是用于在表单控件之间导航，Enter↵ 是 OK 的默认值。

我所说的“工作系统”是指整个 Mac/Windows/Linux GUI 系统，以及经过长期定义的标准实践培训的数百万人。您可以将鼠标从任何称职的办公室工作人员手中拿走，他们的工作效率不会受到影响。他们可以浏览系统和应用程序来执行他们的工作，因为系统中的所有内容，从设置视频分辨率到将员工的考勤卡数据输入自定义表单工作方式相同。

让一个 Windows 用户把他们放在他们的第一台 Mac 前。他们可以使用这些程序并完成工作，因为绝大多数操作（尤其是应用程序基本操作的操作）都是相同的。将 Mac 用户放在 Linux 机器前，你会得到相同的结果。机器的基本日常操作和程序都是一样的。

如果您要创建一个专有系统，将他们所有的培训、实践和经验都扔到窗外，那么任何寻找工作的潜在申请人带着一份充满办公室经验的简历有什么意义？

使用 空格键 来打开和关闭复选框早于 Windows 3.0。制造更好的捕鼠器和重新发明轮子是有区别的¹。

---

¹ _{如果您不认为维护 GUI 标准是一件值得努力的事情，请考虑一下 Office 2007 功能区造成的强烈反对。催生了一个致力于生产带回 Office 2003 功能的附加组件的整个子行业。}