Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target '清除工作表单元格的背景色 .Parent.Cells.Interior.ColorIndex = xlNone '设置选中区域所在行的背景色 .EntireRow.Interior.Color = vbGreen '设置选中区域所在列的背景色 .EntireColumn.Interior.Color = vbGreen End With End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Cells.FormatConditions.Delete With Target.EntireRow.FormatConditions .Delete .Add xlExpression, , "TRUE" .Item(1).Interior.ColorIndex = 7 End With
条件格式里用公式里填,应用于=$1:$65536(2003,2007以上的更大) =(ROW()=CELL("row")) + (COLUMN()=CELL("col")) vba编辑器里填 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate End Sub