作者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/cn.aspx?n=bbs/Office/M.1546652079.A.CFD.html
2F：→ soyoso: 如不关闭的话，也可於回圈内随机指定数值范围，写入储存格 01/05 11:01
4F：→ ptguitar: 感谢S大指点 ! 01/06 06:22