0

当我只为工作表的一行(而不是变量 i,输入任何其他数字)运行我的程序时,没有问题。但是当我尝试使用 FOR 循环对其他行执行此操作时,会出现错误消息Run time error 1004. Method 'Range' object '_Global' _ failed。调试器总是突出显示第 14 行。但我不知道我是否必须修复这条线。希望任何人都可以帮助我......我的代码如下。

Sub depth()
    Dim VAR1 As Double
    Dim VAR2 As Double
    Dim VAR3 As Double
    Dim finalDepth As Double
    Dim i As Integer

  ' Calculation of depth when soil temperature is zero. Calculation 
  ' was made considering linear change of temperature between 2 values

    With ThisWorkbook.Worksheets("sheet1")
        For i = 2 To 30547

          ' (PART HIGHLIGHTED BY DEBUGGER)

            If Range("Fi").Value > 0 And _
                Range("Gi").Value > 0 And _
                Range("Hi").Value > 0 And _
                Range("Ii").Value > 0 And _
                Range("Ji").Value > 0 And _
                Range("Ki").Value > 0 And _
                Range("Li").Value > 0 And _
                Range("Mi").Value > 0 And _
                Range("Ni").Value > 0 And _
                Range("Oi").Value > 0 And _
                Range("Pi").Value > 0 Or _
                Range("Fi").Value < 0 And _
                Range("Gi").Value < 0 And _
                Range("Hi").Value < 0 And _
                Range("Ii").Value < 0 And _
                Range("Ji").Value < 0 And _
                Range("Ki").Value < 0 And _
                Range("Li").Value < 0 And _
                Range("Mi").Value < 0 And _
                Range("Ni").Value < 0 And _
                Range("Oi").Value < 0 And _
                Range("Pi").Value < 0 Then

                Range("Ri").Value = 0

          ' Calculation of depth when temperature is zero for each column on one row

            ElseIf (Range("Fi").Value > 0 And Range("Gi").Value < 0) Then
                VAR1 = (Range("Fi") - Range("Gi"))
                VAR2 = VAR1 / (Range("G1") - Range("F1"))
                VAR3 = Range("Fi") / VAR2
                finalDepth = Range("F1") + VAR3
                Range("Ri").Value = finalDepth

          ' Columns g and h

            ElseIf (Range("Gi").Value > 0 And Range("Hi").Value < 0) Then
                VAR1 = (Range("Gi") - Range("Hi"))
                VAR2 = VAR1 / (Range("H1") - Range("G1"))
                VAR3 = Range("Gi") / VAR2
                finalDepth = Range("G1") + VAR3
                Range("Ri").Value = finalDepth

          ' Columns h and i

            ElseIf (Range("Hi").Value > 0 And Range("Ii").Value < 0) Then
                VAR1 = (Range("Hi") - Range("Ii"))
                VAR2 = VAR1 / (Range("I1") - Range("H1"))
                VAR3 = Range("Hi") / VAR2
                finalDepth = Range("H1") + VAR3
                Range("Ri").Value = finalDepth

          ' Columns i and j

            ElseIf (Range("Ii").Value > 0 And Range("Ji").Value < 0) Then
                VAR1 = (Range("Ii") - Range("Ji"))
                VAR2 = VAR1 / (Range("J1") - Range("I1"))
                VAR3 = Range("Ii") / VAR2
                finalDepth = Range("I1") + VAR3
                Range("Ri").Value = finalDepth

          ' Columns j and k

            ElseIf (Range("Ji").Value > 0 And Range("Ki").Value < 0) Then
                VAR1 = (Range("Ji") - Range("Ki"))
                VAR2 = VAR1 / (Range("K1") - Range("J1"))
                VAR3 = Range("Ji") / VAR2
                finalDepth = Range("J1") + VAR3
                Range("Ri").Value = finalDepth

          ' Columns k and l

            ElseIf (Range("Ki").Value > 0 And Range("Li").Value < 0) Then
                VAR1 = (Range("Ki") - Range("Li"))
                VAR2 = VAR1 / (Range("L1") - Range("K1"))
                VAR3 = Range("Ki") / VAR2
                finalDepth = Range("K1") + VAR3
                Range("Ri").Value = finalDepth

          ' Columns l and m

            ElseIf (Range("Li").Value > 0 And Range("Mi").Value < 0) Then
                VAR1 = (Range("Li") - Range("Mi"))
                VAR2 = VAR1 / (Range("M1") - Range("L1"))
                VAR3 = Range("Li") / VAR2
                finalDepth = Range("L1") + VAR3
                Range("Ri").Value = finalDepth

          ' Columns m and n

            ElseIf (Range("Mi").Value > 0 And Range("Ni").Value < 0) Then
                VAR1 = (Range("Mi") - Range("Ni"))
                VAR2 = VAR1 / (Range("N1") - Range("M1"))
                VAR3 = Range("Mi") / VAR2
                finalDepth = Range("M1") + VAR3
                Range("Ri").Value = finalDepth

          ' Columns n and o

            ElseIf (Range("Ni").Value > 0 And Range("Oi").Value < 0) Then
                VAR1 = (Range("Ni") - Range("Oi"))
                VAR2 = VAR1 / (Range("O1") - Range("N1"))
                VAR3 = Range("Ni") / VAR2
                finalDepth = Range("N1") + VAR3
                Range("Ri").Value = finalDepth

          ' Column o and p

            ElseIf (Range("Oi").Value > 0 And Range("Pi").Value < 0) Then
                VAR1 = (Range("Oi") - Range("Pi"))
                VAR2 = VAR1 / (Range("P1") - Range("O1"))
                VAR3 = Range("Oi") / VAR2
                finalDepth = Range("O1") + VAR3
                Range("Ri").Value = finalDepth
            End If
        Next i
    End With
End Sub
4

1 回答 1

0

您还需要在所有 Range 调用之前添加一个句点

.Range("F" & i).Value
于 2013-06-03T17:21:53.673 回答