[已解决]求1到100之间的所有整数和

刘苏

好朋友在学VBA，今天问了我这样一个问题：
求1到100之间的所有整数和

我查了资料，写了两段代码：

过程：

1. Sub nsum()
   
2.     Dim i As Integer, nsum As Long
   
3.     For i = 1 To 100
   
4.         nsum = i + nsum
   
5.     Next i
   
6.     MsgBox nsum
   
7. End Sub

复制代码

自定义函数：

1. Function SumNumber(Bottom As Long, Top As Long) As Long
   
2. Application.Volatile
   
3.     If Bottom > Top Then
   
4.         SumNumber = ""
   
5.     Else
   
6. Dim Number As Long
   
7.         For Number = Bottom To Top
   
8.         SumNumber = Number + SumNumber
   
9.         Next
   
10.     End If
    
11. End Function

复制代码

在单元格中输入以下公式可以求和：

1. =SumNumber(0,100)

复制代码

类似于RANDBETWEEN，两个参数，一个最小值，一个最大值
对最大/小值之间的所有整数求和
也要求第一参数为最小值，否则返回错误值


对于VBA，其实我也算是新手，之所以发到论坛，是觉得一定有可以改进的地方

各位尽情拍砖

最佳答案

月排行榜 / 总排行榜

xdragon

2014-10-7 19:00

不用函数的哈，等差数列的计算公式，高中数学有学过，或者请教度娘就能得到公式

1. =(a1+an)*n/2

复制代码

a1 等差数列的第一个
an 等差数量的最后一个
n 等差数列的个数
应用到这题就是 =(1+100)*100/2

跳转到最佳答案楼层

1091126096

如果是为了学VBA，这样的练习是有意义的。但如果仅仅是个求和，用VBA甚至自定义函数，那就杀鸡用牛刀了。

蓝粆

{:11:}  可以修改下题目  转到资料馆~~

刘苏

函数法

正数（数组）：

1. =SUM(ROW(1:100))

复制代码

负数（数组）：

1. =SUM(-ROW(1:100))

复制代码

刘苏

1091126096 发表于 2014-10-7 15:54
如果是为了学VBA，这样的练习是有意义的。但如果仅仅是个求和，用VBA甚至自定义函数，那就杀鸡用牛刀了。

还有什么招，都发出来吧   一起交流/学习

1091126096

数组公式不就完了。

1. =SUM(ROW(1:100))

复制代码

AmoKat

=SUMPRODUCT(ROW(1:100))

xdragon

不用函数的哈，等差数列的计算公式，高中数学有学过，或者请教度娘就能得到公式

1. =(a1+an)*n/2

复制代码

a1 等差数列的第一个
an 等差数量的最后一个
n 等差数列的个数
应用到这题就是 =(1+100)*100/2

su45

时间长了，咱连等差数列的和都忘了

香川群子

有人告诉我一个算法，你们永远想不到！

=Combin(n+1,2)

n=100, 所以 = Combin(101,2)=5050