作者sueadolph (人..只剩下不信任)
看板Visual_Basic
标题Re: [VBA ] 在excel如何重覆写
时间Tue Dec 20 05:35:50 2005
※ 引述《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
1F：→ sueadolph:我忘了加RAN了XD..... 12/20 05:36