実用に耐えるユーザーフォーム作成のコツは具体的実例を教科書に

Option Explicit

Private Sub テンプレ作成する_Click()
        MRK = 1
        Call Module1.テンプレ作成2
End Sub

Private Sub データ連携する_Click()
        If CheckBox1 = False Then Exit Sub
        Call Module6.データ転記
End Sub

Private Sub UserForm_Initialize()
        With ComboBox1
            .AddItem "ＭＳ Ｐゴシック"
            .AddItem "ＭＳ Ｐ明朝"
            .AddItem "メイリオ"
            .AddItem "游ゴシック"
            .AddItem ""
        End With
End Sub

Private Sub 伝票作成する_Click()
    Dim ms As Long
        If 操作パネル.顧客番号.Value = "" Then
            ms = MsgBox("顧客番号が入力されていません。" & vbCrLf & _
                "このまま続けますか？", vbYesNo + vbQuestion, _
                "見納請３点伝票作成")
        End If
        If ms = vbNo Then
            Exit Sub
        ElseIf ms = vbYes Then
            MRK = 2
            Call Module5.テンプレ作成1
        Else
            MRK = 3
            Call Module5.テンプレ作成1
        End If
End Sub

Private Sub 帳票印刷する_Click()
        Call Module3.印刷設定
End Sub

Private Sub 伝票保存する_Click()
        If 操作パネル.CheckBox3 = True Then
            Exit Sub
        End If
        Call Module4.伝票保存
End Sub

Private Sub シートクリアする_Click()
        MRK = 0
        Call Module5.Clearする
End Sub

　　　　　　　・・・・・
                    If 操作パネル.CheckBox2 = True Then
                        Worksheets("電子印鑑の登録").Range("B13") _
                                    .Copy Worksheets("請求書").Range("F5")
                        Worksheets("請求書").Range("F5").ClearFormats
                    End If
　　　　　　　・・・・・

Option Explicit

Sub テンプレ作成2()
    Dim a As Integer
        Workbooks("見納請3点伝票作成.xlsm").Activate
        For a = 2 To 4
            Worksheets(a).Select
・・・・・
        Next a
        Worksheets("請求書").Select
        If MRK = 1 Then
        MsgBox "3点伝票テンプレートの作成が完了しました。", vbInformation, _
                    "見積書納品書請求書作成エクセル"
        End If
End Sub

・・・・・
        CosNo = 操作パネル.顧客番号.Value
stepB:
        If CosNo = "" And MRK <> 2 Then
            MsgBox "顧客番号が入力されていません。", vbExclamation, _
                        "見納請３点伝票作成"
            GoTo stepA
        Else
            CosNo = Val(CosNo)
            On Error GoTo 0
            On Error Resume Next
            Res = WorksheetFunction.Match(CosNo, Range("B:B"), 0)
            If Res = 0 Then GoTo stepA
        End If

・・・・・

'発行年月日のテンプレ転記
                With .Range("F3")
                    If 操作パネル.発行年月日.Value = "" Then
                        .Value = "令和　　年　　月　　日"
                    Else
                        .Value = 操作パネル.発行年月日.Value
                    End If
                    .Font.Size = 10
                End With

・・・・・
'フォント種選択（ユーザーフォームから選択）
                If 操作パネル.ComboBox1.Value = "" Then
                    .Cells.Font.Name = "ＭＳ Ｐゴシック"
                Else
                    .Cells.Font.Name = 操作パネル.ComboBox1.Value
                End If
            End With
        Next a
・・・・・

・・・・・
'品名のフォント
                Fsa = Val(操作パネル.品名F.Value)
                If Fsa = Null Or Fsa = "" Then
                    Fsa = 10
                Else
                    .Range(Cells(14, 2), Cells(KeRow, 2)) _
                            .Font.Size = Fsa
                End If
'顧客名のフォント
                Fsb = Val(操作パネル.顧客F.Value)
                If Fsb = Null Or Fsb = "" Then
                    Fsb = 13
                Else
                    .Range("B6").Font.Size = Fsb
                End If
・・・・・

Option Explicit

Sub テンプレ作成1()
        Worksheets("宛名の登録").Select
        Range("A:B").NumberFormatLocal = "0_ "
        Call Module1.テンプレ作成2
        Call Module2.帳票作成
        Worksheets("請求書").Select
        Range("A1").Select
