Question

我的代码中一直出现此错误：

Sub Button2_Click()
    Dim start As Integer
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim amount As Integer
    amount = 0
    Dim answer As Range
    Set answer = Range("K22:K28")

    For k = Range("K22").Row To Range("K28").Row
        For j = Range("B11").Row To Range("B371").Row Step 7
             amount = amount + j
        Next
        k = amount
        amount = 0
    Next
End Sub

我在这段代码中尝试做的是循环遍历B列的每7个实例，获取它们的值并将它们相加在一起，将总和存储在从K22开始的单元格中，然后再从该列开始循环下一个B单元跟随，在这种情况下为B12，其中B12的和将存储在K23中，依此类推。我在这做错了什么？请让我知道，任何指向正确方向的指针都会很棒。

我试图为此创建一个按钮，当点击该按钮时，将运行我的程序并开始计算和显示。

Answer 1

这是我相信你写的。

Sub Button2_Click()
    Dim b As Long, k As Long
    Dim amount As Double

    For k = 22 To 28
        For b = 11 + (k - 22) To 371 + (k - 22) Step 7
             amount = amount + Range("B" & b)
        Next b
        Range("K" & k) = amount
        amount = 0
    Next k
End Sub

在VBE中更改后，使用 Alt + Q 返回工作表。

VBA Excel无法在中断模式下执行代码吗？

1 个答案: