怎样用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制作彩( 四 )

推荐阅读

空气传感器漏气可以修吗坏了的表现和影响

红糖怎么熬

护发吃什么好白头发吃什么好

长沙哪个区的房子最值得买

六七岁儿童戴银手镯好吗（六七岁儿童戴银手镯的好处）

颂梨花非《梨花颂》是歌颂梨花的诗句

花椒树的修剪方法大全花椒树怎么修剪

浏阳有什么好玩的？

树上长一串一串红果子结红果子的树是什么树

自做烤肠怎么做如何自做烤肠

担心太多的人会怎么样？

肉放冰箱保鲜能放几天肉放冰箱保鲜能放多久

提车时4s店给行驶证吗？

invaluable是什么意思啊？如何背?

没熟的西红柿能吃吗（未成熟的西红柿到底能不能吃？）

糖酸排骨的做法大全糖酸排骨的做法

陈道明版汉刘邦是什么电视

几款适合上班族可以挂机的网游

拼多多怎么查找店铺（拼多多如何查找店铺）

交通事故案件诉讼流程是怎么样的