[已解决]相同项高亮显示（提速题）

meizu9 · 发表于 2012-1-20 19:43

本帖最后由爱疯于 2012-1-21 09:44 编辑

相同项高亮显示的问题，请老师帮忙提升速度！

颜色-高亮显示Book3.rar (27.75 KB, 下载次数: 66)

wenchduan · 发表于 2012-1-20 20:06

看了这个代码就不知所云，努力学习中

上清宫主 · 发表于 2012-1-20 20:07

试试：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = 0
If Target.Column <= 27 And Target.Row <= 3000 Then
   Range("A1:AA3000").Interior.ColorIndex = xlNone
   k = Target
   If Len(Target) < 1 Then k = 0
   Set cl = Range("A1:AA3000").Find(k, , , xlWhole)
   If Not cl Is Nothing Then
      firstAddress = cl.Address
      Do
         cl.Interior.ColorIndex = 4
         Set cl = Range("A1:AA3000").FindNext(cl)
      Loop While Not cl Is Nothing And cl.Address <> firstAddress
   End If

End If
End Sub
要是还觉得慢的话，改成不一个一个变色，而是找完后一次性全部变色

qqyyh · 发表于 2012-1-20 21:10

不错,值得学习!!

爱疯 · 发表于 2012-1-20 21:19

本帖最后由爱疯于 2012-1-20 21:20 编辑

还是等解决了，再推荐

hytsky · 发表于 2012-1-20 22:01

进来学习下，顺便赚个经验回家

exc姜 · 发表于 2017-10-12 06:07

学习学习

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

[已解决]相同项高亮显示（提速题）

点评

评分