Excel VBA体彩问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

体彩22选5，选n注，要求每注的随机数不相同，求问红色部分not is nothing和range.find是什么意思。
下面是程序

Sub 体彩()
    Dim n, i As Long, j As Long
    Dim r As Long
   
    Worksheets("体彩").Activate
    n = Application.InputBox("请输入注数:", "体彩22选5", , , , , , 1)
    If TypeName(n) = "Boolean" Then
        Exit Sub
    End If
   
    Columns("A:F").Select
    Selection.ClearContents
    Range("A1").Select
   
    If n >= 0 Then
        For i = 1 To n
            Cells(i, 1).Value = "第" & i & "注"
            For j = 1 To 5
                 Randomize
                 r = Int(Rnd * 22) + 1 '产生1，22之间的随机数
                '唯一性检查
                Do While (Not Range(Cells(i, 1), Cells(i, 5)).Find(r) Is Nothing)
                    Randomize
                    r = Int(Rnd * 22) + 1
                Loop
                Cells(i, j).Value = r
            Next
        Next
    End If
End Sub

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：EXCEL exce xcel cel VBA 体彩 Excel