ユーザーホーム(UserForm)
ユーザーホームを使ってあらかじめ設定されたメニューから選択処理が出来ます。
マクロを実行するとユーザーホームが表示される。選択して「OK」押下で処理される。
(ユーザーホームの「表示パターンの選択」から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 '初期化 Pblic変数使用時
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
ツールボックスの中からオプションボタン、ラベル、コマンドボタンを選んでユーザーフォームに配置する。オプションボタンとコマンドボタンのコードに上の様なマクロを
作成する。
ユーザーホームの中で使う変数はパブリック変数にしてください。
忘れる「ユーザーホーム」思い出して - 趣味のエクセルで当てようロト・ナンバーズ
エクセルの「フォームコントロール」 - 趣味のエクセルで当てようロト・ナンバーズ
エクセルマクロ情報サイト - 趣味のエクセルで当てようロト・ナンバーズ
ユーザーホーム作成方法は「エクセルの神髄」さんのサイトに詳しく載ってますね。