作者CS5566 (现实里有了我对你的眷恋)
看板Office
标题[算表] EXCEL 随机取号问题
时间Tue Mar 13 00:13:25 2018
软体: EXCEL
版本: 2010
前情提要:
参考网路用EXCEL VB 写了随机取号 (随机取号100-999号)
按一次按钮会出现三组随机数字
图示:
┌─────┬─────┬─────┬─────┐
│ │ A │ B │ C │
├─────┼─────┼─────┼─────┤
│ 1 │ │ │ │
├─────┼─────┼─────┼─────┤
│ 2 │ │ │ 开奖 │
├─────┼─────┼─────┼─────┤
│ 3 │ │ 第一次 │
XXX │
开奖按钮
├─────┼─────┼─────┼─────┤
│ 4 │ │ 第二次 │
XXX │
├─────┼─────┼─────┼─────┤
│ 5 │ │ 第三次 │
XXX │
├─────┼─────┼─────┼─────┤
程式码如下
----------------------------------------------------
Public Sub 选号()
ReRnd:
For i = 3 To 5
Cells(i, "C") = Int(Rnd() * 900) + 100
Next
For i = 3 To 5
For j = i + 1 To 5
If Cells(i, "C") = Cells(j, "C") Then
GoTo ReRnd
End If
Next
Next
End Sub
----------------------------------------------------
问题说明:
连按五次 出现随机码为
360 734 112 738 876
371 -> 580 -> 784 -> 140 -> 811
797 621 833 472 436
直接关掉 EXCEL
再连按五次 出现随机码 同上 (完全一样)
360 734 112 738 876
371 -> 580 -> 784 -> 140 -> 811
797 621 833 472 436
这样一点都不随机rrr
请问有什麽方法可以解决此问题?
谢谢
--
▄▄▄▄ ▄▄ 。 记得
◢██◣ ◢◢◣◣ ████ 。 对
████ █◥◤█ ▇▇██
███◤ ◢███◣ ▇▇██ 。 身体
◢██◤ █████ ◥██◤ 。 好一点
◢██◤ ◥███◤ ◥◤ 。。 ψCS5566
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 111.248.80.84
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1520871212.A.CFF.html
1F：→ soyoso: 配合randomize试试 03/13 07:02
谢谢大大 :D
多加一个 Randomize 就可以了
程式码如下
----------------------------------------------------
Public Sub 选号()
ReRnd:
Randomize
For i = 3 To 5
Cells(i, "C") = Int(Rnd() * 900) + 100
Next
For i = 3 To 5
For j = i + 1 To 5
If Cells(i, "C") = Cells(j, "C") Then
GoTo ReRnd
End If
Next
Next
End Sub
----------------------------------------------------
※ 编辑: CS5566 (111.248.80.84), 03/13/2018 13:08:58