【VBA】点击工作簿中的每个单元格,整行整列变色
需求描述
在点击单元格的时候,单元格所在行与列都变色显示
实现方案
打开Excle表格,按住ALT+F11
双击上图中的ThisWorkbook
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Cells.Interior.Pattern = xlNone Rows(Target.Row).Interior.ColorIndex = 3 Columns(Target.Column).Interior.ColorIndex = 4 End Sub
代码中的3、4为颜色标记,具体参照下图:
将上述代码贴入
然后另存表格为变色.xlsm
作者:奔跑的金鱼
声明:书写博客不易,转载请注明出处,请支持原创,侵权将追究法律责任
个性签名:人的一切的痛苦,本质上都是对自己无能的愤怒
如果觉得这篇文章对你有小小的帮助的话,记得在右下角点个“推荐”哦,博主在此感谢!