excel中VBA代码问题（高手进）

2024年11月23日 05:06

有3个网友回答

网友（1）：

代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.EntireColumn.Address = Target.Address Then

Cells.Interior.ColorIndex = xlNone

Exit Sub

End If

If Target.EntireRow.Address = Target.Address Then

Cells.Interior.ColorIndex = xlNone

Exit Sub

End If

Cells.Interior.ColorIndex = xlNone

Rows(Selection.Row & ":" & Selection.Row + Selection.Rows.Count - 1).Interior.ColorIndex = 35

Columns(Selection.Column).Resize(, Selection.Columns.Count).Interior.ColorIndex = 20

End Sub

效果如下：

网友（2）：

应该使用到鼠标点击的事件吧

网友（3）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.Pattern = xlNone
    Rows(Target.Row).Interior.Color = 49407
    Columns(Target.Column).Interior.Color = 49407
End Sub