嗨leoflute，按下后 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口，请双击 的ThisWorkbook 打开 本工作簿（代码） 窗口，然后将下面的代码复制到代码窗口中。 不要忘记更改代码中的工作表名称和单元格范围。 Private Sub Workbook_SheetBeforeDoubleClick（ByVal Sh 作为对象，ByVal 目标作为范围，取消作为布尔值）
'更新者 Extendoffice 20201012
将 xStrRg、xStrWs、xStrWsName 调暗为字符串
将 xEEBol、xWSNBol、xBol 调暗为布尔值
暗淡 xArrWs
暗淡 xArrRg
将 xI、xJ 调暗为整数
将 xWs 调暗为工作表
将 xRg 调暗为范围

xStrWs = "表 5、表 1、表 2" '具体的工作表名称
xStrRg = "B3：B10" '您将插入复选标记的单元格范围
xArrWs = 拆分（xStrWs，“，”）
xArrRg = 拆分（xStrRg，“，”）

xEEBol = Application.EnableEvents
Application.EnableEvents = False
出错时继续下一步
xStrWsName = Sh.Name
xBol = 假
xWSNBol = 假
对于 xI = 0 到 UBound(xArrWs)
如果 xStrWsName = xArrWs(xI) 那么
xWSNBol = 真
退出
结束如果
下一个

如果 xWSNBol 则
设置 xWs = Application.Worksheets.Item(xArrWs(xI))
对于 xJ = 0 到 UBound(xArrRg)
设置 xRg = Sh.Range(xArrRg(xJ))
If Not Intersect(Target, xRg) 则什么都不是
xBol = 真
退出
结束如果
下一个
结束如果

如果 xBol 那么
如果 ActiveCell.Value = ChrW(&H2713) 那么
ActiveCell.ClearContents
其他
ActiveCell.Value = ChrW(&H2713)
结束如果
取消 = 真
结束如果
Application.EnableEvents = xEEBol
END SUB

嗨，尤利西斯·诺纳托，
如果您想通过单击鼠标为单元格添加复选标记，以下 VBA 代码可以帮到您。
你需要点击 鼠标右键 按钮激活代码。

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

嗨索拉，
下面的 VBA 代码可以帮你一个忙。 请试一试。 谢谢你。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub