為什么在運行elseif語句時收到類型不匹配錯誤

Question

因此，我嘗試運行以下代碼，但在ElseIf Cells(x, 1) <> "" And Cells(x, 2) <> "" And Cells(x, 15).Value <= 0 Then行ElseIf Cells(x, 1) <> "" And Cells(x, 2) <> "" And Cells(x, 15).Value <= 0 Then收到“類型不匹配錯誤”。 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