1. 首頁 > 生活百科 > >

怎樣用EXCEL制作彩

小知識

我們有時要花一些心思去研究號碼 ， 今天小編就和大師分享一下如何利用EXCEL來建造號碼生當作器 ， 供大師參考 。

怎樣用EXCEL制作彩



需要這些哦
EXCEL
方式/
1籌辦工作：在新建的EXCEL工作表中定名兩個工作表別離為：號碼和選號——按圖所示設置選號表格的屬性（白底無邊框）——插入一個文本框輸入選號文字 。

怎樣用EXCEL制作彩



2起首打開VBA編纂器（同時按alt+F11)——點擊插入——窗體 ， 把窗體拖沓變大一些并點竄窗體的caption屬性 ， 如點竄當作“號碼生當作器”——插入框架并點竄窗體的caption屬性 ， 如根基參數——接著在第一個框架插入標簽和文字框或者選項按鈕 。 插入的窗體內容就按最張結果圖那樣插入 。

怎樣用EXCEL制作彩



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

怎樣用EXCEL制作彩



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

怎樣用EXCEL制作彩



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

怎樣用EXCEL制作彩



6第五 ， 設置文本框數據是否合適要求及設置號碼規模的VBA代碼：
Private Sub txtMax_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    '判定文本框內的數據是否符號要求

猜你喜歡