[已解决]VBA按单元格式进行查找

laoau138

VBA按单元格式进行查找  

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-6-22 16:25

1. Sub aaa()
   
2. Dim rng As Range, cl As Range
   
3. For Each cl In [a1].CurrentRegion
   
4.   If cl.Font.Name = "宋体" And cl.Interior.Color = vbRed Then
   
5.     If rng Is Nothing Then Set rng = cl Else Set rng = Union(rng, cl)
   
6.   End If
   
7. Next cl
   
8. rng.Select
   
9. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim rng As Range, cl As Range
   
3. For Each cl In [a1].CurrentRegion
   
4.   If cl.Font.Name = "宋体" And cl.Interior.Color = vbRed Then
   
5.     If rng Is Nothing Then Set rng = cl Else Set rng = Union(rng, cl)
   
6.   End If
   
7. Next cl
   
8. rng.Select
   
9. End Sub

复制代码

laoau138

大灰狼1976 发表于 2017-6-22 16:25

VBA这个自定义函数错在哪里

http://www.excelpx.com/thread-431420-1-1.html