怎样用EXCEL制作彩( 四 ) _EXCEL

If Sheets("选号").Range("Lianhao") = False Then GoTo repeat1

Me.Hide
Sheets("选号").Activate
strMsg = MsgBox("第" & i & "注号码生当作了，你可以选择保留号码到表格," & vbCrLf _
& "或从头生当作该注号码。是否保留？", vbYesNo, "保留号码")
If strMsg = vbYes Then
'保留到表格中
Sheets("选号").Select
Sheets("号码").Cells(i, 1) = Cells(1, 1)
Sheets("号码").Cells(i, 2) = Cells(1, 2)
Sheets("号码").Cells(i, 3) = Cells(1, 3)
Sheets("号码").Cells(i, 4) = Cells(1, 4)
Sheets("号码").Cells(i, 5) = Cells(1, 5)
Sheets("号码").Cells(i, 6) = Cells(1, 6)
Sheets("号码").Cells(i, 7) = Cells(1, 7)
Exit Do
If
repeat1:
Loop
Next
Sheets("号码").Activate
Sub

文章插图

8第七，接着点击插入——模块——然后在模块那边输入如下VBA代码：
Public Sub 随机生当作号码()
Dim intMax As Integer, intMzhs As Integer, i As Integer
intMax = frmCp.txtMax.Value '最大号码
intMzhs = frmCp.txtMzhs.Value '每注号数
For i = 1 To intMzhs
Randomize
Sheets("选号").Cells(1, i) = Int(intMax * Rnd + 1)
Next
Sub
Public Sub 判定反复()
Dim intMzhs As Integer, i As Integer, j As Integer
intMzhs = frmCp.txtMzhs.Value '每注号数
For i = 1 To intMzhs - 1
For j = i + 1 To intMzhs
If Sheets("选号").Cells(1, i) = Sheets("选号").Cells(1, j) Then
Sheets("选号").Range("Sfcf") = False
Exit Sub
If
Next j
Next i
Sheets("选号").Range("Sfcf") = True
Sub
Public Sub 判定幸运号()
Dim intXyh(3) As Integer, intMzhs As Integer
Dim x(3) As Boolean, i As Integer, intTemp As Integer
Dim j As Integer
intMzhs = frmCp.txtMzhs.Value '每注号数
intXyh(1) = frmCp.txtXyh1.Value '幸运号
intXyh(2) = frmCp.txtXyh2.Value '幸运号

怎样用EXCEL制作彩( 四 )

推荐阅读

布丁糖糖演过什么电视剧

白萝卜可以做饺子馅吗？

祝福晚安朋友句子祝福朋友晚安的句子示例

灯泡突然坏了的心情说说灯泡突然坏了的心情说说有哪些

多肉植物怎样顺利过冬？

晚上睡觉该不该涂水乳（在晚上用不用水乳护肤）

剑侠情缘2手游怎么制作药品

地下城勇士怎么转区地下城勇士如何转区

哆啦a梦铁人兵团游戏中文版

过期牛奶浇花还用兑水吗？

元宵怎么炸着吃元宵怎么炸

恶魔高校小说epub

如何跨行转账不用手续费

QQ账号如何注销

于嗟鸠兮怎么读于嗟鸠兮的意思

长青春痘了怎么办

沉淀完毕后为什么要保温放置

三国来自演义桃园三结义的缩写

煮花螺多长时间熟煮花螺多长时间

干海马煲汤要提前泡吗干海马煲汤不要提前泡对吗