Question

我的变量值（Excel-VBA）没有增加。请帮我。以下是语法：

Do

    Sheets("PF Data - Monthly").Select

    PF_WAGE = PF_WAGE + Range("D" & row_no).Value
    PF_EMP = PF_EMP + Range("E" & row_no).Value
    PF_367 = PF_367 + Range("F" & row_no).Value
    PF_833 = PF_833 + Range("G" & row_no).Value

    row_no = row_no + 1

Loop Until Range("A" & row_no).Value = AC_NO

Answer 1

一个简单的With可以帮助您发挥重要作用。

然后，在With内，您需要通过添加Range来限定所有.个对象。即.Range("D" & row_no).Value

<强>代码

row_no=1

With Sheets("PF Data - Monthly")
    Do
        PF_WAGE = PF_WAGE + .Range("D" & row_no).Value
        PF_EMP = PF_EMP + .Range("E" & row_no).Value
        PF_367 = PF_367 + .Range("F" & row_no).Value
        PF_833 = PF_833 + .Range("G" & row_no).Value

        row_no = row_no + 1
    Loop Until .Range("A" & row_no).Value = AC_NO
End With

Answer 2

试试这个

dim row_no as long  
dim ws as worksheet
Set ws = ThisWorkBook.Worksheets("PF Data - Monthly")

row_no = 1 ' initialize it
Do

    PF_WAGE = PF_WAGE + ws.Range("D" & row_no).Value
    PF_EMP = PF_EMP + ws.Range("E" & row_no).Value
    PF_367 = PF_367 + ws.Range("F" & row_no).Value
    PF_833 = PF_833 + ws.Range("G" & row_no).Value

    row_no = row_no + 1

Loop Until ws.Range("A" & row_no).Value = AC_NO

Answer 3

您必须将此行添加到您的代码中：row_no = 1，因为默认情况下row_no的值为零。

row_no = 1

待办事项

Sheets("PF Data - Monthly").Select



PF_WAGE = PF_WAGE + Range("D" & row_no).Value
PF_EMP = PF_EMP + Range("E" & row_no).Value
PF_367 = PF_367 + Range("F" & row_no).Value
PF_833 = PF_833 + Range("G" & row_no).Value

row_no = row_no + 1

循环直到范围（＆＃34; A＆＃34;＆amp; row_no）.Value = AC_NO

End Sub

变量值不会增加

3 个答案: