[算表] 抽獎系統資料轉錄問題?

[ptguitar (佩蒂吉他)]

軟體: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的結果會不一樣

不知道這該怎麼解決?







--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 27.52.13.26
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1546652079.A.CFD.html
→ soyoso: 可能關閉自動運算 https://i.imgur.com/t1M6tFg.jpg
→ soyoso: 如不關閉的話，也可於迴圈內隨機指定數值範圍，寫入儲存格
→ soyoso: d2內，https://i.imgur.com/T1C972W.jpg
→ ptguitar: 感謝S大指點 !