[算表] 抽獎系統資料轉錄問題?
軟體: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
→
01/05 10:57,
7年前
, 1F
01/05 10:57, 1F
→
01/05 11:01,
7年前
, 2F
01/05 11:01, 2F
→
01/05 11:01,
7年前
, 3F
01/05 11:01, 3F
→
01/06 06:22,
7年前
, 4F
01/06 06:22, 4F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
