ExcelcheckboxDoubleClick事件
我有一个电子表格,基本上是一个待办事项清单,检查点由checkbox标记。 checkbox的规则是:1)只有第一个checkbox(名为checkbox_1)可以先检查。 2)checkbox只能依次检查(即checkbox_1,checkbox_2,checkbox_3等)
最初除checkbox_1以外的所有checkbox都被禁用。 当一个启用的checkbox被点击时,下一个checkbox被启用并禁用前一个。
我现在遇到的麻烦是双击旁路checkbox的enabled
状态,并会继续,并通过事件处理程序检查checkbox。
我怎样才能防止这个? 我是否需要在_BeforeDoubleClick
事件处理程序中编写一些内容?
我的事件处理程序的checkbox_click事件在这里:
Public Sub CheckBoxClick(Optional checkboxName As String = "") 'This calls the checkbox function to create the timestamp and enable the next visible checkbox Dim assocTime As Range Dim callerName As String Dim aCaller As Variant Dim check_num As String Dim aCheckboxes As Variant Set aCheckboxes = common.GetSheet(1).CheckBoxes If checkboxName <> "" Then callerName = checkboxName Else callerName = Application.Caller End If aCaller = Split(callerName, "_") check_num = aCaller(1) Set assocTime = common.GetRange("time_" & check_num) If assocTime.value = "" Then Call obj.ClickCheckBox(callerName, Constants.mypw) End If If check_num = aCheckboxes.count Then If MainSheetFunctions.HasRedCells Then common.MessageBox ("This batch record has cells with errors. Please address all red cells before continuing.") Exit Sub End If End If End Sub
obj.ClickCheckBox
子将在相邻的单元格中写入当前时间,并启用下一个checkbox。
感谢您的时间,