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

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

2^#

發表於 2018-8-27 21:39 | 顯示全部帖子

回復 2# n7822123

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

小丁

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

3^#

發表於 2018-8-27 21:44 | 顯示全部帖子

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

謝謝hcm大大的幫忙.

小丁

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

4^#

發表於 2018-8-27 21:46 | 顯示全部帖子

回復 PaulDing

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

謝謝n大的幫忙

小丁

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

5^#

發表於 2018-8-28 14:33 | 顯示全部帖子

回復 PaulDing

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

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

小丁

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

6^#

發表於 2018-8-29 22:01 | 顯示全部帖子

回復 PaulDing

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

以平均值當中值，在乘以一個比例系 ...
n7822123 發表於 2018-8-29 00:13

n大 , 我太佩服您了 , 連這一點都有想到 , 感激非常. (讚讚讚讚讚讚讚)

小丁

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

7^#

發表於 2018-8-30 20:52 | 顯示全部帖子

回復 PaulDing

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

以平均值當中值，在乘以一個比例系 ...
n7822123 發表於 2018-8-29 00:13

n大 , 不好意思再請教一下 , 若是要讓百分比也進行隨機分配的話我該調整哪個地方呢?

小丁

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

8^#

發表於 2018-8-31 10:43 | 顯示全部帖子

回復 PaulDing

把第一行改為:亂數比例範圍 = rnd

解釋:rnd=0~1
n7822123 發表於 2018-8-31 03:00

n大 , 我修改了後分配都到SKU10去了 , 是否我還有哪裡沒有修改好呢? 感恩.

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

小丁