我是凑数王

来源：互联网发布：科比布莱恩特数据编辑：程序博客网时间：2024/04/28 12:14

今天客户让我算Category Credit Qual 的Breakdown。这几万条数据的，我怎么给他凑出来那个数。于是想到了之前一个凑数模板，在此基础上修改一下，就能用来抓住里面的各元素，再倒回去分析。特此贴一个裸版。

Public arr1Sub AvgCalculator()        'To assign column K to one dimensional array    arr1 = WorksheetFunction.Transpose(Range(Sheet1.Cells(2, 9), Sheet1.Cells(48, 9)).Value)            'Better to use a bubble sort here.         Dim arr2(1 To 5, 1 To 1)    Dim AvgSum1 As Double        AvgSum1 = 0        k = 1    Do While (AvgSum1 <> 43.995)    AvgSum1 = 0        For i = 1 To 5            bbb = Random(47, 1)                For h = 1 To 5   'Remove duplicate numbers                    Do While bbb = arr2(h, 1)                            bbb = Random(47, 1)                            Loop        Next h                        arr2(i, 1) = bbb        AvgSum1 = AvgSum1 + arr1(bbb)          Next i            AvgSum1 = Round(AvgSum1 / 5, 3)     Loop    MsgBox AvgSum1    MsgBox "You got it   ... "    MsgBox arr2(1, 1)    MsgBox arr2(2, 1)    MsgBox arr2(3, 1)    MsgBox arr2(4, 1)    MsgBox arr2(5, 1)End SubFunction Random(UpB, LoB)    Random = Int((UpB - LoB + 1) * Rnd + LoB)    End Function

0 0