第1个回答 2022-04-01
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Target
.Parent.Cells.Interior.ColorIndex = xlNone
.EntireRow.Interior.Color = vbYellow
.EntireColumn.Interior.Color = vbYellow
.Interior.Color = vbYellow
End With
End Sub
第2个回答 2022-08-31
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Target
.Parent.Cells.***.colorIndex = xlNone
.EntireRow.***.color = vbYellow
.EntireColumn.***.color = vbYellow
.***.color = vbYellow
End With
End Sub
第3个回答 2022-08-31
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Target
.Parent.Cells.***.colorIndex = xlNone
.EntireRow.***.color = vbYellow
.EntireColumn.***.color = vbYellow
.***.color = vbYellow
End With
End Sub
第4个回答 2022-08-31
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Target
.Parent.Cells.***.colorIndex = xlNone
.EntireRow.***.color = vbYellow
.EntireColumn.***.color = vbYellow
.***.color = vbYellow
End With
End Sub
第5个回答 2022-08-31
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Target
.Parent.Cells.***.colorIndex = xlNone
.EntireRow.***.color = vbYellow
.EntireColumn.***.color = vbYellow
.***.color = vbYellow
End With
End Sub