将指定值，随机生成n个保留两位小数的值且在指定范围内

weil_wl_zheng

例如将30000.52，生成77个数，且均都在200.66~4688.18范围内，怎么样做呀，跪求解！！！

micch

77个数干啥？什么规则啊，没有规律就直接rand()*4488+200.66

weil_wl_zheng

micch 发表于 2020-2-11 21:33
77个数干啥？什么规则啊，没有规律就直接rand()*4488+200.66

谢谢您的回复，77个数是随机的均需保留两位数，但是77个数加起来必需是要求的值30000.52，能用什么方法实现，如这个宏差不多，
Sub 按钮1_Click()
    ActiveSheet.UsedRange.ClearContents
    he = Application.InputBox("请输入和值：", "和值", 25367.38, , , , , 1)
   
    If he = False Then Exit Sub
    Set d = CreateObject("scripting.dictionary")
    n = Int(he / 1100)
    Randomize
l1:
    d.RemoveAll
    n = 0
l2:
    n = n + 1
    d(n) = WorksheetFunction.RandBetween(80000, 130000) / 100
    zz = WorksheetFunction.Sum(d.items)
    If WorksheetFunction.Sum(d.items) > he - 800 Then
        GoTo l1
    Else
        If he - WorksheetFunction.Sum(d.items) > 1300 Then
            GoTo l2
        End If
    End If
   
    n = n + 1
    d(n) = he - WorksheetFunction.Sum(d.items)
    [a1].Resize(d.Count) = WorksheetFunction.Transpose(d.items)
End Sub

但是我的n为指定值不是he/1100

weil_wl_zheng

micch 发表于 2020-2-11 21:33
77个数干啥？什么规则啊，没有规律就直接rand()*4488+200.66

Sub 按钮1_Click()
    ActiveSheet.UsedRange.ClearContents
    he = Application.InputBox("请输入和值：", "和值", 25367.38, , , , , 1)
   
    If he = False Then Exit Sub
    Set d = CreateObject("scripting.dictionary")
    n = Int(he / 1100)
    Randomize
l1:
    d.RemoveAll
    n = 0
l2:
    n = n + 1
    d(n) = WorksheetFunction.RandBetween(80000, 130000) / 100
    zz = WorksheetFunction.Sum(d.items)
    If WorksheetFunction.Sum(d.items) > he - 800 Then
        GoTo l1
    Else
        If he - WorksheetFunction.Sum(d.items) > 1300 Then
            GoTo l2
        End If
    End If
   
    n = n + 1
    d(n) = he - WorksheetFunction.Sum(d.items)
    [a1].Resize(d.Count) = WorksheetFunction.Transpose(d.items)
End Sub

跟这个差不多，但我的n为指定值，如何改！！