[已解决]请教我的语句里的"f”值为什么得出错误值？

mfk1288

我的表格的sheet1里的D2单元格的值是从数据有效性得出来的。而sheet2表里的match公式也可以得出正确的值，但是我的代码却得不出正确的结果。

1. Sub tt()
   
2. d = Sheets("Sheet1").Range("D2")
   
3. With Sheets("Sheet2")
   
4. f = Application.Match(d, .Range("A:A"), 0)
   
5. If IsNumeric(f) Then
   
6. MsgBox f
   
7. End If
   
8. End With
   
9. End Sub

复制代码

我先后在d = Sheets("Sheet1").Range("D2")后面加上.value或者.text都不行。而以下代码却能得出正确的结果。

1. Sub tt1()
   
2. With Sheets("Sheet2")
   
3. f = Application.Match(Sheets("Sheet1").Range("D2"), .Range("A:A"), 0)
   
4. If IsNumeric(f) Then
   
5. MsgBox f
   
6. End If
   
7. End With
   
8. End Sub

复制代码

我再在第一段代码加入一句，

1. Sub tt()
   
2. d = Sheets("Sheet1").Range("D2")
   
3. With Sheets("Sheet2")
   
4. f = Application.Match(d, .Range("A:A"), 0)
   
5. If IsNumeric(f) Then
   
6. MsgBox f
   
7. End If
   
8. MsgBox d = .Range("A9")
   
9. End With
   
10. End Sub

复制代码

却能提示是"True”,为什么呢？要如何改第一段代码才能得出正确结果呢？
Book1.rar (32.52 KB, 下载次数: 14)

2012-12-10 00:50 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

rinyxa

2012-12-10 07:19

1. Sub tt()
   
2. Dim d As Long
   
3.     d = Sheets("Sheet1").Range("D2")
   
4.     With Sheets("Sheet2")
   
5.         f = Application.Match(d, .Range("A:A"), 0)
   
6.         If IsNumeric(f) Then
   
7.             MsgBox f
   
8.         End If
   
9.          MsgBox d = .Range("A9")
   
10.     End With
    
11.    End Sub

复制代码

我想d没有设置成数据类型的所致，d = Sheets("Sheet1").Range("D2")
没设置结果，d以文本形式出现

跳转到最佳答案楼层

rinyxa

1. Sub tt()
   
2. Dim d As Long
   
3.     d = Sheets("Sheet1").Range("D2")
   
4.     With Sheets("Sheet2")
   
5.         f = Application.Match(d, .Range("A:A"), 0)
   
6.         If IsNumeric(f) Then
   
7.             MsgBox f
   
8.         End If
   
9.          MsgBox d = .Range("A9")
   
10.     End With
    
11.    End Sub

复制代码

我想d没有设置成数据类型的所致，d = Sheets("Sheet1").Range("D2")
没设置结果，d以文本形式出现