excel - 如何在 VBA 中不满足条件的情况下突出显示单元格中的颜色

Question

我是 VBA 新手，我正在编写 VBA 代码，该代码在根据条件保存 excel 文件之前显示一条消息，如果满足条件，则保存文件，如果条件满足，则不保存文件没见过。

我想要做的是，我希望即使不满足条件也应该保存文件，但它应该在不满足条件的地方突出显示单元格中的颜色。

如何在 VBA 中实现这一点？有人能帮我吗..

我在下面提供了示例 excel 和代码。

Excel

Person    ID          Condition
A       Yes / No      C should be blank if C/B is N in ID. 
                      C should be filled if A/B is Y in ID
B       Yes / No    

C

代码

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' C should be blank if A/B is N.
    If Application.Sheets("Sheet1").Range("C2").Value = "N" Or Application.Sheets("Sheet1").Range("C3").Value = "N" Then
        
        If Application.Sheets("Sheet1").Range("C4").Value <> "" Then
            Cancel = True
            MsgBox "C should be blank if A/B is N"
       End If
    ElseIf Application.Sheets("Sheet1").Range("C2").Value = "Y" Or Application.Sheets("Sheet1").Range("C3").Value = "Y" Then
        
        If Application.Sheets("Sheet1").Range("C4").Value = "" Then
            Cancel = False
            MsgBox "C should be filled if  A and C3 is Y"
       End If
    
    End If
    
End Sub

标签： excelvba