excel - 在声明为字符串的变量中键入不匹配 VBA 错误

Question

下面的代码看不懂，求大神帮忙。

它不断返回针对变量 b 的类型不匹配错误。

Dim a As Integer
Dim b As String

a = InputBox("Input the number of items", "Total Number of Items.")
b = InputBox("Which Block?", "Total Number of Items.")

Do While b <> "a" Or "A" Or "B" Or "b"
        MsgBox ("Invalid Block. Try again, Input A or B")
        b = InputBox("Which Block?", "SELECT BLOCK.")
Loop
     If b = "a" Or "A" Then
        Me.ComboBox1.List = Worksheets("Sheet1").Range("a3:a39").Value
    Else
        Me.ComboBox2.List = Worksheets("Sheet2").Range("a3:a35").Value
    End If

Answer 1

您可以使用Application.InputBox强制文本输入a和数字输入b

使用UCASE$缩短您的测试

Dim a As Long
Dim b As String

a = Application.InputBox("Input the number of items", "Total Number of Items.", , , , , , 1)
b = Application.InputBox("Which Block?", "Total Number of Items.", , , , , 2)

Do While UCase$(b) <> "A" And UCase$(b) <> "B"
b = Application.InputBox("Which Block?", "Invalid Entry - Total Number of Items.", , , , , 2)
Loop

Answer 2

我认为这是一个逻辑缺陷。改变

Do While UCase$(b) <> "A" or UCase$(b) <> "B"

进入

Do While UCase$(b) <> "A" AND UCase$(b) <> "B"

Answer 3

问题是如何测试“b”变量。

错误的

Do While b <> "a" Or "A" Or "B" Or "b"

对

Do While b <> "a" Or b <> "A" Or b <> "B" Or b <> "b"

这同样适用于 if 子句

而不是

If b = "a" Or "A" Then

采用

If b = "a" Or b = "A" Then

编辑：

当您对 Do 循环使用正确的语法时，您的代码会因为您构造 While 条件的方式而进入无限循环。例如，如果 inputBox 检索到“B”，则它是“<>b”或“<>a”或...，因此它将再次进入循环。无论用户输入什么，它总是与任何其他条件不同。

编辑2：

请试试这个。它是否检索到相同的错误？

Sub TryThis()
    Dim a As Integer
    Dim b As String

    a = InputBox("Input the number of items", "Total Number of Items.")
    b = InputBox("Which Block?", "Total Number of Items.")

    Do While b <> "a" And b <> "A" And b <> "B" And b <> "b"
            MsgBox ("Invalid Block. Try again, Input A or B")
            b = InputBox("Which Block?", "SELECT BLOCK.")
    Loop

    Debug.Print "InputBox b Correctly filled"

    If b = "a" Or b = "A" Then
        Debug.Print "User Input A"
    Else
        Debug.Print "User Input: " & b
    End If
End Sub