如何实现用户窗体复选框根据单元格颜色及删除线状态自动切换值

需求对应代码修正 #

1. 检测上方单元格黄色填充并设置复选框 #

原代码存在越界风险（活动单元格为第一行时Offset(-1)会报错），修正后补充边界判断并完善逻辑：

' 先判断活动单元格不是第一行，避免引用无效单元格
If ActiveCell.Row > 1 Then
    ' 对比上方单元格填充色是否为黄色（RGB(255,255,0)）
    If ActiveCell.Offset(-1).Interior.Color = RGB(255, 255, 0) Then
        Results.Sent.Value = True
    Else
        ' 可选：若上方单元格非黄色，重置复选框状态
        Results.Sent.Value = False
    End If
End If

注：如果需求中的“相邻单元格”指其他方向，可修改Offset参数：右侧用Offset(0,1)、下方用Offset(1,0)、左侧用Offset(0,-1)

2. 检测活动单元格删除线并设置复选框 #

原代码存在语法错误，正确的删除线属性需通过ActiveCell.Font访问，修正后代码：

' 判断活动单元格是否带有删除线格式
If ActiveCell.Font.Strikethrough = True Then
    Confirmed.Value = False
Else
    ' 可选：若无删除线，重置复选框状态
    Confirmed.Value = True
End If

额外提示 #

如果使用Excel主题颜色，直接用RGB(255,255,0)判断填充色可能不匹配，可改用Interior.ColorIndex = 6（黄色对应的ColorIndex值），兼容性更强。

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