基于特定单元格的值着色Excel工作表的多个单元格

时间:2012-11-26 16:47:01

标签: excel excel-vba vba

我有一张excel表...我想根据以下条件为单元格着色:

  1. 如果细胞E非空,则细胞A,细胞B,细胞C,细胞D,细胞F,细胞G,细胞H和细胞I不能为空。如果发现任何一个单元格为空,则将相应的单元格用红色着色!!

  2. 如果共同所有细胞细胞A,细胞B,细胞C,细胞D,细胞F,细胞G,细胞H和细胞I包含值且细胞E为空,则突出显示红色细胞E.

  3. 注意:想在模块部分实现这一点......所以建议相应的解决方案!!

1 个答案:

答案 0 :(得分:1)

这样的事情会起作用吗?

Dim Row
Row = 3

If Not IsEmpty(Cells(Row, 5)) Then
    ' if Cell E is not empty, then highlight empty cols A-I
    For chkcol = 1 To 9
        If chkcol <> 5 Then ' ignore column E
            If IsEmpty(Cells(Row, chkcol)) Then
                Cells(Row, chkcol).Interior.ColorIndex = 3
            End If
        End If
    Next
Else
    blnvalid = True
    ' check for cell E being empty and all others not
    For chkcol = 1 To 9
        If chkcol <> 5 Then
            If IsEmpty(Cells(Row, chkcol)) Then
                blnvalid = False
                Exit For
            End If
        End If
    Next
    If blnvalid Then
        Cells(Row, 5).Interior.ColorIndex = 3
    End If
End If