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