你想这样啊,试试这段代码看行不:右键工作表名称--查看代码,在空白处粘贴就可以

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Cells.Interior.ColorIndex = xlNone

      Target.Interior.ColorIndex = 8

 End Sub

复制代码
posted on 2016-01-26 14:41  buy0769  阅读(347)  评论(0编辑  收藏  举报