PaulDing

小學生 Rank: 1

帖子: 13
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: win10
軟體版本: office2016
閱讀權限: 10
性別: 男
來自: 台北
註冊時間: 2018-8-12
最後登錄: 2018-10-11

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-8-26 16:55 | 只看該作者

[發問] 將一固定值隨機分配到指定欄位

VBA

請教各位大大 , 由於小弟正在做模擬研究遇到了以下的問題 , 請各位大大幫忙指導VBA該如何編寫呢 ? 感恩 .

想要將Project1 Demand的固定值隨機分配到10個SKU中.

小丁

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2018-8-26 17:12 | 只看該作者

本帖最後由 n7822123 於 2018-8-26 17:13 編輯

回復 1# PaulDing

隨機分配到10個欄位的合要等於111嗎?
如果能描述清楚一點，或者舉一個範例結果，別人才知道你的需求

TOP

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-24

熱烈參與勳章

3^#

發表於 2018-8-26 17:43 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/585237398

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

4^#

發表於 2018-8-26 17:49 | 只看該作者

本帖最後由 n7822123 於 2018-8-26 18:02 編輯

回復 2# n7822123

隨便做了一個，不知道有沒符合你的需求

test1.rar (13.78 KB)

Sub test1()
亂數比例範圍 = 0.3
RN = Sheets(1).UsedRange.Rows.Count
ReDim Sum(RN - 1)
For R = 1 To RN - 1
Sum(i) = Cells(R + 1, 3)
ave = Sum(i) / 10
For C = 1 To 9
Cells(R + 1, C + 3) = Fix(((Rnd * 2) - 1) * (ave * 亂數比例範圍) + ave)
Next C
Cells(R + 1, 13) = "=sum(RC[-9]:RC[-1])"
Cells(R + 1, 13) = Sum(i) - Cells(R + 1, 13)
Next R
End Sub

複製代碼

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

5^#

發表於 2018-8-26 18:22 | 只看該作者

本帖最後由 n7822123 於 2018-8-26 18:26 編輯

回復 1# PaulDing

剛剛發現你的S.N. 在B欄，修改一下程式碼
如果要用函數做的話參考 hcm19522 大大即可

test1.rar (13.85 KB)

Sub test1()
亂數比例範圍 = 0.3
RN = Sheets(1).UsedRange.Rows.Count
ReDim Sum(RN - 1)
For R = 1 To RN - 1
Sum(R) = Cells(R + 1, 4)
ave = Sum(R) / 10
For C = 1 To 9
Cells(R + 1, C + 4) = Fix(((Rnd * 2) - 1) * (ave * 亂數比例範圍) + ave)
Next C
Cells(R + 1, 14) = "=sum(RC[-9]:RC[-1])"
Cells(R + 1, 14) = Sum(R) - Cells(R + 1, 14)
Next R
End Sub

複製代碼

TOP

PaulDing

小學生 Rank: 1

帖子: 13
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: win10
軟體版本: office2016
閱讀權限: 10
性別: 男
來自: 台北
註冊時間: 2018-8-12
最後登錄: 2018-10-11

6^#

發表於 2018-8-27 21:39 | 只看該作者

回復 2# n7822123

了解了. 下次我會注意的 , 是合要等於原來的111.

小丁

TOP

PaulDing

小學生 Rank: 1

帖子: 13
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: win10
軟體版本: office2016
閱讀權限: 10
性別: 男
來自: 台北
註冊時間: 2018-8-12
最後登錄: 2018-10-11

7^#

發表於 2018-8-27 21:44 | 只看該作者

hcm19522 發表於 2018-8-26 17:43

謝謝hcm大大的幫忙.

小丁

TOP

PaulDing

小學生 Rank: 1

帖子: 13
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: win10
軟體版本: office2016
閱讀權限: 10
性別: 男
來自: 台北
註冊時間: 2018-8-12
最後登錄: 2018-10-11

8^#

發表於 2018-8-27 21:46 | 只看該作者

回復 PaulDing

剛剛發現你的S.N. 在B欄，修改一下程式碼
如果要用函數做的話參考 hcm19522 大大即 ...
n7822123 發表於 2018-8-26 18:22

謝謝n大的幫忙

小丁

TOP

PaulDing

小學生 Rank: 1

帖子: 13
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: win10
軟體版本: office2016
閱讀權限: 10
性別: 男
來自: 台北
註冊時間: 2018-8-12
最後登錄: 2018-10-11

9^#

發表於 2018-8-28 14:33 | 只看該作者

回復 PaulDing

剛剛發現你的S.N. 在B欄，修改一下程式碼
如果要用函數做的話參考 hcm19522 大大即 ...
n7822123 發表於 2018-8-26 18:22

n大 , 再與您請較一下"亂數比例範圍 = 0.3"指的是什麼意思呢? 感恩.

小丁

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

10^#

發表於 2018-8-29 00:13 | 只看該作者

本帖最後由 n7822123 於 2018-8-29 00:19 編輯

回復 9# PaulDing

只是一個變數值=0.3，數字越大，分配的越不平均

以平均值當中值，在乘以一個比例系數當做公差

假設平均值=10 比例系數=0.3(30%) 相當於 10+/-3

亂數會從7~13 左右的區間跑，再用fix函數取整數

如果比例系數大於1，有可能會跑出負值

TOP

[發問] 將一固定值隨機分配到指定欄位

[發問] 將一固定值隨機分配到指定欄位

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]