ユーザーホームを使ってあらかじめ設定されたメニューから選択処理が出来ます。

マクロを実行するとユーザーホームが表示される。選択して「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

  
コマンドボタンをマウスでクリック後にさらに右クリックし「コードの表示」選択して
下記の様に修正　（オプションボタンも同様）

’ユーザーホームの「ｏｋ」ボタンに下のマクロ(上記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

ツールボックスの中からオプションボタン、ラベル、コマンドボタンを選んでユーザーフォームに配置する。オプションボタンとコマンドボタンのコードに上の様なマクロを
作成する。

ユーザーホームの中で使う変数はパブリック変数にしてください。

忘れる「ユーザーホーム」思い出して - 趣味のエクセルで当てようロト・ナンバーズ

エクセルの「フォームコントロール」 - 趣味のエクセルで当てようロト・ナンバーズ

エクセルマクロ情報サイト - 趣味のエクセルで当てようロト・ナンバーズ
ユーザーホーム作成方法は「エクセルの神髄」さんのサイトに詳しく載ってますね。