作者ptguitar (佩蒂吉他)
看板Office
標題[算表] 抽獎系統資料轉錄問題?
時間Sat Jan 5 09:34:35 2019
軟體: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://webptt.com/m.aspx?n=bbs/Office/M.1546652079.A.CFD.html
2F：→ soyoso: 如不關閉的話，也可於迴圈內隨機指定數值範圍，寫入儲存格 01/05 11:01
4F：→ ptguitar: 感謝S大指點 ! 01/06 06:22