excel 随机选出几个数字并等于预设的和

Question

假设A1---A10单元格有 10个数字并且是不重复的
A1=9 ,A2=10 ,A3=11, A4=13, A5=16 ,A6=22,A7=18,A8=30,A9=31,A10=2
现在我想在A16中随便输入一个数字 假如是70
那么在A11-A15单元格里显示出一组等70的数字
A11=9,A12=10,A13=11,A14=22,A15=18
这些数字必须要从A1---A10中获取
最后可以更新 就是假设我在A16中输入了一个数字 在A11---A15中也显示出来了这组数字 但是那组数字不是我想要的 如果在换一组数字 依然等于A16输入的数字
最好用excel函数 不知道能不能实现 谢了各位大侠
那如果是20个数字取5个呢
最好是6个以内 因为一般就用5个 用6个的时候太少了
还有就是 也不是一定是10个数字里去 有时候也会多些例如15 20个都是有可能的

Answer 1

用VBA

B列公式=rand()

C1公式

=INDEX($A$1:$A$10,MATCH(SMALL($B$1:$B$10,ROW(A1)),$B$1:$B$10,))

填充到C5

D5为求和公式

VBA代码

Sub a()

Do

Calculate

Loop Until Cells(5, 4) = 70

End Sub

不明白hi我，我把文件发给你

Answer 2

好难啊，用vba都很难的。因为十个数取出五个数是很大的量！

Answer 3

据我所知，好像不可以吧，因为毕竟不是机器人啊

Answer 4

可以用规划求解完成.
百度搜一下 "excel 规划求解"的教程

给一段vba
按住ALT依次按F11,I,M
粘贴下面的代码后回到excel中按ALT+F8调用宏

'=====分割线下方为需要粘贴的代码==========

Option Base 1
Sub 随机选数()
Dim t As Integer
Dim b
Set x = Application.InputBox("请选取数据源后单击确定", , , , , , , 8) '用鼠标选中A1:A10后确定
a = Application.WorksheetFunction.Transpose(x)
t = InputBox("请输入目标值") '输入目标值70
l = UBound(a)
Cells(1, 2).Resize(65536, l).Clear
ReDim b(l)
For n = 1 To 2 ^ l - 1
x = n
For i = 1 To l
b(i) = x Mod 2
x = Int(x / 2)
y = y + a(i) * b(i)
Next
If y = t Then
r = r + 1
c = 2
Cells(r, c) = Format(r, "第0个解")
For i = 1 To l
If b(i) Then
c = c + 1
Cells(r, c) = a(i)
End If
Next
End If
y = 0
Next
End Sub