操作方法
第一步:设置单元格格式。条件格式的公式为: =(cell(“row”)=row())+(cell(“col”)=column())
第二步:添加代码。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone m = Target.Row n = Target.Column Columns(n).Interior.ColorIndex = 8 Rows(m).Interior.ColorIndex = 9 End Sub
第三步:完成。