[已解决]求助有关查找的问题

weizhong

查找到红色单元格上一单元格数据。见附件。

最佳答案

月排行榜 / 总排行榜

爱疯

2011-10-14 12:34

1. Sub 按钮1_Click()
   
2.     Dim j As Integer
   
3.     Dim rng As Range
   
4.    
   
5.     Application.FindFormat.Interior.ColorIndex = 3
   
6.     For j = 1 To 8
   
7.         If Not Columns(j).Find(what:="", searchformat:=True) Is Nothing Then
   
8.             Set rng = Columns(j).Find(what:="", searchformat:=True)
   
9.             If rng.Row > 1 Then
   
10.                 Cells(37, j) = rng.Offset(-1, 0)
    
11.             End If
    
12.         End If
    
13.     Next j
    
14. End Sub

复制代码

home2.rar (9.26 KB, 下载次数: 19)

2011-10-14 12:34 上传

点击文件名下载附件 {:041:}

跳转到最佳答案楼层

爱疯

1. Sub 按钮1_Click()
   
2.     Dim j As Integer
   
3.     Dim rng As Range
   
4.    
   
5.     Application.FindFormat.Interior.ColorIndex = 3
   
6.     For j = 1 To 8
   
7.         If Not Columns(j).Find(what:="", searchformat:=True) Is Nothing Then
   
8.             Set rng = Columns(j).Find(what:="", searchformat:=True)
   
9.             If rng.Row > 1 Then
   
10.                 Cells(37, j) = rng.Offset(-1, 0)
    
11.             End If
    
12.         End If
    
13.     Next j
    
14. End Sub

复制代码

home2.rar (9.26 KB, 下载次数: 19)

2011-10-14 12:34 上传

点击文件名下载附件 {:041:}

mxg825

1. 
   
2. Sub Macro1()
   
3. On Error Resume Next'找不到出错，跳过
   
4. Dim X%
   
5.     With Application.FindFormat.Interior
   
6.         .ColorIndex = 3 '红色
   
7.     End With
   
8.     For X = 1 To Range("IV1").End(xlToLeft).Column
   
9.         Cells(65536, X).End(xlUp).Offset(2) = Columns(X).Find(What:="", SearchFormat:=True).Offset(-1).Value
   
10.     Next
    
11. End Sub
    

复制代码

windimi007

回复 爱疯 的帖子

不太明白这句代码：

1. Application.FindFormat.Interior.ColorIndex = 3

复制代码

的意思，望版主解释一下，谢谢。{:3112:}

爱疯

windimi007 发表于 2011-10-14 14:04
回复 爱疯 的帖子

不太明白这句代码：

1. 
   
2. Sub UseFindFormat()
   
3.     Dim rng As Range
   
4. 
   
5.     '建立搜索标准
   
6.     With Application.FindFormat
   
7.         .Interior.ColorIndex = 3    '填充色为红色
   
8.         .Font.Size = 10             '字体大小为10
   
9.     End With
   
10. 
    
11.     Set rng = Range("A1:A5").Find(what:="", searchformat:=True)
    
12.     MsgBox rng.Address
    
13. End Sub
    

复制代码

这是照帮助修改的例子 工作簿2.rar (8.91 KB, 下载次数: 5)

2011-10-14 15:50 上传

点击文件名下载附件

我也是看帮助才知道的，帮助说：
Application.FindFormat 属性
设置或返回要查找的单元格格式类型的搜索条件。