[已解决]请问如何随机填充数据

wgxfhi11 · 发表于 2011-7-2 17:08

请问如何随机填充数据？请各位帮帮忙！{:291:}

最佳答案

djyjysxxs

2011-7-2 18:46

For i% = 1 To 7
tmp% = Int(Rnd() * (8 - i) + 1)
Cells(6, i) = Cells(2, tmp)
Cells(2, tmp) = Cells(2, 8 - i)
Next

laosanjie · 发表于 2011-7-2 18:41

本帖最后由 laosanjie 于 2011-7-2 18:41 编辑

wgxfhi11 发表于 2011-7-2 17:08
请问如何随机填充数据？请各位帮帮忙！

黄色区域的7个数字是固定的这7个数值？还是这7个数值也是随机变化的？

1.372

1.375

1.368

1.371

1.372

1.375

1.374

djyjysxxs · 发表于 2011-7-2 18:46

For i% = 1 To 7
tmp% = Int(Rnd() * (8 - i) + 1)
Cells(6, i) = Cells(2, tmp)
Cells(2, tmp) = Cells(2, 8 - i)
Next

wgxfhi11 · 发表于 2011-7-4 08:33

回复 laosanjie 的帖子

黄色区域数值是固定不变的

wgxfhi11 · 发表于 2011-7-4 08:34

回复 djyjysxxs 的帖子

你好，你这个好像把黄色区域的数据都变更了

djyjysxxs · 发表于 2011-7-4 09:26

稍改一下：
ar = [a2:g2+0]
For i% = 1 To 7
tmp% = Int(Rnd() * (8 - i) + 1)
Cells(6, i) = ar(tmp)
ar(tmp) = ar(8 - i)
Next

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