爲什麼我在運行elseif語句時收到類型不匹配錯誤

Question

所以我試圖運行下面的代碼，但收到'類型不匹配錯誤'行ElseIf Cells(x, 1) <> "" And Cells(x, 2) <> "" And Cells(x, 15).Value <= 0 Then。我猜這是關於if沒有正確嵌套的語句在for和next語句中，但他們似乎都很好。我已經花了幾個小時在此嘗試調試，但無濟於事。誰能告訴我哪裏出了問題我的代碼？

Dim x As Integer 
For x = 4 To 100 
    If Cells(x, 1) <> "" And Cells(x, 2) <> "" And Cells(x, 6).Value <= 0 Then     
     Cells(x, 16).Value = 6 
     Cells(x, 17).Value = -0.3179688 

    ElseIf Cells(x, 1) <> "" And Cells(x, 2) <> "" And Cells(x, 15).Value <= 0 Then '(*Received error for this line) 
     Cells(x, 16).Value = 1 
     Cells(x, 17).Value = 0.6820312 

    ElseIf Cells(x, 5) = "" or Cells(x, 6) <> "" or Cells(x, 7) <> "" Then '(*Still Received error for this line) 
     Cells(x, 16).Value = "" 
     Cells(x, 17).Value = "" 

    ElseIf Cells(x, 1).Value = "A. Agriculture, forestry and fishing" Then 

     Select Case LCase(Cells(x, 2).Value) 
      Case "all", "id", "sg" 
       Select Case Cells(x, 15).Value 
        Case Is > 4 
         Cells(x, 16).Value = 5 
         Cells(x, 17).Value = -0.2405524 
        Case 2.01 To 4 
         Cells(x, 16).Value = 4 
         Cells(x, 17).Value = 0.0223717 
        Case 1.01 To 2 
         Cells(x, 16).Value = 3 
         Cells(x, 17).Value = 0.112231 
        Case 0.01 To 1 
         Cells(x, 16).Value = 2 
         Cells(x, 17).Value = 0.5928195 
       End Select 
      Case "my", "th" 
       Select Case Cells(x, 15).Value 
        Case Is > 4.5 
         Cells(x, 16).Value = 5 
         Cells(x, 17).Value = -0.2405524 
        Case 2.01 To 4.5 
         Cells(x, 16).Value = 4 
         Cells(x, 17).Value = 0.0223717 
        Case 1.01 To 2 
         Cells(x, 16).Value = 3 
         Cells(x, 17).Value = 0.112231 
        Case 0.01 To 1 
         Cells(x, 16).Value = 2 
         Cells(x, 17).Value = 0.5928195 
       End Select 
      Case "" 
       Cells(x, 16).Value = "" 
       Cells(x, 17).Value = "" 
     End Select 
    End if 

Next x 

End Sub 

Answer 1

編輯我的代碼和它的作品。

Dim x As Integer 
For x = 4 To 100 

    If Cells(x, 2).Value = "" Or Cells(x, 3).Value = "" Or Cells(x, 5).Value = "" Or Cells(x, 6).Value = "" Or Cells(x, 7).Value = "" Then 
         Cells(x, 17).Value = "" 
         Cells(x, 18).Value = "" 

        ElseIf Cells(x, 7).Value <= 0 Then 
         Cells(x, 17).Value = 6 
         Cells(x, 18).Value = -0.3179688 

        ElseIf Cells(x, 16).Value <= 0 Then 
         Cells(x, 17).Value = 1 
         Cells(x, 18).Value = 0.6820312 

        ElseIf Cells(x, 2).Value = "A. Agriculture, forestry and fishing" Then 
         Select Case LCase(Cells(x, 3).Value) 
          Case "all", "id", "sg" 
            Select Case Cells(x, 16).Value 
             Case Is > 4 
              Cells(x, 17).Value = 5 
              Cells(x, 18).Value = -0.2405524 
             Case 2.01 To 4 
              Cells(x, 17).Value = 4 
              Cells(x, 18).Value = 0.0223717 
             Case 1.01 To 2 
              Cells(x, 17).Value = 3 
              Cells(x, 18).Value = 0.112231 
             Case 0.01 To 1 
              Cells(x, 17).Value = 2 
              Cells(x, 18).Value = 0.5928195 
            End Select 
          Case "my", "th" 
            Select Case Cells(x, 16).Value 
             Case Is > 4.5 
              Cells(x, 17).Value = 5 
              Cells(x, 18).Value = -0.2405524 
             Case 2.01 To 4.5 
              Cells(x, 17).Value = 4 
              Cells(x, 18).Value = 0.0223717 
             Case 1.01 To 2 
              Cells(x, 17).Value = 3 
              Cells(x, 18).Value = 0.112231 
             Case 0.01 To 1 
              Cells(x, 17).Value = 2 
              Cells(x, 18).Value = 0.5928195 
            End Select 
         End Select 
End if 

Next x