类型不匹配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

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

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

INTO

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

Answer 2

您可以使用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 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 

使用

Istead

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

编辑：

当您使用DO循环正确的语法，你的代码进入一个无限循环，因为你是如何构建的虽然条件。 例如，如果inputBox检索到“B”，则它是“s”<> 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