防止使用箭头键循环处理用户表单复选框

Question

我为每日考勤日志创建了一个带有一系列复选框的用户表单。

每个必需的与会者都有一个复选框，宏将其转储到 Excel 的日志中。

一切正常，除了使用箭头键在复选框之间移动会导致它们被选中！

使用选项卡循环不会执行此操作。

我注意到它只是在释放箭头键时。

Answer 1

我有同样的问题。以下是我的解决方法：

• 声明一个公共变量（例如，键盘）
• 对于用户表单中的每个复选框，为 _KeyUp 创建事件 Subs
• 在每个 Subs 中，检查是否按下了箭头键之一；如果是这样，转 键盘为真。
• 创建事件 Subs 来检查keyboard = true，如果是，撤消.value = true .value = false

我使用了一个函数 (arrowModerator) 来处理这一切，因为对于其他复选框，如果 arrowModerator 为真，则会发生其他事情）。这是我的两个复选框的样子：

Public keyboard As Boolean      ‘or Private keyboard as Boolean


Private Sub CB_3_Change()
    Call arrowModerator(Visit2, -1, "3")        ‘Visit2 is the name of my userForm 
End Sub
Private Sub CB_4_Change()
    Call arrowModerator(Visit2, -1, "4")
End Sub


Private Sub CB_3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Call arrowModerator(Visit2, CInt(KeyCode))
End Sub
Private Sub CB_4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Call arrowModerator(Visit2, CInt(KeyCode))
End Sub


Public Function arrowModerator(ByRef uForm As UserForm, keyboardInt As Integer, Optional cbString As String)
    If keyboardInt = -1 Then
        If keyboard = True Then
            uForm.Controls("CB_" & cbString).value = False
            keyboard = False
        ElseIf uForm.Controls("CB_" & cbString).value = True Then
            arrowModerator = True
        End If
    ElseIf keyboardInt > 36 And keyboardInt < 41 Then
        keyboard = True
    End If
End Function

当 (formName)_Change、_AfterUpdate、_Exit、_Enter 与 _keyPress、_keyDown 和 _keyUp 绑定时，我发现它们的顺序非常混乱。我发现 _Change 事件发生在 _keyUp 事件之后，所以基本上上面的过程会捕获“更改”（也就是将复选框变为 .value = true）并将其反转。

Answer 2

• 在 VBEditor 中选择用户窗体
• 按 F4
• 按类别排序
• 在“循环”下方找到“已启用”
• 选择“假”