vba求任意几个数相加等于指定数

在VBA中，可以使用循环和条件语句来实现求任意几个数相加等于指定数的功能。

首先，可以定义一个数组来存储要求和的数值。然后使用循环来遍历数组中的每个元素，将其与其他元素相加，判断是否等于指定的数。如果等于指定数，则输出这些数的组合。如果不等于指定数，则继续遍历数组，将其他元素与当前元素相加，直到找到符合条件的数的组合。

下面是一个简单的VBA示例代码：

Sub FindSum()
Dim numArray(1 To 5) As Integer
Dim sumNum As Integer
Dim i As Integer, j As Integer

numArray(1) = 2
numArray(2) = 4
numArray(3) = 6
numArray(4) = 3
numArray(5) = 8

sumNum = 10

For i = 1 To 4
For j = i + 1 To 5
If numArray(i) + numArray(j) = sumNum Then
MsgBox (numArray(i) & "+" & numArray(j) & "=" & sumNum)
End If
Next j
Next i
End Sub

在上面的示例代码中，首先定义了一个包含5个元素的数组，分别为2、4、6、3和8。然后指定要求的和为10。

接着使用两个循环来遍历数组中的每个元素，将其与其他元素相加，并判断是否等于指定的和。如果等于，则弹出一个消息框，显示这些数的组合。在本示例中，输出的结果为“2+8=10”和“4+6=10”。

需要注意的是，在实际使用VBA进行求和计算时，需要根据实际情况对代码进行修改和优化，以确保正确性和有效性。