制定一个平均数，求5个随机数

火小热

hcm19522 发表于 2022-3-28 17:46
小数 化為整數 再除回 如 10.55*100-->1055-->RUN後再/100-->小数

大侠，第一个压缩包表格里，如何多设置几行和如何设置“#NA”？谢谢。

hcm19522

火小热 发表于 2022-3-28 21:57
大侠，第一个压缩包表格里，如何多设置几行和如何设置“#NA”？谢谢。

99格{=IF(ROW(1:99)>C2,"",MMULT((RANDBETWEEN(TRANSPOSE(ROW(INDIRECT("1:"&B$2*10*C$2)))^0,C$2)=ROW(INDIRECT("1:"&C$2)))*1,ROW(INDIRECT("1:"&B$2*10*C$2))^0)/10)

六明

学习了~

火小热

hcm19522 发表于 2022-3-29 10:02
99格{=IF(ROW(1:99)>C2,"",MMULT((RANDBETWEEN(TRANSPOSE(ROW(INDIRECT("1:"&B$2*10*C$2)))^0,C$2)=ROW(I ...

需要时间根据每次工作内容不同输入1-15min，共设15行，当需要时间小于15行时，余下显示空白或#NA。

hcm19522

F5輸入开始时间

F6 下拉=IF(ROW(A1)>D$5-1,"",TEXT(F5+1/1440,"HH:MM"))

火小热

hcm19522 发表于 2022-3-29 12:17
F5輸入开始时间

F6 下拉=IF(ROW(A1)>D$5-1,"",TEXT(F5+1/1440,"HH:MM"))

=IF(ROW(A1)>D$5-1,"",F5+TIME(0,1,0))。
大侠，后面我用了"F5+TIME(0,1,0))",前面测试条件，请解析一下。
谢谢！

火小热

火小热 发表于 2022-3-29 12:33
=IF(ROW(A1)>D$5-1,"",F5+TIME(0,1,0))。
大侠，后面我用了"F5+TIME(0,1,0))",前面测试条件，请解析一下 ...

大侠，F5输入时间后能否自动把余下的时间重新计算？

大和易道

麻烦各位大佬顺便帮个忙！计算思路应该相同，但我这个是横着的，我对函数的理解有限，所以暂借这个平台麻烦各位出手帮衬一二！谢谢大家！

leepoison

=LAMBDA(x,LET(aa,LAMBDA(x,LET(个数,5,波动,5,y,RANDARRAY(个数,,x-波动*10,x+波动*10,1),IF(AVERAGE(y)=x,y,aa(x)))),aa(x)))(200)/10

qcdf

VBA完成
---------------------------------------------------------
Sub 生成随机数()
    Dim numbers(1 To 5) As Double
    Dim sumInitial As Double
    Dim delta As Double
    Dim targetSum As Double
    Dim i As Integer
   
    ' 获取目标总和（A2的值乘以5）
    targetSum = Range("A2").Value * 5
   
    ' 初始化随机数生成器
    Randomize
   
    ' 生成三个中间随机数（0到5之间）
    numbers(2) = Rnd() * 5
    numbers(3) = Rnd() * 5
    numbers(4) = Rnd() * 5
   
    ' 设置第一个和第五个数（固定极差为5）
    numbers(1) = 0
    numbers(5) = 5
   
    ' 计算初始总和
    sumInitial = Application.Sum(numbers)
   
    ' 计算平移量以调整平均值
    delta = (targetSum - sumInitial) / 5
   
    ' 调整所有数值并保留两位小数
    For i = 1 To 5
        numbers(i) = Round(numbers(i) + delta, 2)
    Next i
   
    ' 将结果输出到B2:B6单元格
    Range("B2:B6").Value = Application.Transpose(numbers)
End Sub