发布网友
共1个回答
热心网友
ALT+F11,复制代码就好Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlColorIndexNone With Target .EntireRow.Interior.Color = vbYellow .EntireColumn.Interior.Color = vbYellow End WithEnd Sub