Sub lotto()Dim Fn As Object
Set Fn = Application.WorksheetFunction
For i = 1 To 6
Cells(i, 1) = Fn.RoundUp(Rnd * 49, 0)
For j = 1 To i - 1
If Cells(i, 1) = Cells(j, 1) Then i = i - 1
Next
Next
End Sub
Ptt [VBA ] 關於樂透的取法
由 養花種魚數月亮賞星星 於 2008年3月31日星期一
上午12:13 發表
Sub lotto()Dim Fn As Object
Set Fn = Application.WorksheetFunction
For i = 1 To 6
Cells(i, 1) = Fn.RoundUp(Rnd * 49, 0)
For j = 1 To i - 1
If Cells(i, 1) = Cells(j, 1) Then i = i - 1
Next
Next
End Sub
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助，那請留個訊息給我～