• 所有问题

    • 如何用VBA实现每次随机生成10个数字

    如题所述

    举报该问题
    推荐答案   2023-08-14

    1、生成第一个随机数。在E2单元格内输入公式“=ROUNDUP(RAND()*2*(100-SUM($E$1:E1))/(11-ROW(E1)),1)”生成第一个随机数。

    2、调整有效数字位数。下图红框中的数字控制着随机数有效数字位数，如果想保留三位有效数字，将其改成3即可。

    3、拉伸填充E2到E10。点击E2右下角的黑点，鼠标变成十字形，拖往E10单元格，这样就填充了E2到E10单元格。

    4、生成最后一个随机数。在E11单元格内输入公式“=100-SUM(A2:A10)”，生成最后一个随机数。

    温馨提示：答案为网友推荐，仅供参考
    相似回答
    vba编程:随机产生10个2位数整数,并求出其中的偶数个数,用消息框显示答：Next b = MsgBox("产生的这10个随机数是:" & X(1) & "," & X(2) & "," & X(3) & "," & X(4) & "," & X(5) & "," & X(6) & "," & X(7) & "," & X(8) & "," & X(9) & "," & X(10) & "." & "其中偶数有" & A & "个.要写入当前工作...
    vba编程,按从小到大顺序输出任意10个数答：Sub 由小到大生成一定范围内的随机数()Dim i As Integer, x As Integer, k As Integeri = 1Dim d As ObjectSet d = CreateObject("Scripting.Dictionary") '定义并创建字典对象Randomizex = Int((Rnd * 100) + 1) '随机生成第1个[1,100]之间的整数d.Add x, i '将生成的值赋予字典'...
    如何用VBA生成总和为3000的十个随机数答：步骤1：选择A1:A10单元格，输入=RAND() 按Ctrl+Enter组合键结束，生成10个随机数；步骤2：选择B1:B10单元格，输入以下公式，按Ctrl+Enter组合键结束，生成符合总和为3000的10个100-1000的随机数 =100+2000*A1/SUM(A:A)方法要点：将100作为基准条件，10*100＝1000，则将3000－1000＝2000作为另外...
    Excel中VBA取固定数值随机数答：),Range("D11"))for each cell in t n = int(rnd()*20+16) cell.value=range("E" & n).Valuenextend sub 这个应该是符合你的条件，看了你和楼上的互动，我推测你实际区域并不是像你提供的这样是连续区域，而应该是很多个不连续区域吧。用UNION就可以了,可以随便改区域。
    大家正在搜
    如何随机生成数字1-10随机数字生成器数字随机生成excel随机生成数字数字孪生怎么实现数字1-10各种字体小数字1-9在线生成器小数字生成器数字自动生成器