我如何叠加颜色和图案？

Question

有什么方法可以通过条件格式将图案添加到彩色单元格上，以使单元格的颜色保持可见？

我正在尝试制作一种甘特图，其中不同的颜色代表不同的人：

当我激活单元格时，我想用图案突出显示所选的行和列。我已成功创建该功能，但是，当图案显示时，颜色会消失。

下面我将光标向上移动一个单元格。相应的行会呈现图案，但红色会消失。如果我将光标向上和向左移动一个单元格，黄色也会发生同样的情况。

我尝试了下面的 VBA 代码，结果是一样的：当图案显示时，颜色消失。

LR = Cells(Rows.Count, 1).End(xlUp).Row
    
Set PatternRng = Range("A6" & ":" & "GM" & Sheets("Source").Range("I1").Value)
PatternRng.Interior.Pattern = xlPatternNone

If ((ActiveCell.Row >= 7) And (ActiveCell.column <= 194) And (ActiveCell.Row <= LR)) Then
    If (ActiveCell.column > 1) Then
       Set PatternRng = Range("A6:A" & LR).Offset(, ActiveCell.column - 1)
       PatternRng.Interior.Pattern = xlPatternGray25
       PatternRng.Interior.PatternColor = RGB(191, 191, 191)
    End If
        
    Set PatternRng = Range("A6:GM6").Offset(ActiveCell.Row - 6, 0)
    PatternRng.Interior.Pattern = xlPatternGray25
    PatternRng.Interior.PatternColor = RGB(191, 191, 191)
        
    Sheets("Source").Range("I2").Value = (ActiveCell.column - 1)
    Sheets("Source").Range("I3").Value = (ActiveCell.Row - 6)
End If