高亮显示活动单元格所在行与列【过往优秀作品展示】

fpp615 · 发表于 2019-7-25 16:11

原来是个聚光灯，WPS自带这个效果，又省心了

a838469224 · 发表于 2019-9-5 00:49

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.EntireColumn.Address = Target.Address Then
      Cells.Interior.ColorIndex = xlNone
      Exit Sub
End If
If Target.EntireRow.Address = Target.Address Then
      Cells.Interior.ColorIndex = xlNone
      Exit Sub
End If
Cells.Interior.ColorIndex = xlNone
Rows(Selection.Row & ":" & Selection.Row + Selection.Rows.Count - 1).Interior.ColorIndex = 22
Columns(Selection.Column).Resize(, Selection.Columns.Count).Interior.ColorIndex = 22
End Sub

mz569 · 发表于 2019-11-19 14:48

这个小技巧真心有用，感谢~！

jmhkeentech · 发表于 2019-12-2 15:34

很好，學習了。謝謝！

桥xilo · 发表于 2020-6-9 16:44

本帖最后由桥xilo 于 2020-6-9 16:49 编辑

感谢楼主，
我又再原来基础上，中间加了空白，这样就和wps一样了

只是，每个新表都要这样添加遍条件规则的话，也挺麻烦的，不知道有好办法不？？

528868523 · 发表于 2020-6-10 09:36

非常可以！！！谢谢

真真慢半拍 · 发表于 2020-6-15 08:26

特别好用，谢谢

易兜兜儿 · 发表于 2020-7-15 11:34

我这个学渣在Excel2016版中找了半天连“查看代码”这个选项都没有找到。。。。

闻西 · 发表于 2020-9-3 15:54

谢谢分享，学习。

eess890528 · 发表于 2020-12-31 14:49

学到了，谢谢分享！

		自动登录	找回密码
密码			免费注册

[VBA] 高亮显示活动单元格所在行与列【过往优秀作品展示】