Question

所以我尝试运行以下代码，但收到了＆＃39;类型不匹配错误＆＃34;对于行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

为什么我在运行elseif语句时收到类型不匹配错误

1 个答案: