[原创]★★第8888帖特制礼物★★(sy)

wjb0503 · 发表于 2012-6-21 17:04

热烈支持,顶一顶,随缘大师提供的好东西

lzqlaj · 发表于 2012-6-23 09:51

ctrl+v不能用了。

136211828 · 发表于 2012-9-3 21:47

好东东！要了

huntquasi · 发表于 2012-12-2 10:50

大师好,能否只显示行列高亮线,不要底色,
\同簿一工作簿的所有工作表同时能用上此代码.
麻烦大师
谢谢

锐/ty · 发表于 2012-12-27 17:19

{:soso_e121:} 感谢老师

laijiafu · 发表于 2013-3-18 16:56

本帖最后由 laijiafu 于 2013-3-18 17:01 编辑

改了下,大家看看,颜色可以自己改,但最好不变好些,综合的原作者的单元格亮显
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  On Error Resume Next
  Cells.FormatConditions.Delete
  'iColor = Int(50 * Rnd() + 2)
  With Target.EntireRow.FormatConditions '行
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 24
  End With
  With Target.EntireColumn.FormatConditions '列
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 16
  End With
  With Target.FormatConditions '单元格
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 8
  End With
End Sub

ahh0511 · 发表于 2016-11-18 08:22

好东东，谢谢分享！

david_jiao · 发表于 2018-9-9 13:15

太好了，之前看到的高亮显示把原来单元格的颜色都给删除了，这个不会，高手！谢谢

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