OFFICE2013实现选中单元格所在行、列高亮显示
2015-09-08 08:05
211 查看
在你要实现此功能的工作表标签右击,在弹出的菜单中选择编辑代码,然后输入下面代码保存即可!
如没有出现效果,则可能是禁用了宏的关系。所以要在安全选项中启用宏选项。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色
Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色
End Sub
如没有出现效果,则可能是禁用了宏的关系。所以要在安全选项中启用宏选项。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色
Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色
End Sub
相关文章推荐
- 偶尔想法
- 反射2
- find_first_of
- Genymotion的shell的命令
- 反射1
- beanUtil工具
- Jaxp的dom解析
- 阮一峰:jQuery最佳实践
- 【读书笔记】iOS-引用计数
- 浅谈面向对象三大编程的特征
- 【读书笔记】iOS-引用计数
- Hibernate SQLQuery 原生SQL 查询及返回结果集处理-1
- 为什么加YY主播的微信要花钱?
- gethostbyaddr ip到名字,gethostbyname名字到ip依赖于hosts、DNS服务器
- Android dialog全屏显示
- 数据结构例程——线性表顺序存储的应用
- js setTimeout 和 setInterval实现多线
- Save vtkMatrix4x4 to a file 保存到文件
- 4 个开源的命令行邮件客户端
- ANDROID内存优化(大汇总——全)(转载)