困難題求高手相助!!!!

如何依平均值&上限&下限產生一組數值?
假如一組為21個數值
頭痛了很久還是想不出來用vba可以解決也可以 :D

依條件產生數值.rar (6.52 KB)

樓主熱帖

zheng211016

　暱稱: zheng逸

中學生 Rank: 2

帖子: 98
主題: 15
精華: 0
積分: 163
點名: 0
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2017-5-30
最後登錄: 2024-1-7

2^#

發表於 2018-2-14 20:32 | 顯示全部帖子

非常感謝 jackyq 大大
兩個方法都很棒謝謝您

TOP

zheng211016

　暱稱: zheng逸

中學生 Rank: 2

帖子: 98
主題: 15
精華: 0
積分: 163
點名: 0
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2017-5-30
最後登錄: 2024-1-7

3^#

發表於 2018-2-14 23:04 | 顯示全部帖子

回復 2# hcm19522

感謝 hcm19522大回復
我會找時間弄懂你的函數用法的謝謝!!!

TOP

zheng211016

　暱稱: zheng逸

中學生 Rank: 2

帖子: 98
主題: 15
精華: 0
積分: 163
點名: 0
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2017-5-30
最後登錄: 2024-1-7

4^#

發表於 2018-2-14 23:32 | 顯示全部帖子

本帖最後由 zheng211016 於 2018-2-14 23:34 編輯

給想學得人參考:D
Sub 最簡單法___________________()

'組數過大時, 運算會極度耗時

  平均值 = [A2]
上限 = [B2]
下限 = [C2]
組數 = [D2]

  Randomize                      '重置亂數
'----------------------------Do 迴圈------------------------------------
  Do
Value_Sum = 0
For w = 1 To (組數 - 1)                         'for 迴圈(假如組數21 只會跑20次)

      Value = Rnd * (上限 - 下限) + 下限     'Value = 亂數產生上下限之中的值
      Value_Sum = Value_Sum + Value     'Value_Sum = 把迴圈內所有Value加起來
      Range("G" & w) = Value                   '把產生的值放入儲存格內 / w = 為迴圈數

Next                                                               'for 迴圈執行到完就可以到下一行
殘值 = 平均值 * 組數 - Value_Sum       '殘值 = 平均值 * 組數 - 迴圈內所有的Value總和
循環次數 = 循環次數 + 1                           '累加 Do迴圈次數

  Loop Until 殘值 >= 下限 And 殘值 <= 上限  '直到殘值 >= 下限 + 殘值 <= 上限
'------------------------結束迴圈(達成上述條件)------------------------
  Range("G" & w) = 殘值                                  '殘值放入儲存格內(也就是最後一格)
  Debug.Print 循環次數                                     '用於立即視窗顯示 Do循環次數
End Sub

TOP