怎样用EXCEL制作彩( 五 ) _EXCEL

intXyh(3) = frmCp.txtXyh3.Value '幸运号
If intXyh(1) = 0 And intXyh(2) = 0 And intXyh(3) = 0 Then
Sheets("选号").Range("Xyh") = True
Exit Sub
If
For i = 1 To 3
If intXyh(i) = 0 Then x(i) = True
Next
For i = 1 To intMzhs
intTemp = Sheets("选号").Cells(1, i)
For j = 1 To 3
If intXyh(j) - intTemp = 0 Then x(j) = True
Next j
If x(1) = True And x(2) = True And x(3) = True Then
Sheets("选号").Range("Xyh") = True
Exit Sub
If
Next
Sheets("选号").Range("Xyh") = False
Sub
Public Sub 判定解除号()
Dim intPch(3) As Integer, intMzhs As Integer
Dim x(3) As Boolean, i As Integer, intTemp As Integer
Dim j As Integer

For i = 1 To 3
x(i) = True
Next
intMzhs = frmCp.txtMzhs.Value '每注号数
intPch(1) = frmCp.txtPch1.Value '解除号
intPch(2) = frmCp.txtPch2.Value '解除号
intPch(3) = frmCp.txtPch3.Value '解除号
If intPch(1) = 0 And intPch(2) = 0 And intPch(3) = 0 Then
Sheets("选号").Range("Pch") = True
Exit Sub
If
For i = 1 To 3
If intPch(i) = 0 Then x(i) = True
Next
For i = 1 To intMzhs
intTemp = Sheets("选号").Cells(1, i)
For j = 1 To 3
If intPch(j) - intTemp = 0 Then x(j) = False
Next j
Next
If x(1) = True And x(2) = True And x(3) = True Then
Sheets("选号").Range("Pch") = True
Else
Sheets("选号").Range("Pch") = False
If
Sub
Public Sub 排序()
Sheets("选号").Range("1:1").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscing, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _
:=xlPinYin
Sub
Public Sub 连号()
Dim intMzhs As Integer
Dim i As Integer
intMzhs = frmCp.txtMzhs.Value '每注号数
With Sheets("选号")
If frmCp.opt1.Value = https://vvvtt.com/article/True Then '不考虑连号
.Range("Lianhao") = True
Exit Sub
If

If frmCp.opt2.Value = https://vvvtt.com/article/True Then '二连号
For i = 1 To intMzhs - 1
If .Cells(1, i + 1) - .Cells(1, i) = 1 Then

怎样用EXCEL制作彩( 五 )

推荐阅读

布丁糖糖演过什么电视剧

白萝卜可以做饺子馅吗？

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

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

多肉植物怎样顺利过冬？

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

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

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

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

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

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

恶魔高校小说epub

如何跨行转账不用手续费

QQ账号如何注销

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

长青春痘了怎么办

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

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

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

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