用户窗体复选框勾选后，数据库工作表对应列着色的VBA代码求助

• 原代码失效原因：Range("I") 不是合法的整列引用写法，VBA无法识别该语法来定位I列。
• 正确整列引用方式：可使用 Columns("I") 或 Range("I:I") 来指定目标整列。

修正后的完整交互代码 #

如果需要实现「勾选时填充红色，取消勾选时恢复默认无填充」的完整逻辑，将以下代码放在复选框的Click事件中：

Private Sub CBThickness_Click()
    With Sheets("Database Adjustment").Columns("I")
        If CBThickness.Value = True Then
            .Interior.Color = vbRed
        Else
            .Interior.Color = xlNone ' 取消填充色，恢复工作表默认样式
        End If
    End With
End Sub

仅勾选触发填充的简化代码 #

如果只需要处理勾选时的填充逻辑（不考虑取消勾选的恢复），代码可简化为：

Private Sub CBThickness_Click()
    If CBThickness.Value = True Then
        Sheets("Database Adjustment").Columns("I").Interior.Color = vbRed
    End If
End Sub

注意：需确保代码写在对应UserForm的代码模块中，且复选框名称为CBThickness、工作表名称Database Adjustment无拼写错误。

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