怎样使用VBA对指定范围求和与求积？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Function SumPro(a, b, options As String)  '根据下限和上限求累计和或者阶乘

  If a <=0 Or b <=0 Then SumPro="只能输入自然数": Exit Function
                                          '限制参数为自然数
  If a > b Then SumPro="下限不能超过上限": Exit Function
  Dim temp As Long
  If options="SUM" Then  '如果参数是SUM则求和
  For temp=a To b
  SumPro=SumPro+temp
  Next temp
  Else
  If options="PRO" Then  '如果参数是PRO则求积
  SumPro=1
  For temp=a To b
  SumPro=SumPro * temp
  Next temp
  Exit Function
  End If
  SumPro="参数错误"       '如果参数是两者之外则返回参数错误
 End If
End Function

5、在单元格B1中输入公式“=SumPro(1,10,"PRO")”，可得结果36288，即从1到10的数相乘，可以输入“=1*2*3*4*5*6*7*8*9*10”验证