[已解决]VBA_查找数据＿求修改代码

yjwdjfqb

Public Sub 查找数据()
    Dim myRange1 As Range
    Dim myRange2 As Range
    Dim myRow  As Long
    Set myRange1 = Columns("C")       '指定查询范围
    On Error Resume Next
    myRow = WorksheetFunction.Match("中国", myRange1, 0)    '指定查询条件
    On Error GoTo 0
    If myRow = 0 Then
        MsgBox "没有找到符合条件的单元格"
    Else
        Set myRange2 = myRange1.Cells(myRow)
        MsgBox "符合条件的单元格为：" & myRange2.Address(False, False)
        myRange2.EntireRow.Select
    End If
    Set myRange1 = Nothing
    Set myRange2 = Nothing
End Sub

上面这个代码是，指定查找C列中“中国”字符，


想请大家修改成　查询操作的整个工作表　　

查询的内容，改为　提示框中输入内容，就是当我们执行本宏命令时，弹出一个提示框，让我们输入查找的字符后，确定，首先显示查找字符的位置，确定后，光标选中查找字符所在的行。

请老师们帮忙。。谢谢大家

最佳答案

月排行榜 / 总排行榜

laosanjie

2011-8-15 11:45

yjwdjfqb 发表于 2011-8-15 08:11
回复 爱疯 的帖子

不行呀，查不到数据，指定范围是那些

楼主你自己最好将附件传上来才好。

跳转到最佳答案楼层

爱疯

1. Public Sub 查找数据()
   
2.     Dim myRange1 As Range
   
3.     Dim myRange2 As Range
   
4.     Dim myRow  As Long
   
5.     Dim str As String
   
6.    
   
7.     str = InputBox("请输入查找内容：")
   
8.     If str = "" Then End
   
9.     Set myRange1 = Cells       '指定查询范围
   
10.     On Error Resume Next
    
11.     myRow = WorksheetFunction.Match(str, myRange1, 0)    '指定查询条件
    
12.     On Error GoTo 0
    
13.     If myRow = 0 Then
    
14.         MsgBox "没有找到符合条件的单元格"
    
15.     Else
    
16.         Set myRange2 = myRange1.Cells(myRow)
    
17.         MsgBox "符合条件的单元格为：" & myRange2.Address(False, False)
    
18.         myRange2.EntireRow.Select
    
19.     End If
    
20.     Set myRange1 = Nothing
    
21.     Set myRange2 = Nothing
    
22. End Sub
    

复制代码

{:041:}

yjwdjfqb

回复 爱疯 的帖子

不行呀，查不到数据，指定范围是那些
上传个附件好吧老师！！！

谢谢啦！

laosanjie

yjwdjfqb 发表于 2011-8-15 08:11
回复 爱疯 的帖子

不行呀，查不到数据，指定范围是那些

楼主你自己最好将附件传上来才好。

yjwdjfqb

回复 laosanjie 的帖子

谢谢朋友，问题解决了！！！