随机数之和接近目标值函数怎么写

混沌音符

1. Sub test()
   
2. Dim i%
   
3. For i = 1 To 1000
   
4.     If Abs([C6] - [D6]) < 0.05 Then
   
5.     Exit Sub
   
6.     Else
   
7.     Calculate
   
8.     End If
   
9. Next
   
10. End Sub
    

复制代码

你是那块小饼干

1. =LAMBDA(X,Y,Z,T,R,
   
2. LET(
   
3. _T,RANDARRAY(R,,Y,Z,FALSE),
   
4. _M,SUMPRODUCT(SEQUENCE(R),_T),
   
5. _N,X-_M,
   
6. IF(AND(_N>0,_N<=T),_T,FX(X,Y,Z,T,R))))(F1,F2,F3,F4,F5)
   

复制代码

弄如下的辅助咧
然后输入公式就出来了

木鱼123654

leepoison 发表于 2024-7-5 10:04

感谢，我虽然看不太懂，但是一点点的试，明白了这个公式的原理， 很接近但不是我想要的，是我说的 有问题，我补充描述下，A列B列都是固定数值，C列取随机数（0.87-1.1），D列是B*C , E 列 为A*D,  E列之和 接近F5(91)停止。，哦 多了 还有一点，是 execl好像不认这个公式，只能wps

part98

1. =LET(f,LAMBDA(f,x,LET(y,RANDARRAY(4,1,0.87,1.1),diff,ABS(SUMPRODUCT(B1:B4,A1:A4,y)-x),IF(diff<=0.05,y,f(f,x)))),f(f,91))

复制代码

excel要365版本才能用递归，你的版本应该不够

木鱼123654

part98 发表于 2024-7-5 13:33
excel要365版本才能用递归，你的版本应该不够

感谢，我来琢磨琢磨