关于EXCEL表格里有一列10个数字比如有1000.200.2500.35000********,要挑出5个来,求出固定的一个数字,比如10000,怎么挑出这5个数字的问题
意思就是一列有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
。