End Sub

・・・・・
'自動保存設定
        If 操作パネル.CheckBox3 = True Then
            Call Module4.伝票保存
        End If
End Sub

Sub Clearする()
    Dim Answ As Long
        ThisWorkbook.Activate
        Answ = MsgBox("実行するとシートが初期化されます。" _
                    & vbCrLf & "実行しますか？" _
                    , vbYesNo + vbQuestion, "チェック")
            If Answ = vbYes Then
                With ActiveSheet
                        .Cells.ClearFormats
                        .Cells.ClearContents
                        .Cells.UseStandardHeight = True
                        .Cells.UseStandardWidth = True
                        .DrawingObjects.Delete
                End With
                If ActiveSheet.Name = "作業シート" Then
                    Call Module5.作業シート再構成
                ElseIf ActiveSheet.Name = "宛名の登録" Then
                    Call Module5.宛名の登録再構成
                ElseIf ActiveSheet.Name = "電子印鑑の登録" Then
                    Call Module5.電子印鑑の登録再構成
                End If
            Else
                Exit Sub
            End If
        ActiveSheet.Range("A1").Select
End Sub

Sub 作業シート再構成()
        With ThisWorkbook.Worksheets("作業シート")
            With .Range("A1")
                .Value = "通番"
                .ColumnWidth = 4.75
                .RowHeight = 24
            End With
            With .Range("B1")
                .Value = "品名"
                .ColumnWidth = 69.13
            End With
            With .Range("C1")
                .Value = "数量"
                .ColumnWidth = 8.38
            End With
            With .Range("D1")
                .Value = "単位"
                .ColumnWidth = 8.38
            End With
            With .Range("E1")
                .Value = "単価"
                .ColumnWidth = 8.38
            End With
            With .Range("F1")
                .Value = "金額"
                .ColumnWidth = 8.38
            End With
            With .Range("G1")
                .Value = "備考"
                .ColumnWidth = 8.38
            End With
        End With
End Sub

Sub 宛名の登録再構成()
        With ThisWorkbook.Worksheets("宛名の登録")
            With .Range("A1")
                .Value = "NO"
                .ColumnWidth = 8.38
                .RowHeight = 24
            End With
            With .Range("B1")
                .Value = "顧客番号"
                .ColumnWidth = 8.38
            End With
            With .Range("C1")
                .Value = "宛名"
                .ColumnWidth = 73.13
            End With
            With .Range("D1")
                .Value = "郵便番号"
                .ColumnWidth = 8.38
            End With
            With .Range("E1")
                .Value = "住所"
                .ColumnWidth = 30.63
            End With
        End With
End Sub

Sub 電子印鑑の登録再構成()
        With ThisWorkbook.Worksheets("電子印鑑の登録")
            .Rows("1:12").RowHeight = 24
            .Columns(1).ColumnWidth = 8.38
            .Columns(2).ColumnWidth = 44.38
            .Range("A1:A13, B1").Interior.ColorIndex = 15
            With Range("A1:B13")
                .Borders.LineStyle = xlContinuous
                .Borders.Weight = xlHairline
                .BorderAround LineStyle:=xlContinuous, _
                            Weight:=xlThin
            End With
            With .Range("A1")
                .Value = "項目"
            End With
            With .Range("B1")
                .Value = "内容"
            End With
            With .Range("A2")
                .Value = "自社名"
            End With
            With .Range("A3")
                .Value = "代表者名"
            End With
            With .Range("A5")
                .Value = "郵便番号"
            End With
            With .Range("A6")
                .Value = "住所"
            End With
            With .Range("A7")
                .Value = "電話番号"
            End With
            With .Range("A8")
                .Value = "FAX番号"
            End With
            With .Range("A9")
                .Value = "メール"
            End With
            With .Range("A11")
                .Value = "振込銀行"
            End With
            With .Range("A13")
                .Value = "社印"
                .RowHeight = 70.54
            End With
        End With
End Sub

Option Explicit

Private Sub Workbook_Open()
        操作パネル.Show vbModeless
End Sub

Option Explicit

Private Sub Worksheet_Activate()
        If 操作パネル.Visible = False Then
            操作パネル.Show vbModeless
        End If
End Sub