コマンドボタンで実行するプロシージャーに紐づけのコードを作る-抽選ソフト作成4

Sub 抽選名称復旧()

    Set TYsheet = Worksheets("抽選会場")
    Set BUsheet = Worksheets("抽選項目BU")
    
    選定ナビ.抽選名称.Value = BUsheet.Range("B2")
    選定ナビ.参加人数.Value = BUsheet.Range("B3")
    選定ナビ.開催日付.Value = BUsheet.Range("B4")

End Sub

Sub 抽選項目復旧()

    Dim Ans As Long
        Set TYsheet = Worksheets("抽選会場")
        Set BUsheet = Worksheets("抽選項目BU")
        
        Ans = MsgBox("抽選項目を復旧します。" & vbCrLf & "今の項目の場合は「はい」" & vbCrLf & _
            "一つ前の項目の場合は「いいえ」" & vbCrLf & "取りやめる場合は「キャンセル」" & vbCrLf & _
                "　を押してください", vbYesNoCancel + vbExclamation, "復旧内容")
            
        If Ans = vbYes Then
                選定ナビ.一位賞.Value = BUsheet.Range("B5")
                選定ナビ.二位賞.Value = BUsheet.Range("B6")
                選定ナビ.三位賞.Value = BUsheet.Range("B7")
                選定ナビ.四位賞.Value = BUsheet.Range("B8")
                選定ナビ.五位賞.Value = BUsheet.Range("B9")
                選定ナビ.六位賞.Value = BUsheet.Range("B10")
                選定ナビ.一位本.Value = BUsheet.Range("C5")
                選定ナビ.二位本.Value = BUsheet.Range("C6")
                選定ナビ.三位本.Value = BUsheet.Range("C7")
                選定ナビ.四位本.Value = BUsheet.Range("C8")
                選定ナビ.五位本.Value = BUsheet.Range("C9")
                選定ナビ.六位本.Value = BUsheet.Range("C10")
        ElseIf Ans = vbNo Then
                選定ナビ.一位賞.Value = BUsheet.Range("B17")
                選定ナビ.二位賞.Value = BUsheet.Range("B18")
                選定ナビ.三位賞.Value = BUsheet.Range("B19")
                選定ナビ.四位賞.Value = BUsheet.Range("B20")
                選定ナビ.五位賞.Value = BUsheet.Range("B21")
                選定ナビ.六位賞.Value = BUsheet.Range("B22")
                選定ナビ.一位本.Value = BUsheet.Range("C17")
                選定ナビ.二位本.Value = BUsheet.Range("C18")
                選定ナビ.三位本.Value = BUsheet.Range("C19")
                選定ナビ.四位本.Value = BUsheet.Range("C20")
                選定ナビ.五位本.Value = BUsheet.Range("C21")
                選定ナビ.六位本.Value = BUsheet.Range("C22")
        Else
                Exit Sub
        End If

End Sub

Sub 抽選項目登録()
    Dim h, i, j As Long
        Set TYsheet = Worksheets("抽選会場")
        Set TOsheet = Worksheets("当選者")
        Set BUsheet = Worksheets("抽選項目BU")
        
        If TYsheet.Range("A1") = "" Then Exit Sub
        
        If 選定ナビ.参加人数.Value = "" Then
            MsgBox "抽選項目の入力が終わっていません。" & vbCrLf & _
            "参加人数は半角数字を入力してください。", vbOKOnly, "メッセージ"
            Exit Sub
        End If
            
        Call Module4.賞名空白対処
        
        TYsheet.Select
        Range("A5:A10", "C5:C10").ClearContents
        
        On Error Resume Next
        
        TItle = 選定ナビ.抽選名称.Value
        EVD = 選定ナビ.開催日付.Value
        Par = 選定ナビ.参加人数.Value
        PrN(1) = 選定ナビ.一位賞.Value
        PrN(2) = 選定ナビ.二位賞.Value
        PrN(3) = 選定ナビ.三位賞.Value
        PrN(4) = 選定ナビ.四位賞.Value
        PrN(5) = 選定ナビ.五位賞.Value
        PrN(6) = 選定ナビ.六位賞.Value
        PrQ(1) = 選定ナビ.一位本.Value
        PrQ(2) = 選定ナビ.二位本.Value
        PrQ(3) = 選定ナビ.三位本.Value
        PrQ(4) = 選定ナビ.四位本.Value
        PrQ(5) = 選定ナビ.五位本.Value
        PrQ(6) = 選定ナビ.六位本.Value
        
        On Error GoTo 0
            
        Call Module4.抽選項目バックアップ
        
        TYsheet.Select
        
        If Range("A1") <> "" Then
            For i = 1 To 6
                Range("A" & 4 + i) = PrN(i)
                PrQn(i) = Val(StrConv(PrQ(i), vbNarrow))
                Range("C" & 4 + i) = PrQn(i) - Range("B" & 4 + i)
        
            Next i
        End If
End Sub

Sub 一位単ボタン()
    YN = 0
    ST = 1
    Call Module2.抽選会
End Sub

Sub 一位連ボタン()
    YN = 1
    ST = 1
    Call Module2.抽選会
End Sub

Sub 五位連ボタン()
    YN = 1
    ST = 5
    Call Module2.抽選会
End Sub

Sub option1ボタン()
    OP = 1
End Sub

Sub option2ボタン()
    OP = 2
End Sub

Sub option3ボタン()
    OP = 3
End Sub

Sub option4ボタン()
    OPk = 1
End Sub

Sub option5ボタン()
    OPk = 2
End Sub

Sub option6ボタン()
    OPk = 3
End Sub

Sub option7ボタン()
    OPr = 1
End Sub

Sub option8ボタン()
    OPr = 2
End Sub

Sub option9ボタン()
    OPr = 3
End Sub

Sub option10ボタン()
    Jf = 0
End Sub

Sub option11ボタン()
    Jf = 1
End Sub