EXCEL表格求和问题(急)EXCEL
意思就是一列有10个数字，任意挑5个数字的和要等于10000。
只想到用宏（可能有更改的办法），循环所有数值求和。还好是10个数字选5个数字，得到结果应该不会超过10秒吧。
等我做做看
Sub li()
Dim z(10)
i = 1
y = Selection。 Column
pd = InputBox("请输入结果数值，只能为数字", "结果", 10000)
For Each x In Selection
If x。Value <> "" Then
z(i) = x。 Value
i = i + 1
End If
Next
For a = 1 To 10
For b = 1 To...全部
意思就是一列有10个数字，任意挑5个数字的和要等于10000。
只想到用宏（可能有更改的办法），循环所有数值求和。还好是10个数字选5个数字，得到结果应该不会超过10秒吧。
等我做做看
Sub li()
Dim z(10)
i = 1
y = Selection。
Column
pd = InputBox("请输入结果数值，只能为数字", "结果", 10000)
For Each x In Selection
If x。Value <> "" Then
z(i) = x。
Value
i = i + 1
End If
Next
For a = 1 To 10
For b = 1 To 10
If a <> b Then
For c = 1 To 10
If c <> a And c <> b Then
For d = 1 To 10
If d <> a And d <> b And d <> c Then
For e = 1 To 10
If e <> a And e <> b And e <> c And e <> d Then
panduan = z(a) + z(b) + z(c) + z(d) + z(e)
If panduan = CInt(pd) Then
Cells(a, y)。
Font。ColorIndex = 3
Cells(b, y)。Font。ColorIndex = 3
Cells(c, y)。Font。ColorIndex = 3
Cells(d, y)。
Font。ColorIndex = 3
Cells(e, y)。Font。
ColorIndex = 3
Exit Sub
End If
End If
Next e
End If
Next d
End If
Next c
End If
Next b
Next a
End Sub
。收起
