直到循环输入框无限循环

Question

我正在创建一个概率宏，用户可以在其中输入纸牌游戏中的玩家数量。如果我输入字符串 (ex, Joe)、非整数 (ex, 15.67) 或小于 0 的整数 (ex, -25)，则 InputBox 应该循环。但是，大于 0 的整数应终止循环。（无论用户输入如何，我都必须强制杀死 Excel 以停止 InputBox。）

一旦输入大于 0 的整数，我希望 InputBox 关闭/退出 Sub。我在这里做错了什么？

Sub GenerateCards()
Players = InputBox("How many players? Please enter an integer.")
    Do Until TypeName(Players) = "Integer" And Players > 0 ' why does this loop even if both conditions are met (ex, Players=5?)
        Players = InputBox("How many players? Please enter an integer.")
    Loop
End Sub

Answer 1

InputBox()总是返回一个字符串，所以TypeName()总是返回"String".

但是您可以测试返回的字符串是否为整数。首先，您可以使用IsNumeric()来测试字符串是否为数值。然后，您可以安全地将其转换为 aDouble或Integer。事实上，您可以将其转换为两者，然后将它们相互比较。如果它们相同，则您有一个整数值。例如：

Sub GenerateCards()

    Do
        Players = InputBox("How many players? Please enter an integer.")

        If IsNumeric(Players) Then
            If CDbl(Players) = CLng(Players) And Players > 0 Then
                ' Integer > 0 entered. Exit loop...
                Exit Do
            End If
        End If
    Loop

End Sub