课件下载 ：
方式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
分享是快乐的，也见证了个人成长历程，文章大多都是工作经验总结以及平时学习积累，基于自身认知不足之处在所难免，也请大家指正，共同进步。
