一个递增累计相加的问题，请大神们赐教

fifi0703

想要大神们帮忙设计一个VBA，解决一个递增累计相加的问题


如果A列是1，那么B就是1*10

如果A列是2，那么B就是1*10+1*20

如果A列是3，那么B就是1*10+1*20+1*30
……
A列的数最多到50。

累计相加.zip (6.96 KB, 下载次数: 3)

2023-3-6 19:48 上传

点击文件名下载附件

bqwd36

感觉可以换个算法10*（1+2+...+50），这样代码就好写了吧

skyzxh

用等差数列公式即可：=10*n*(n+1)/2，n就是你的次数

剑指E

fifi0703

剑指E 发表于 2023-3-6 20:05

谢谢大神，完美实现。想再贪心问一下，可以用 Private Sub Worksheet_Change实现吗？

剑指E

可以啊。。。。。。。。

fifi0703

剑指E 发表于 2023-3-6 20:05

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then
    Exit Sub
  End If
  
  If Target.Column = 1 And Target.Row > 1 And Target.Row < 30 Then
    ar = Range("A1").CurrentRegion
    For i = 2 To UBound(ar)
    ar(i, 2) = 0
      For j = 1 To ar(i, 1)
      ar(i, 2) = ar(i, 2) + j * 10
      Next
    Next
    Range("A1").CurrentRegion = ar
  End If   
End Sub

试着套了一个，运行了一下可以用，不知道有没有逻辑错误？

fifi0703

剑指E 发表于 2023-3-6 21:00
可以啊。。。。。。。。

套了一个，运行可以用，不知道有没有什么逻辑错误？

剑指E

fifi0703

剑指E 发表于 2023-3-6 21:00
可以啊。。。。。。。。

我再试下，谢谢