杨老师课堂之Excel VBA 程序开发第七讲表格数据高亮显示

   课件下载 ：                                    

方式1：本节课件下载地址： 密码：

方式2：或点击此处下载

    效果图：

1.在模块1中写入下列代码：

Sub gys()

Cells.Interior.Pattern = xlNone
Selection.EntireRow.Interior.Color = 65535  ' 选择的区域整行的底纹的内部颜色是 

End Sub

2.在sheet1中选择通用下拉列表中的WorkSheet  右侧选择SelectionChange，写入下列代码:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)' 鼠标放在哪里，选中哪里


Call gys'调用改颜色 的sub 代码



End Sub

 

作者： 杨校