趣味のエクセルマクロ

ナンバーズ4などの数字選択式宝くじデータ分析用の自作マクロおよびナンバーズ4の各種データリストなどをブログにしています。

ユーザーホーム(UserForm)

ユーザーホームを使ってあらかじめ設定されたメニューから選択処理が出来ます。
(ユーザーホームの「表示パターンの選択」から6つの中から選びOKボタン押下します)


下では、UserForm1.Show でユーザーホーム1を開きUnload UserForm1でユーザーホーム1を閉じる。



マクロは1.minilotoの記事にありますが、各選択処理は下記の様になります。


1.   ●(本数字) と ○(ボーナス数字)選択した時

2.  ◎(本数字) と ○(ボーナス数字)選択した時

3.   /  (本数字) と ○ (ボーナス数字)選択した時

4.   ● (本数字) のみ 選択した時

5.   ○ (ボーナス数字) のみ 選択した時

6.   数字 と 0 (ボーナス数字) 選択した時


Sub patapata() '当選数字パターン貼付け
saikeisanoff


Erase hit: pata_1 = "": pata_2 = "": pata_f = 0
 
UserForm1.Show 'ユーザーホームを開く
Call syoukyo
-略-
End Sub




’ユーザーホームの「okボタン」に下のマクロ(上記1~6選択後処理する時)
Private Sub CommandButton1_Click()
 If pata_1 = "" And pata_2 = "" Then MsgBox ("選択して下さい"): Exit Sub
Unload UserForm1 'ユーザーホームを閉じる
 Exit Sub
End Sub



’ユーザーホームの「cancel」ボタンにキャンセルマクロ(処理せずに終了)
Private Sub CommandButton2_Click()
  End
End Sub


---------------------------------------------------------------------------------------------------



’メニューから選択(各○にチェックした時は下の各マクロから pata_1等が変化する)
Private Sub OptionButton1_Click()  ’●(本数字) と ○(ボーナス数字)選択した時
If OptionButton1.Value = True Then pata_1 = "○": pata_2 = "●"
End Sub


Private Sub OptionButton2_Click() ’◎(本数字) と ○(ボーナス数字)選択した時
If OptionButton2.Value = True Then pata_1 = "○ ": pata_2 = "◎ "
End Sub


Private Sub OptionButton3_Click() ’ /  (本数字) と ○ (ボーナス数字)選択した時
If OptionButton3.Value = True Then pata_1 = "○ ": pata_2 = "/ "
End Sub


Private Sub OptionButton4_Click() ’● (本数字) のみ 選択した時
If OptionButton4.Value = True Then pata_1 = "": pata_2 = "●"
End Sub


Private Sub OptionButton5_Click() ’ ○ (ボーナス数字) のみ 選択した時
If OptionButton5.Value = True Then pata_1 = "○ ": pata_2 = ""
End Sub


Private Sub OptionButton6_Click() ’ 数字 と 0 (ボーナス数字) 選択した時
If OptionButton6.Value = True Then pata_f = 1: pata_2 = "○ "
End Sub


ユーザーホーム作成方法は「エクセルの神髄」さんのサイトに詳しく載ってますね。