UserFormに設置したコントロールのイベントコードを記述する

Private Sub データシートチェックボタン_Click()
　　Call Module1.データシート把握
End Sub

Private Sub UFリセット_Click()
    Unload ソートナビゲーター
    ソートナビゲーター.Show vbModeless
End Sub

Private Sub 部分範囲指定_Click()
    データ範囲4 = True
    Module1.並び替え範囲部分指定
End Sub

Private Sub 範囲指定罫線消去_Click()
    Module1.並び替え範囲部分指定罫線消去
End Sub

Private Sub 並び替え列1確定_Click()
    並び替え列1セル.Value = ActiveCell.Address(False, False)
    If 並び替え列1セル.Value <> "" Then
        KeyAddA = 並び替え列1セル.Value
    End If
    If 昇順1 = True Then
        Stream1 = xlAscending
    ElseIf 降順1 = True Then
        Stream1 = xlDescending
    Else
        Stream1 = xlAscending
        昇順1 = True
    End If
End Sub

Private Sub 列1消去_Click()
    並び替え列1セル.Value = ""
End Sub

Private Sub 並び替え列2確定_Click()
    並び替え列2セル.Value = ActiveCell.Address(False, False)
    If 並び替え列2セル.Value <> "" Then
        KeyAddB = 並び替え列2セル.Value
    End If
    If 昇順2 = True Then
        Stream2 = xlAscending
    ElseIf 降順2 = True Then
        Stream2 = xlDescending
    Else
        Stream2 = xlAscending
        昇順2 = True
    End If
End Sub

Private Sub 列2消去_Click()
    並び替え列2セル.Value = ""
End Sub

Private Sub 並び替え列3確定_Click()
    並び替え列3セル.Value = ActiveCell.Address(False, False)
    If 並び替え列3セル.Value <> "" Then
        KeyAddC = 並び替え列1セル.Value
    End If
    If 昇順3 = True Then
        Stream3 = xlAscending
    ElseIf 降順3 = True Then
        Stream3 = xlDescending
    Else
        Stream3 = xlAscending
        昇順3 = True
    End If
End Sub

Private Sub 列3消去_Click()
    並び替え列3セル.Value = ""
End Sub

Private Sub 背景色選択1確定_Click()
    背景色選択1.Value = ActiveCell.Interior.Color
    ClrNoA = 背景色選択1.Value
    Call Module1.RGB変換(Val(ClrNoA))
    背景色選択1.Value = RGBstyle
    ClrNoACellc = ActiveCell.Column
    If 昇順4 = True Then
        Stream4 = xlAscending
    ElseIf 降順4 = True Then
        Stream4 = xlDescending
    Else
        Stream4 = xlAscending
        昇順4 = True
    End If
End Sub

Private Sub 色1消去_Click()
    背景色選択1.Value = ""
End Sub

Private Sub 背景色選択2確定_Click()
    背景色選択2.Value = ActiveCell.Interior.Color
    ClrNoB = 背景色選択2.Value
    Call Module1.RGB変換(Val(ClrNoB))
    背景色選択2.Value = RGBstyle
    ClrNoBCellc = ActiveCell.Column
    If 昇順5 = True Then
        Stream5 = xlAscending
    ElseIf 降順5 = True Then
        Stream5 = xlDescending
    Else
        Stream5 = xlAscending
        昇順5 = True
    End If
End Sub

Private Sub 色2消去_Click()
    背景色選択2.Value = ""
End Sub

Private Sub 背景色選択3確定_Click()
    背景色選択3.Value = ActiveCell.Interior.Color
    ClrNoC = 背景色選択3.Value
    Call Module1.RGB変換(Val(ClrNoC))
    背景色選択3.Value = RGBstyle
    ClrNoCCellc = ActiveCell.Column
    If 昇順6 = True Then
        Stream6 = xlAscending
    ElseIf 降順6 = True Then
        Stream6 = xlDescending
    Else
        Stream6 = xlAscending
        昇順6 = True
    End If
End Sub

Private Sub 色3消去_Click()
    背景色選択3.Value = ""
End Sub

Private Sub ユーザー設定リストなし_Click()
    If ユーザー設定リスト使う = True Then
        ユーザー設定リストフレーム.Visible = True
    ElseIf ユーザー設定リスト使う = False Then
        ユーザー設定リストフレーム.Visible = False
    End If
End Sub

Private Sub ユーザー設定リスト使う_Click()
    If ユーザー設定リスト使う = True Then
        ユーザー設定リストフレーム.Visible = True
    ElseIf ユーザー設定リスト使う = False Then
        ユーザー設定リストフレーム.Visible = False
    End If
End Sub

Private Sub 列並び替え_Click()
    If 複合並び替え = True Then
        複合キーフレーム.Visible = True
    ElseIf 複合並び替え = False Then
        複合キーフレーム.Visible = False
    End If
End Sub

Private Sub 色並び替え_Click()
    If 複合並び替え = True Then
        複合キーフレーム.Visible = True
    ElseIf 複合並び替え = False Then
        複合キーフレーム.Visible = False
    End If
End Sub

