怎样用EXCEL制作彩 _EXCEL

我们有时要花一些心思去研究号码，今天小编就和大师分享一下如何利用EXCEL来建造号码生当作器，供大师参考。

文章插图

需要这些哦
EXCEL
方式/
1筹办工作：在新建的EXCEL工作表中定名两个工作表别离为：号码和选号——按图所示设置选号表格的属性（白底无边框）——插入一个文本框输入选号文字。

文章插图

2起首打开VBA编纂器（同时按alt+F11)——点击插入——窗体，把窗体拖沓变大一些并点窜窗体的caption属性，如点窜当作“号码生当作器”——插入框架并点窜窗体的caption属性，如根基参数——接着在第一个框架插入标签和文字框或者选项按钮。插入的窗体内容就按最张结果图那样插入。

文章插图

3第二，设置根基参数中每个文本框输入值的VBA代码：
Private Sub spbMax_Change()
'最大号码
txtMax.Value = https://vvvtt.com/article/spbMax.Value
'设置幸运号和解除号的规模
设置号码规模
Sub
Private Sub spbMzhs_Change()
'每注号数
txtMzhs.Value = https://vvvtt.com/article/spbMzhs.Value
Sub
Private Sub spbScs_Change()
'生当作注数
txtScs.Value = https://vvvtt.com/article/spbScs.Value
Sub

文章插图

4第三，设置幸运号框架中选项按钮值的输入VBA代码：
Private Sub spbXyh1_Change()
'幸运号码1
txtXyh1.Value = https://vvvtt.com/article/spbXyh1.Value
Sub
Private Sub spbXyh2_Change()
'幸运号码2
txtXyh2.Value = https://vvvtt.com/article/spbXyh2.Value
Sub
Private Sub spbXyh3_Change()
'幸运号码3
txtXyh3.Value = https://vvvtt.com/article/spbXyh3.Value
Sub

文章插图

5第四，设置解除号码文本框的数值输入VBA代码：
Private Sub spbPch1_Change()
'解除号码1
txtPch1.Value = https://vvvtt.com/article/spbPch1.Value
Sub
Private Sub spbPch2_Change()
'解除号码2
txtPch2.Value = https://vvvtt.com/article/spbPch2.Value
Sub
Private Sub spbPch3_Change()
'解除号码3
txtPch3.Value = https://vvvtt.com/article/spbPch3.Value
Sub