软件:excel
版本:2007
我用了抽奖系统
vba code:
Private Sub test_Click()
Dim abc As Integer
Sheets("抽").Select
For i = 1 To 10000
Calculate
Next i
If Sheets("test").Range("A2") = "" Then
abc = 2
Else
abc = Sheets("test").Range("A1").End(xlDown).Row + 1
End If
Sheets("test").Range("A" & abc) = Sheets("抽").Range("E2")
End Sub
档案：
https://drive.google.com/open?id=1MMnBRr6gB5g9pcOc6Ob5h26hOwD3fIxW
目的是抽完后会转录到test工作表
我用randbetween 随机抽后
发现似乎转录的时候还会多算一次
导致转录到test的结果会不一样
不知道这该怎么解决?

可能关闭自动运算 https://i.imgur.com/t1M6tFg.jpg如不关闭的话，也可于循环内随机指定数值范围，写入储存格d2内，https://i.imgur.com/T1C972W.jpg

感谢S大指点 !