频道点击排行

栏目推荐

最新评论

• 让excel像wps一样出现个阅读模式 727146685：Public rg As Range Private Sub Worksheet_Selectionchange (ByVal Target As Range) If Not rg Is Nothing Then Columns(rg.Column).Interior.Pattern = xlNone If Not rg Is Nothing Then Rows(rg.Row).Interior.Pattern = xlNone Columns(Target.Column).Interior.Color = 39999 Rows(Target.Row).Interior.Color = 39999 Set rg = Target End Sub 纠正一下：文中的代码少了几个字母，以这份为准