[已解决]运行报错 类型不匹配

michealzy

Sub RngLike()
     Dim rng As Range
     Dim a As Integer
     Dim nr As Integer
     
     a = 1
      nr = InputBox("请输入要查找的数据")
      With Sheet1
      .Range("A:A").ClearContents
          For Each rng In .Range("B1:d22")
              If rng.Text Like "*nr*" Then
                  .Range("A" & a) = rng.Text
                  a = a + 1
              End If
          Next
      End With
  End Sub

最佳答案

月排行榜 / 总排行榜

lisachen

2013-3-26 17:32

1. Sub RngLike()
   
2.      Dim rng As Range
   
3.      Dim a As Integer
   
4.      a = 1
   
5.       nr = InputBox("请输入要查找的数据")
   
6.       With Sheet1
   
7.       .Range("A:A").ClearContents
   
8.           For Each rng In .Range("B1:d22")
   
9.               If rng.Value Like "*" & CStr(nr) & "*" Then
   
10.                   .Range("A" & a) = rng.Text
    
11.                   a = a + 1
    
12.              End If
    
13.           Next
    
14.       End With
    
15.   End Sub
    

复制代码

跳转到最佳答案楼层

lisachen

1. Sub RngLike()
   
2.      Dim rng As Range
   
3.      Dim a As Integer
   
4.      a = 1
   
5.       nr = InputBox("请输入要查找的数据")
   
6.       With Sheet1
   
7.       .Range("A:A").ClearContents
   
8.           For Each rng In .Range("B1:d22")
   
9.               If rng.Value Like "*" & CStr(nr) & "*" Then
   
10.                   .Range("A" & a) = rng.Text
    
11.                   a = a + 1
    
12.              End If
    
13.           Next
    
14.       End With
    
15.   End Sub
    

复制代码

michealzy

又提示变量未定义，尝试在前面定义   dim nr as integer   ,又报错类型不匹配

无聊的疯子

michealzy 发表于 2013-3-26 21:48
又提示变量未定义，尝试在前面定义   dim nr as integer   ,又报错类型不匹配

nr 有可能是 文本,也有可能是 数字,还有可能是 空值,所以类型不匹配

无聊的疯子

michealzy 发表于 2013-3-26 21:48
又提示变量未定义，尝试在前面定义   dim nr as integer   ,又报错类型不匹配

你声明  nr 不要类型

dim nr
然后 给 nr 赋值后,在本地窗口中看一下类型就知道了

如果只能是数字的话,可以这样

1. 
   
2. nr = Val(InputBox("请输入要查找的数据"))
   
3. nr = Cint(InputBox("请输入要查找的数据"))
   

复制代码

选其一就行了!!

michealzy

谢谢，原来还可以这样。

michealzy

谢谢无聊，