工作中会遇到很多数据的工作表,单击后从右边拖到左边找其他数据,太伤眼睛
这里运用自动选区
1.首先是自动改颜色的代码
Cells.Interior.Color = xlNone "选中所有的单元格,并且设置为无颜色
Selection.EntireRow.Interior.Color = 65535 "将选中的区域整行标黄
2.再在指定的工作表里,将模块的通用上改成worksheet,右边改为
selectionchange
3.之后会自动生成一段代码,把我们标黄的代码放到中间去即可
这样我们选中的区域整行都会自动标黄了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.Color = xlNone
Selection.EntireRow.Interior.Color = 65535
End Sub