Question

我想将一个单元格中的值累加到附近的单元格中。它应该对以下代码中使用的值i求和，但是对于单元格范围（例如A1到A10），我需要i，并且累积结果应该在B1到B10中。抱歉，我是新手

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub
[B1] = [B1] + [A1]

结束子

Answer 1

首先，放弃[A1]样式的地址，而忘记了它的存在。

扩展“相交”范围并处理“目标”，其中“目标”可能比单个单元格更多。

暂时更改事件处理，否则当您更改工作表中的值时，Worksheet_Change将尝试在其自身之上运行。

处理错误，否则工作簿可能卡住。

Private Sub Worksheet_Change(ByVal Target As Range)
    If not Intersect(Range("A1:A10"), Target) is nothing then
        on error goto meh
        application.enableevents = false
        dim t as range
        for each t in Intersect(Range("A1:A10"), Target)
            t.offset(0, 1) = t.offset(0, 1) + t.value2
        next t
    end if

meh:
    application.enableevents = true
End Sub

如何计算总和的范围

1 个答案: