我的工作里面查找用的比较多。有没有简单的办法。

dmm2001 · 发表于 2011-2-17 23:08

就是说，我要不停的查找，查找。

有没有 vb 好简单些。

wkbu · 发表于 2011-2-17 23:24

Sub dkd()
For Each cell In Range("F1:F13")
If cell.Interior.ColorIndex = 6 And cell.Value = 7 Then cell.Interior.ColorIndex = 4
Next
End Sub

dmm2001 · 发表于 2011-2-17 23:51

老师谢谢你了。我还有个类似的问题。麻烦你一下。

dmm2001 · 发表于 2011-2-18 01:10

我又做了 3 个屏幕录像。请老师看看。

dmm2001 · 发表于 2011-2-18 01:39

第3 个。每个录像单独编写。可以吗。

dmm2001 · 发表于 2011-2-18 09:42

麻烦那位老师给看看。

wkbu · 发表于 2011-2-18 20:44

查找.rar (9.39 KB, 下载次数: 5)

dmm2001 · 发表于 2011-2-18 21:58

老师，你好。谢谢你的回复，是我没描述清楚。

这个宏是我需要的。谢谢。
还有就是这个宏能不能不找不可见的单元格。只找可见的单元格。这样快些。
Sub dkd()
For Each Cell In Range("F1:O13")
If Cell Like "*7*" Then
      Cell.Interior.ColorIndex = 4
End If
Next
End Sub

这个宏要改下。
第二个是把有黄色的单元格中带数字6 的单元格变成绿色。
不是所有的单元格，是可见的单元格。
Sub dkfd()
For Each Cell In Range("F1:O13")
If Cell Like "*6*" Then
      Cell.Interior.ColorIndex = 4
End If
Next
End Sub

这个也帮我改改。
第三个是把有绿色的单元格中带数字1的单元格变成红色。不是所有的单元格，是可见的单元格。
Sub dkfddd()
For Each Cell In Range("F1:O13")
If Cell Like "*1*" Then
      Cell.Interior.ColorIndex = 3
End If
Next
End Sub

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

[求助] 我的工作里面 查找用的比较多。有没有简单的办法。

[求助] 我的工作里面查找用的比较多。有没有简单的办法。