Private Sub 複合並び替え_Click()
    If 複合並び替え = True Then
        複合キーフレーム.Visible = True
    ElseIf 複合並び替え = False Then
        複合キーフレーム.Visible = False
    End If
End Sub

Private Sub 並び替えGO_Click()
Dim Ans, Ans1, Ans2, Ans3 As Long
'-------- 1 ↓↓↓ここから-----------
    Ans = MsgBox("並び替えデータシート全体のチェックは終わって" & _
        "いますか？" & vbCrLf & "続けますか？", _
        vbYesNo + vbQuestion, "確認")
    If Ans = 7 Then
        MsgBox "承知しました。チェックを行ってください。"
        Exit Sub
    End If
        
    If データ範囲1 = True Then
        DataRange = "Type1"
    ElseIf データ範囲2 = True Then
        DataRange = "Type2"
    ElseIf データ範囲3 = True Then
        DataRange = "Type3"
    ElseIf データ範囲4 = True Then
        DataRange = "Type4"
        If 部分範囲指定表示.Value = "" Then
            MsgBox "範囲指定を行なわないと並び替えが出来ません。" _
                & vbCrLf & "一旦終了します。", vbCritical, "範囲指定"
            Exit Sub
        End If
    Else
        MsgBox "データ範囲が不明です。データ範囲を指定しないと" & _
            "並び替えが出来ません。" _
            & vbCrLf & "一旦終了します。", vbCritical, "データ範囲"
        Exit Sub
    End If
'-------- 1 ↑↑↑ここまで-----------
'-------- 2 ↓↓↓ここから-----------
    If 先頭行あり = True Then
        Head = xlYes
    ElseIf 先頭行なし = True Then
        Head = xlNo
    Else
        Ans1 = MsgBox("先頭行の指定がない場合は「先頭行は見出し」" & _
        "にセットされます。" & vbCrLf & "続けますか？" _
                , vbYesNo + vbQuestion, "確認")
        If Ans1 = 6 Then
            ソートナビゲーター.先頭行あり = True
            Head = xlYes
        ElseIf Ans1 = 7 Then
            MsgBox "設定してください。"
            Exit Sub
        End If
    End If
'-------- 2 ↑↑↑ここまで-----------
'-------- 3 ↓↓↓ここから-----------
    If ユーザー設定リストなし = False And _
                                    ユーザー設定リスト使う = False Then
        Ans2 = MsgBox("ユーザー設定リストの指定がない場合は" & _
            "「設定なし」にセットされます。" & vbCrLf & "続けますか？" _
                , vbYesNo + vbQuestion, "確認")
        If Ans2 = 7 Then
            MsgBox "設定してください。"
            Exit Sub
        ElseIf Ans2 = 6 Then
            ユーザー設定リストなし = True
        End If
    End If
    If ユーザー設定リスト列1ON = True Then
        CusOdr1 = "ON"
    Else
        CusOdr1 = ""
    End If
    If ユーザー設定リスト列2ON = True Then
        CusOdr2 = "ON"
    Else
        CusOdr2 = ""
    End If
    If ユーザー設定リスト列3ON = True Then
        CusOdr3 = "ON"
    Else
        CusOdr3 = ""
    End If

    If 列並び替え = True Then
        SortType = "StypeA"
    ElseIf 色並び替え = True Then
        SortType = "StypeB"
    ElseIf 複合並び替え = True Then
        If キー優先列 = True Then
            SortType = "StypeC"
        ElseIf キー優先色 = True Then
            SortType = "StypeD"
        Else
            SortType = "StypeC"
        End If
    Else
        Ans3 = MsgBox("並び替え方法の指定がない場合は「列キー単独」" & _
            "にセットされます。" & vbCrLf & "よろしいですか？" _
                    , vbYesNo + vbQuestion, "確認")
        If Ans3 = 6 Then
            ソートナビゲーター.列並び替え = True
            SortType = "StypeA"
        ElseIf Ans3 = 7 Then
            MsgBox "設定してください。。"
            Exit Sub
        End If
    End If
    
Debug.Print SortType

    Call Module1.並び替え作業
    ユーザー設定リスト列1ON.Value = False
    ユーザー設定リスト列2ON.Value = False
    ユーザー設定リスト列3ON.Value = False
    キー優先列.Value = False
    キー優先色.Value = False
'-------- 3 ↑↑↑ここまで-----------
End Sub

Private Sub 切り出し全行数_Click()
    With 切り出し全行数
    If DCutEr = 0 Then
        MsgBox "切り出すものがありません。"
        Exit Sub
    End If
        .TextAlign = fmTextAlignCenter
        .Caption = DCutEr - DCutr + 1 & "行"
        .Font.Bold = True
        .Font.Size = 14
    End With
End Sub

Private Sub データ切り出し実行_Click()
    DCYr = 切り出し希望行数.Value
    With 切り出し全行数
        .TextAlign = fmTextAlignLeft
        .Caption = "ここをクリックすると切り出し可能な最大行数を" & _
                    "表示します。"
        .Font.Bold = False
        .Font.Size = 8
    End With
    Call Module1.並び替えデータ切り出し
End Sub

Private Sub リスタート_Click()
Call Module1.リスタート実行
End Sub