[已解决]怎么用代码解决？

sfsds

A1到最后一行数据，如果有数字2，在对应的B列填上随机数据
随机数最大值是2.7，最小为2.01，代码怎么写？
附件： 附件.rar (6.98 KB, 下载次数: 6)

2014-7-4 10:50 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

lisachen

2014-7-4 11:27

1. Sub test()
   
2. For x = 1 To Range("a65536").End(3).Row
   
3. If Cells(x, 1) = 2 Then
   
4. Cells(x, 2) = (Int(Rnd() * 69) + 1) / 100 + 2
   
5. End If
   
6. Next x
   
7. End Sub

复制代码

跳转到最佳答案楼层

lisachen

1. Sub test()
   
2. For x = 1 To Range("a65536").End(3).Row
   
3. If Cells(x, 1) = 2 Then
   
4. Cells(x, 2) = (Int(Rnd() * 69) + 1) / 100 + 2
   
5. End If
   
6. Next x
   
7. End Sub

复制代码

sfsds

lisachen 发表于 2014-7-4 11:27

(Int(Rnd() * 69) + 1) / 100 + 2
能不能解释这句代码，什么rnd ，数字69， 100等

lisachen

sfsds 发表于 2014-7-4 14:01
(Int(Rnd() * 69) + 1) / 100 + 2
能不能解释这句代码，什么rnd ，数字69， 100等

这是几个函数  
rnd产生[0,1)之间的随机小数。
Rnd() * 69生成0-69之间的随机数，
之后加1 是为了确保数据在1-70之间
其他的都是简单数学，自己体会吧

sfsds

lisachen 发表于 2014-7-4 14:46
这是几个函数  
rnd产生[0,1)之间的随机小数。
Rnd() * 69生成0-69之间的随机数，

Round(Rnd()*(2.7-2.01)+2.01,2)这样写行不行？

lisachen

sfsds 发表于 2014-7-4 16:16
Round(Rnd()*(2.7-2.01)+2.01,2)这样写行不行？

思路可以，你带入代码试试

sfsds

lisachen 发表于 2014-7-4 14:46
这是几个函数  
rnd产生[0,1)之间的随机小数。
Rnd() * 69生成0-69之间的随机数，

Rnd() * 69) + 1
为什么不能写成Rnd() * 70 ？？？