[已解决]求解决类似ctrl+F查找功能的代码遇到两个问题

yiniuniu

求解决类似ctrl+F查找功能的代码遇到两个问题

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-13 21:48

1. Sub 快速查找2()
   
2.     Dim rng As Range, rng1 As Range
   
3.     Dim str As String
   
4.     str = [A1]
   
5.     Set rng = Cells.Find(what:=str, After:=Selection, lookat:=xlPart)
   
6.     'Set rng1 = Cells.FindNext(rng)
   
7.     If rng Is Nothing Or rng.Column <> 3 Then
   
8.         Set rng = Cells.FindNext(rng)
   
9.         If rng Is Nothing Or rng.Column <> 3 Then
   
10.             MsgBox "没有"
    
11.             Exit Sub
    
12.         Else
    
13.             rng.Select
    
14.         End If
    
15.     Else
    
16.         If rng.Column = 3 Then rng.Select
    
17.     End If
    
18. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

1. Sub 快速查找2()
   
2.     Dim rng As Range
   
3.     Dim str As String
   
4.     str = [A1]
   
5.     Set rng = Cells.Find(what:=str, after:=Selection, lookat:=xlPart)
   
6.     If rng Is Nothing Then
   
7.         MsgBox "没有"
   
8.         Exit Sub
   
9.     Else
   
10.         If rng.Column = 3 Then rng.Select
    
11.     End If
    
12. End Sub

复制代码

第一个问题：你用Columns ("C:C").Find(what:=str, after:=Selection, lookat:=xlPart),其中Columns ("C:C")已经限定了一个区域，你选择其他区域，当然就要报错；
第二个问题：点击按代码提取之后无法查找，是因为代码提取中将Find的LOOKAT设置成了xlWhole，所以只需要在查询代码中加入lookat:=xlPart即可

yiniuniu

老司机带带我 发表于 2016-6-13 17:14
第一个问题：你用Columns ("C:C").Find(what:=str, after:=Selection, lookat:=xlPart),其中Columns ("C:C" ...

还需高手修改以下两个问题:
1、当C列单元格内容没含有A1单元格的内容，代码里“MsgBox "没有"  ”没起效
2、当C列多个单元格内容包含A1单元格的内容,不停点"查找"时，可否把代码改成循环轮回查找（现在代码是由第一个向下查找到最后一个就结束）

老司机带带我

1. Sub 快速查找2()
   
2.     Dim rng As Range, rng1 As Range
   
3.     Dim str As String
   
4.     str = [A1]
   
5.     Set rng = Cells.Find(what:=str, After:=Selection, lookat:=xlPart)
   
6.     'Set rng1 = Cells.FindNext(rng)
   
7.     If rng Is Nothing Or rng.Column <> 3 Then
   
8.         Set rng = Cells.FindNext(rng)
   
9.         If rng Is Nothing Or rng.Column <> 3 Then
   
10.             MsgBox "没有"
    
11.             Exit Sub
    
12.         Else
    
13.             rng.Select
    
14.         End If
    
15.     Else
    
16.         If rng.Column = 3 Then rng.Select
    
17.     End If
    
18. End Sub

复制代码

yiniuniu

老司机带带我 发表于 2016-6-13 21:48

求解决遇到的新问题