→ sueadolph:我忘了加RAN了XD..... 12/20 05:36
※ 引述《ntcblin ( )》之銘言：
: ※ 引述《ntcblin ( )》之銘言：
: : 我己經在excel 用儲存格 算出一個包括一個亂數的式子
: : 如何寫出一個程式 讓它重複計算個 100 或 1000 次
: : 讓後求出它的平圴數
: 感謝回答 可是 我的式子不是在vba 裡頭寫的
: 是用excel儲存格組合而成的 其中包括了亂數的
: 讀取 可以寫出一個程式 在相同的參數下不同的亂數
: 重複跑得1000次
例用我之前的= ="
→ sueadolph:for I=1 TO 1000 12/14 03:19
→ sueadolph:SUM=SUM+你的函數 12/14 03:19
→ sueadolph:NEXT I 12/14 03:20
→ sueadolph:AVG=SUM/1000 12/14 03:20
→ sueadolph:RANGE("你要放的格子")=AVG
------------------------
for I=1 TO 1000
SUM=SUM+RANGE("你的EXCEL的變數位置")
' EX: 你的EXCEL如果是A1出來的值 跟某倍數B1出來的值相乘
' 那這裡是S=S+RANGE("A1")* X倍* RANGE("B1")
' RANGE("A1").FXXXXC1R1 (後面有沒有這個我忘了~@@"喝酒中)
NEXT I
AVG=SUM/1000
RANGE("你要放的格子")=AVG
有點醉orz
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.118.198.62