请教如何用VBA给含有变量的范围加聚光灯效果的条件格式

luanzhe

请教如何用VBA给含有变量的范围加聚光灯效果的条件格式

一共有2个工作表
sheet1：


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r, col
    Dim rng As Range
    Dim cel
    r = Sheet1.Cells(2, 1).Value
    col = Sheet1.Cells(2, 2).Value
    Set rng = Sheet2.Range(Sheet2.Cells(1, 1), Sheet2.Cells(r, col))
    If r <> 0 And col <> 0 Then
    For Each cel In rng
        cel.Value = "1"
        cel.Interior.Color = RGB(122, 165, 132)
        cel.Borders(xlEdgeBottom).Color = RGB(32, 43, 177)
        cel.Borders(xlEdgeTop).Color = RGB(32, 43, 177)
        Next
        End If
'        ----------------------
''        给rng范围内加聚光灯
'        rng是变量
'        ----------------------
End Sub


想在sheet2的rng范围内加聚光灯，并且不改变单元格原有的色彩，所以请教是否可以用条件格式。
谢谢！

聚光灯问题求助.zip (16.95 KB, 下载次数: 1)

2017-11-15 09:40 上传

点击文件名下载附件