軟體: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大指點 !