vba - 检查 VBA 中的数据类型

Question

我有一个 VBA 程序，我希望用户只输入一个数字。我希望能够在他们输入字符串时捕获并让他们重试。这是我尝试过的:

Sub getInterest()
    annualInterest = InputBox("Please enter your annual interest rate as a decimal. ")
        If TypeOf annualInterest Is Double Then
            'Continue with program
        Else
            Call getInterest()  
        End If
End Sub

但这行不通。

Answer 1

IsNumeric 返回一个 bool 值，并且不会告诉您用户输入的数据类型，仅当它通过或未通过数字检查时。虽然它可能适合您的情况，但另一个选择是 VarType 函数。

VarType function returns an Integer indicating the subtype of a variable

Sub getInterest()
    annualinterest = InputBox("Please enter your annual interest rate as a decimal. ")
        If VarType(annualinterest) = vbDouble OR VarType(annualinterest)=vbSingle Then
            'crunch interest
        Else
            getInterest
        End If
End Sub