随机及手动设定条件选号器

一、随机及手动设定条件选号器

1.安装Microsoft Excel 2003/2007软件。

2.打开空白的Excel文件，调整A—F行，行宽35象素，调整G—K行，行宽50象素，并加大加粗字体，在G1上输入“蓝球”，在H1上输入“总和”，在I1上输入“大数”，在J1上输入“偶数”。

3.打开｜视图｜工具栏｜控件工具箱。

4.在控件工具箱上单击命令按钮，在K5、K6上画出命令按钮。

5.右击命令按钮，打开属性，修改Caption值为“开始”。

6.双击命令按钮，打开代码窗口，输入代码如下：

Public m As Integer

Public Sub CommandButton1_Click(　)

　　　　Sheets(1).Activate

　　　　Range("a2:j100").ClearContents

　　　　For m=1 To 10　　　　’一次选十组

　　　　xxhh

　　　　Next m

End Sub

Private Sub xxhh(　)

begin:　Dim i As Integer,j As Integer,k As Integer

　　　　Dim qs As Integer,ds As Integer,zh As Integer,lq As Integer’奇数，大数，总和

　　　　ReDim x(36)As Integer,y(7)As Integer

　　　　　ds=0

　　　　　qs=0

　　　　　zh=0

　　　　　If m﹤1 Then m=1

For i=1 To 6

　Randomize

　y(i)=Int(Rnd(　)*33+1)

　For j=1 To i

　　Do While y(j-1)=y(i)　’Or y(i)=1 Or y(i)=2设弃码

　　y(i)=Int(Rnd(　)*33+1)

　　j=1

　　k=k+1

　　If k>1000 Then Exit Sub

　　Loop

　 Next j

　 If i=1 Then y(i)=5　　’设胆码

　　zh=zh+y(i)　’计总和

　　If y(i)/2=Int(y(i)/2)Then qs=qs+1　’计偶数个

　　If y(i)>17 Then ds=ds+1　’计大数个

　　x(y(i))=y(i)

Next i

If zh﹤76 Or zh﹥135 Then GoTo begin:　’设总和在76－135之间

If ds﹤2 Or ds>4 Then GoTo begin:　’设大数在2－4之间

If qs﹤2 Or qs>4 Then GoTo begin:　’设偶数在2－4之间

k=0

For j=1 To 36　　　’排序

　If x(j)﹤﹥0 Then

　k=k+1

　If k=1 And x(j)>8 Then GoTo begin:　’设最小数﹤8

　Cells(m+1,k)=x(j)

　End If

Next j

　Randomize

　lq=Int(Rnd(　)*16+1)　’随机出蓝球数

　　　　　Cells(m+1,7)=lq

　　　　　Cells(m+1,8)=zh

　　　　　Cells(m+1,9)=ds

　　　　　Cells(m+1,10)=qs

End Sub

7.选中A2F2，打开格式｜条件格式，取单元格数值大于17，格式字体颜色为红色，对于大数用红色字体显示。

8.说明：程序中单引号必须以英文和数字状态输入，程序运行前必须调低Excel宏的安全等级为中。Or y(i)=1 Or y(i)=2 弃码为示例所示，读者可以改为其他号码，并可以通过用Or的形式连续弃用3~10个号码；If i=1 Then y(i)=5’设胆码，读者也可以并用：If i=2 Then y(i)=16等并下去，可设1~5个胆码。选好的号码组合可用粘贴的方式转移到别处，就可重新启动新选的号码组合了。有兴趣的读者可研究自设用户窗体的形式，设计出更漂亮的程序来。至此，机选的程序已经设计好了，按F8可一步一步的调试程序，简单吧！好了，给自己一个奖赏，再接再厉！