作者:绿色风
分类:
时间:2022-08-18
浏览:185
楼主 春雷 |
在VBA编辑器的代码窗口中输入: Private Sub worksheet_selectionchange(ByVal target As Range) Calculate End Sub突显活动单元格的坐标1.jpg 突显活动单元格的坐标.jpg
突显活动单元格的坐标.rar |
2楼 yncxxmj |
在表中录入数据时非常实用。 |
3楼 biaotiger1 |
VBA做了一个简单的
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim MyRow As Range, MyCol As Range, A As Range
- Cells.Interior.ColorIndex = False
- Set MyRow = Rows(Target.Row)
- Set MyCol = Columns(Target.Column)
- Set A = Union(MyRow, MyCol)
- A.Interior.ColorIndex = 17
- End Sub
突显活动单元格的坐标.rar |
4楼 棉花糖 |
还可以简化- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim MyRow As Range, MyCol As Range, A As Range
- Cells.Interior.ColorIndex = xlNone
- Target.EntireColumn.Interior.ColorIndex = 17
- Target.EntireRow.Interior.ColorIndex = 17
- End Sub
|
5楼 罗刚君 |
有后遗症 . |
6楼 罗刚君 |
有后遗症 . |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素,
经与ExcelTip.Net站长Apolloh商议并征得其同意,
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示,
供有需要的人士查询使用,也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议,
可与本人沟通提出,或于本站点留言,我们会尽快处理。
在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一