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

推荐阅读

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

红糖怎么熬

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

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

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

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

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

浏阳有什么好玩的？

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

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

担心太多的人会怎么样？

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

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

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

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

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

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

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

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

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