在Excel中选中一个单元格时,所在行整行填充底色.

ALT+F11,粘贴以下VBA代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
  Rows().Interior.ColorIndex = 0 
  x = ActiveCell.Row 
  Rows(x).Interior.ColorIndex = 35 
End Sub


 

你可能感兴趣的:(Excel,VBA)