如何修改VBA代码使E、F、G、H列实现Marlett单元格复选框功能？

直接调整列判断条件并优化字体逻辑，即可让E-H列（第5-8列）实现双击切换Marlett复选框的功能：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        ' 判断目标单元格是否在E-H列（对应列号5到8）
        If .Column >= 5 And .Column <= 8 Then
            Cancel = True
            ' 统一设置字体为Marlett，确保复选框样式正常显示
            .Font.Name = "Marlett"
            If .Value = "a" Then
                .Value = vbNullString
            Else
                .Value = "a"
            End If
        End If
    End With
End Sub

• 列范围调整：把原代码中仅限制D列（第4列）的If .Column = 4，改为判断列号在5到8之间，覆盖E、F、G、H四列，双击这些列的任意单元格都会触发功能。
• 字体设置优化：将.Font.Name = "Marlett"移到条件判断外层，确保无论单元格是设置复选框还是清空内容，字体始终保持Marlett，避免后续双击时因字体错误导致"a"无法显示为复选框样式。

如果偏好明确指定列号的写法，也可以用Or连接多个列判断，效果一致：

' 替换原判断条件为：
If .Column = 5 Or .Column = 6 Or .Column = 7 Or .Column = 8 Then

内容的提问来源于stack exchange，提问作者scottyac