2016-12-08 19:26发布
比如说此图,我的光标在G15的位置,如何更改G 合15这两处的颜色,不用正行整列的改变,谢谢回答。
Alt+F11进入VB编辑器,双击左侧 Thisworkbook,进入编辑
粘贴以下代码:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode = xlCopy And n = 1 Then n = 0: End
Cells.Interior.ColorIndex = 0
Target.EntireRow.Interior.ColorIndex = 34
Target.EntireColumn.Interior.ColorIndex = 34
End Sub
点击保存按钮或Ctrl+s,如遇到警告请选择确定
代码内的两个34代表的是颜色,可以自行调整,建议选择8,比较合适。
注意事项
一定要写在 “Thisworkbook” 里面
颜色的色值,就是VB代码内的两个34可以设置不同的值。
最多设置5个标签!
Alt+F11进入VB编辑器,双击左侧 Thisworkbook,进入编辑
粘贴以下代码:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode = xlCopy And n = 1 Then n = 0: End
Cells.Interior.ColorIndex = 0
Target.EntireRow.Interior.ColorIndex = 34
Target.EntireColumn.Interior.ColorIndex = 34
End Sub
点击保存按钮或Ctrl+s,如遇到警告请选择确定
代码内的两个34代表的是颜色,可以自行调整,建议选择8,比较合适。
注意事项
一定要写在 “Thisworkbook” 里面
颜色的色值,就是VB代码内的两个34可以设置不同的值。
一周热门 更多>