[已解决]求助！

BAOBEIZHU

求助点一个单元格，整行变成黄色的代码，谢谢！                     

最佳答案

月排行榜 / 总排行榜

zjdh

2013-4-11 15:29

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     With Selection
        .Parent.Cells.Interior.ColorIndex = xlNone
        .EntireRow.Interior.ColorIndex = 6
    End With
    Selection.Interior.ColorIndex = 40
End Sub

跳转到最佳答案楼层

zjdh

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     With Selection
        .Parent.Cells.Interior.ColorIndex = xlNone
        .EntireRow.Interior.ColorIndex = 6
    End With
    Selection.Interior.ColorIndex = 40
End Sub

BAOBEIZHU

zjdh 发表于 2013-4-11 15:29
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     With Selection
        .Parent.C ...

非常感谢！                              

su45

2003中尽量别用这个！会影响常规操作的！