将Application.ScreenUpdating应用于除第一行之外的所有工作表

时间:2014-10-10 15:05:07

标签: excel vba excel-vba

除前两行外,有没有人知道如何将以下内容应用到我的工作表中?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False

Cells.Interior.ColorIndex = 0
Target.Interior.ColorIndex = 23

Cells.Font.ColorIndex = 0
Target.Font.ColorIndex = 2

Cells.Font.Bold = False
Target.Font.Bold = True

Application.ScreenUpdating = True

End Sub

由于

1 个答案:

答案 0 :(得分:1)

If Target.Row > 2 Then

这是你的意思吗?