123
返回列表 上一主題 發帖

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

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
13# 跳轉到 »
發表於 2018-8-31 03:00 | 只看該作者
本帖最後由 n7822123 於 2018-8-31 03:02 編輯

回復 12# PaulDing

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

解釋:rnd=0~1

TOP

PaulDing

帖子
13 
主題
2 
精華
0 
積分
15 
點名
0  
作業系統
win10 
軟體版本
office2016 
閱讀權限
10 
性別
男 
來自
台北 
註冊時間
2018-8-12 
最後登錄
2018-10-11 
12#
發表於 2018-8-30 20:52 | 只看該作者
回復  PaulDing

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

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


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

TOP

PaulDing

帖子
13 
主題
2 
精華
0 
積分
15 
點名
0  
作業系統
win10 
軟體版本
office2016 
閱讀權限
10 
性別
男 
來自
台北 
註冊時間
2018-8-12 
最後登錄
2018-10-11 
11#
發表於 2018-8-29 22:01 | 只看該作者
回復  PaulDing

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

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


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

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

PaulDing

帖子
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

PaulDing

帖子
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

帖子
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

帖子
13 
主題
2 
精華
0 
積分
15 
點名
0  
作業系統
win10 
軟體版本
office2016 
閱讀權限
10 
性別
男 
來自
台北 
註冊時間
2018-8-12 
最後登錄
2018-10-11 
6#
發表於 2018-8-27 21:39 | 只看該作者
回復 2# n7822123

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

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)
  1. Sub test1()
  2. 亂數比例範圍 = 0.3
  3. RN = Sheets(1).UsedRange.Rows.Count
  4. ReDim Sum(RN - 1)
  5. For R = 1 To RN - 1
  6.   Sum(R) = Cells(R + 1, 4)
  7.   ave = Sum(R) / 10
  8.   For C = 1 To 9
  9.     Cells(R + 1, C + 4) = Fix(((Rnd * 2) - 1) * (ave * 亂數比例範圍) + ave)
  10.   Next C
  11.   Cells(R + 1, 14) = "=sum(RC[-9]:RC[-1])"
  12.   Cells(R + 1, 14) = Sum(R) - Cells(R + 1, 14)
  13. Next R
  14. End Sub
複製代碼

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)
  1. Sub test1()
  2. 亂數比例範圍 = 0.3
  3. RN = Sheets(1).UsedRange.Rows.Count
  4. ReDim Sum(RN - 1)
  5. For R = 1 To RN - 1
  6.   Sum(i) = Cells(R + 1, 3)
  7.   ave = Sum(i) / 10
  8.   For C = 1 To 9
  9.     Cells(R + 1, C + 3) = Fix(((Rnd * 2) - 1) * (ave * 亂數比例範圍) + ave)
  10.   Next C
  11.   Cells(R + 1, 13) = "=sum(RC[-9]:RC[-1])"
  12.   Cells(R + 1, 13) = Sum(i) - Cells(R + 1, 13)
  13. Next R
  14. End Sub
複製代碼

TOP

        靜思自在 : 君子立恆志，小人恆立志。
123
返回列表 上一主題