Question

关于EXCEL vba的一个很简单的问题

Public Sub 查找值()Dim RG As Rangea = 0k = InputBox("输入要查找的值")For Each RG In Range(Cells(1, 1), Cells(2, 2))If RG = k Thena = a + 1End IfNextMsgBox aEnd Sub运行时,我键盘输入 1 ,为什么 MSGBOX 显示的却是0? 问题出在哪了?

Answer 1

数据类型不符合导致

k = InputBox("输入要查找的值")
改成：
k = cdbl(InputBox("输入要查找的值"))

追问

还是不行啊

追答

我这边测试没有任何问题。

你那边不行，指的是什么错误，还是结果不对？

Public Sub 查找值()
    Dim RG As Range
    a = 0
    k = CDbl(InputBox("输入要查找的值"))
    For Each RG In Range(Cells(1, 1), Cells(2, 2))
        If RG = k Then
            a = a + 1
        End If
    Next
    MsgBox a
End Sub