VBA写一个函数，用于求和

以下是一个简单的 VBA 函数，用于求取一组数的和：

Function SumNumbers(numbers() As Variant) As Double
    Dim sum As Double
    sum = 0
    For i = LBound(numbers) To UBound(numbers)
        sum = sum + numbers(i)
    Next i
    SumNumbers = sum
End Function

该函数接收一个变量类型为 Variant 的数组 numbers，通过遍历数组元素并将其相加来计算数组的和。最后将计算结果赋值给函数名 SumNumbers 并返回。可以在 VBA 编辑器中输入该代码并保存，之后在 Excel 等应用程序中调用。

相关问题

vba写一个excel求和程序

以下是一个简单的 VBA 程序，用于在 Excel 中对指定的单元格范围执行求和操作：

Sub SumCells()
    Dim total As Double
    Dim rangeToSum As Range
    
    Set rangeToSum = Range("A1:C10") ' 修改此处以设置要求和的单元格范围
    
    total = Application.WorksheetFunction.Sum(rangeToSum)
    
    MsgBox "总和为：" & total ' 显示总和
    
End Sub

请将代码复制并粘贴到 VBA 编辑器中，然后修改 `rangeToSum` 变量以设置要求和的单元格范围。您还可以使用 `InputBox` 函数让用户在程序运行时输入要求和的单元格范围。

如果您需要在 Excel 中运行此程序，请按 `Alt + F8` 打开宏对话框，然后选择要运行的宏并单击“运行”按钮。

vba求和写法

在 VBA 中，可以使用 Sum 函数来对一组数值进行求和。以下是一些常见的 VBA 求和写法：

1. 使用 Sum 函数：在 VBA 代码中，可以使用 Sum 函数来对一组数值进行求和。例如：

Dim sumValue As Double
sumValue = Application.WorksheetFunction.Sum(Range("A1:A10"))

这段代码将对 A1 到 A10 单元格范围内的数值进行求和，并将结果赋值给变量 sumValue。

2. 循环求和：在 VBA 代码中，也可以使用循环对一组数值进行求和。例如：

Dim sumValue As Double
Dim i As Integer
sumValue = 0
For i = 1 To 10
    sumValue = sumValue + Range("A" & i).Value
Next i

这段代码将对 A1 到 A10 单元格范围内的数值进行循环求和，并将结果赋值给变量 sumValue。

3. 使用数组求和：在 VBA 代码中，还可以使用数组对一组数值进行求和。例如：

Dim sumValue As Double
Dim arr() As Variant
arr = Range("A1:A10").Value
sumValue = WorksheetFunction.Sum(arr)

这段代码将 A1 到 A10 单元格范围内的数值存储到数组 arr 中，然后使用 Sum 函数对数组进行求和，并将结果赋值给变量 sumValue。

以上是一些常见的 VBA 求和写法，根据具体的需求和情况，可以选择适合的方法进行求和。