deleted

slocklau · 发表于 2008-3-31 15:52

deleted by author

[ 本帖最后由 slocklau 于 2009-5-13 17:02 编辑 ]

shaowu459 · 发表于 2008-3-31 16:14

你把产生随机数的公式在行的方向写，然后向下复制1000行不就每次运算形成1000个结果么

slocklau · 发表于 2008-3-31 16:17

这样复制出来的数是相同的，不能体现出公式，你看看我的附件，谢谢。

jiangxj · 发表于 2008-3-31 16:20

不懂您的意思!

"如果我想得到C11的结果100000次"?C11和C12一样么?

如果您想做一次"随机事件"的试验可以用程序处理.

shaowu459 · 发表于 2008-3-31 16:23

复制了公式粘贴后同样产生随机数，不会相同，然后把所有的随机数复制走再统计不久好了？

shaowu459 · 发表于 2008-3-31 16:23

我的意思是把产生随机数的公式横向复制，复制了公式粘贴后同样产生随机数，不会相同，然后把所有的随机数复制走再统计不久好了？

slocklau · 发表于 2008-3-31 20:25

非常感谢6楼的答案。但是，对于带有公式的单元格，要么复制的就等于那个单元格本身即完全等于C11，要么是复制公式、要么是数值，是不可能复制出带有公式的随机数的。另外，我不需要用宏来录制选择性粘贴，因为我得出1个结果就需要100万次运算，很费时间。

其实我的要求很简单，在0到1间的10000个随机数里，我要统计比0.36大的个数，统计10000次。

[此贴子已经被作者于2008-3-31 20:43:23编辑过]

northwolves · 发表于 2008-3-31 22:59

Sub Go()
Dim arr(9999, 0) As Long, i As Long, j As Long
Randomize
For i = 0 To 9999
For j = 0 To 9999
If Rnd > 0.36 Then arr(i, 0) = arr(i, 0) + 1
Next j, i
[a1].Resize(10000) = arr
MsgBox "ok"
End Sub

northwolves · 发表于 2008-3-31 23:02

数组运算要快得多。

不过10000*10000次运算还是需要一点时间的。如果是算1000次，应该快得多：

Sub Go()
Dim arr(999, 0) As Long, i As Long, j As Long
Randomize
For i = 0 To 999
For j = 0 To 9999
If Rnd > 0.36 Then arr(i, 0) = arr(i, 0) + 1
Next j, i
[a1].Resize(10000) = arr
MsgBox "ok"
End Sub

jiangxj · 发表于 2008-4-1 14:51

sVgkT4GV.rar (63.57 KB, 下载次数: 3)

点一下按钮就可以了,每格单元格里都是运行10000次的数据

		自动登录	找回密码
密码			免费注册

[2007] deleted