[已解决]searchformat 靠得住吗？

Select

searchformat.rar (7.64 KB, 下载次数: 7)

2012-6-12 23:10 上传

点击文件名下载附件

1. 
   
2. Sub a()
   
3.     Dim rng
   
4. '    Debug.Print Range("b2").Interior.ColorIndex
   
5.     Application.ReplaceFormat.Font.ColorIndex = 6    '6是黄颜色
   
6.     Set rng = Cells.Find(what:="", searchFormat:=True)
   
7.     Debug.Print rng.Address
   
8. End Sub

复制代码

第1次运行
打开附件后，sheet1无填充黄颜色的单元格，运行后，结果报错，合乎情理。

第2次运行
接着给B2单元格填充黄色，再运行，为什么返回$A$1，而不是$B$2?

第3次运行
接着我取消了B2填充色后，再运行，为什么还返回$A$1，而不报错？

谢谢！

最佳答案

月排行榜 / 总排行榜

oobird

2012-6-12 23:22

1.     Dim rng
   
2.     Debug.Print Range("b2").Interior.ColorIndex
   
3.     Application.FindFormat.Interior.ColorIndex = 6   '6岆酴晇伎
   
4.     Set rng = Cells.Find(what:="", searchFormat:=True)
   
5.     Debug.Print rng.Address
   

复制代码

跳转到最佳答案楼层

oobird

1.     Dim rng
   
2.     Debug.Print Range("b2").Interior.ColorIndex
   
3.     Application.FindFormat.Interior.ColorIndex = 6   '6岆酴晇伎
   
4.     Set rng = Cells.Find(what:="", searchFormat:=True)
   
5.     Debug.Print rng.Address
   

复制代码

Select

oobird 发表于 2012-6-12 23:22

谢谢oobird!

我仔细看了2#回复，我发现仅是取消了1#第1句的注释，对吗？
我把2#回复，放到附件里运行了3次，和1楼描述一样呀？
是不是你不小心点快了啊？

oobird

表示你跟本没看，而且用的是原来的代码。

Select

oobird 发表于 2012-6-13 08:05
表示你跟本没看，而且用的是原来的代码。

为什么说我根本没看呢？
我还怕我看错了，复制了2#，测试了的呀（前面说了）

oobird

关键在一楼的第4行Application.ReplaceFormat.Font.ColorIndex = 6
要改为
Application.FindFormat.Interior.ColorIndex = 6
才会有作用

oobird

Select

谢谢了，原来是我没仔细看！

Application.ReplaceFormat.Font.ColorIndex = 6   '没仔细看，复制来，以后就是所需要的
Application.FindFormat.Font.ColorIndex = 6      '早上看了的回复后，只发现find不同，没发现font
Application.FindFormat.Interior.ColorIndex = 6  '6岆酴晇伎

从2楼回复后开始，我就担心我看错，唉，还是看错了