怎样用EXCEL制作彩( 六 ) _EXCEL

.Range("Lianhao") = True
Exit Sub
If
Next
If

If frmCp.opt3.Value = https://vvvtt.com/article/True Then '三连号
For i = 1 To intMzhs - 2
If .Cells(1, i + 1) - .Cells(1, i) = 1 And _
.Cells(1, i + 2) - .Cells(1, i + 1) = 1 Then
.Range("Lianhao") = True
Exit Sub
If
Next
If

If frmCp.opt4.Value = https://vvvtt.com/article/True Then '四连号
For i = 1 To intMzhs - 3
If .Cells(1, i + 1) - .Cells(1, i) = 1 And _
.Cells(1, i + 2) - .Cells(1, i + 1) = 1 And _
.Cells(1, i + 3) - .Cells(1, i + 2) = 1 Then
.Range("Lianhao") = True
Exit Sub
If
Next
If
.Range("Lianhao") = False
With
Sub
Sub 生当作号码()
Range("A1:G1").Select
Selection.ClearContents
frmCp.Show
Sub