封筒宛名印刷のVBA作成。基本部のユーザーフォーム

Option Explicit

Private Sub Worksheet_Activate()
        If 宛名印刷設定.Visible Then Exit Sub
        宛名印刷設定.Show vbModeless
End Sub

Option Explicit

Private Sub Workbook_Open()
        If 宛名印刷設定.Visible Then Exit Sub
        宛名印刷設定.Show vbModeless
End Sub

Private Sub OptionButton1_Click()
'洋形2号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton1.Caption
        宛名印刷設定.TP_no.Caption = "TP1"
        Call Module1.オプションボタン設定
End Sub

Private Sub 便名反映_Click()
        Call Module1.発送便記入
End Sub

Private Sub 発送便クリア_Click()
        宛名印刷設定.発送便.Value = ""
        Call Module1.発送便CL
End Sub

Private Sub 宛先CL_Click()
        Call Module1.シートクリア宛先
End Sub

Private Sub 差出CL_Click()
        Call Module1.シートクリア差出
End Sub

Private Sub 封筒登録_Click()
        If 宛名印刷設定.封筒登録 = True Then
            プリンター登録封筒.Show vbModeless
            宛名印刷設定.封筒登録.Caption = "封筒登録ＯＮ"
            宛名印刷設定.封筒登録.BackColor = &H808080
        ElseIf 宛名印刷設定.封筒登録 = False Then
            Unload プリンター登録封筒
            宛名印刷設定.封筒登録.Caption = "封筒登録ＯＦＦ"
            宛名印刷設定.封筒登録.BackColor = &HE0E0E0
        End If
End Sub

Private Sub UserForm_Initialize()
        OptionButton1.Value = True
        With ComboBox1
            .AddItem "ＭＳ Ｐゴシック"
            .AddItem "ＭＳ Ｐ明朝"
            .AddItem "ＡＲ Ｐ隷書体Ｍ"
            .AddItem "メイリオ"
            .AddItem "游ゴシック"
            .AddItem ""
        End With
End Sub

Option Explicit

Private Sub 封筒サイズ更新_Click()
        Call Module3.封筒コード登録
End Sub

Private Sub フォーム終了_Click()
        Unload プリンター登録封筒
        宛名印刷設定.封筒登録 = False
        宛名印刷設定.封筒登録.Caption = "封筒登録ＯＦＦ"
        宛名印刷設定.封筒登録.BackColor = &HE0E0E0
        Worksheets("データ").Visible = False
End Sub

Private Sub 定数値確認_Click()
        Call Module3.設定用定数値
End Sub

Private Sub データシート表示_Click()
        If プリンター登録封筒.データシート表示 = True Then
            プリンター登録封筒.データシート表示.Caption = _
                        "データシート表示ＯＮ"
            プリンター登録封筒.データシート表示.BackColor = &H808080
            With Worksheets("データ")
                    .Visible = True
                    .Select
            End With
        ElseIf プリンター登録封筒.データシート表示 = False Then
            プリンター登録封筒.データシート表示.Caption = _
                        "データシート表示ＯＦＦ"
            プリンター登録封筒.データシート表示.BackColor = &HE0E0E0
            Worksheets("データ").Visible = False
            Worksheets("宛名リスト").Select
        End If
End Sub

    Option Explicit
    
    Public STY As Variant
    Public TPnU, TPnL, TPnM, TPnRo As Double
    Public aR As Long, J As Long
    Public aN, aKei, aSho, aYB, aK, aSK, aB, aBM, aRe As Variant
    Public OPB As String

Sub 発送便記入()
        STY = 宛名印刷設定.TP_no.Caption
        If STY = "TP3" And 宛名印刷設定.横書き1.Value = False Then
            Call Module1.サブ項目1発送便記入
        ElseIf STY = "TP1" And 宛名印刷設定.横書き2.Value = False Then
            Call Module1.サブ項目1発送便記入
        ElseIf STY = "TP1" And 宛名印刷設定.横書き3.Value = False Then
            Call Module1.サブ項目1発送便記入
        ElseIf STY = "TP2" Or STY = "TP6" Then
            Call Module1.サブ項目1発送便記入
        Else
            Call Module1.サブ項目2発送便記入
        End If
End Sub

Sub サブ項目1発送便記入()
        Worksheets("宛先").Range("E1:H1").MergeCells = True
        With Worksheets("宛先").Range("E1")
            .Value = 宛名印刷設定.発送便.Value
            .Font.Bold = True
            .Font.Color = RGB(255, 0, 0)
            .Orientation = xlHorizontal
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlTop
        End With
End Sub

Sub サブ項目2発送便記入()
        With Worksheets("宛先")
            .Range("C1:D1").MergeCells = True
            .Range("C1").Value = 宛名印刷設定.発送便.Value
            .Range("C1").Font.Color = RGB(255, 0, 0)
        End With
End Sub

Sub 発送便CL()
        Worksheets("宛先").Range("E1") = ""
        Worksheets("宛先").Range("C1") = ""
End Sub

Sub シートクリア宛先()
        With Worksheets("宛先")
            .Cells.ClearFormats
            .Cells.ClearContents
            .Cells.UseStandardHeight = True
            .Cells.UseStandardWidth = True
        End With
End Sub

Sub シートクリア差出()
            With Worksheets("差出")
            .Cells.ClearFormats
            .Cells.ClearContents
            .Cells.UseStandardHeight = True
            .Cells.UseStandardWidth = True
        End With
End Sub

Sub フォント設定()
        Worksheets("宛先").Select
        Cells.Select
        If 宛名印刷設定.ComboBox1.Value = "" Then
            宛名印刷設定.ComboBox1.Value = "ＭＳ Ｐゴシック"
        End If
        Selection.Font.Name = 宛名印刷設定.ComboBox1.Value
End Sub

Sub オプションボタン設定()
    Dim MR As Long
        宛名印刷設定.サイズ表示A.Caption = OPB
        Worksheets("宛先").PageSetup.PaperSize = xlPaperA4
        Worksheets("差出").PageSetup.PaperSize = xlPaperA4
        宛名印刷設定.プリンター注意.Caption = ""
        宛名印刷設定.用紙注意書き.Caption = ""
        Application.Wait Now() + TimeValue("00:00:01")
        宛名印刷設定.用紙注意書き.Caption = _
                    "先ず、プリンターの用紙設定をしてください。"
        On Error Resume Next
        MR = WorksheetFunction.Match(OPB, Worksheets("データ") _
                    .Range("A1:A21"), 0)
        If Worksheets("データ").Cells(MR, 3).Value = "" Then
           Worksheets("宛先").PageSetup.PaperSize = xlPaperA4
           Worksheets("差出").PageSetup.PaperSize = xlPaperA4
        Else
            With Worksheets("データ")
                Worksheets("宛先").PageSetup.PaperSize = _
                            .Cells(MR, 3).Value
                Worksheets("差出").PageSetup.PaperSize = _
                            .Cells(MR, 3).Value
            End With
        End If
End Sub

Sub 封筒コード登録()
    Dim x As Long
        Worksheets("データ").Visible = True
        Worksheets("データ").Select
        For x = 1 To 18
            If プリンター登録封筒.CheckBox1.Value = False Then
                If プリンター登録封筒.Controls("コード" & x) _
                            .Value = "" Then
                    GoTo step2
                Else
                    Range("C" & x + 3).Value = プリンター登録封筒 _
                            .Controls("コード" & x).Value
                End If
step2:
            Else
                Range("C" & x + 3).Value = プリンター登録封筒 _
                            .Controls("コード" & x).Value
            End If
        Next x
End Sub

Sub 設定用定数値()
        Worksheets("宛先").Select
        MsgBox "用紙設定　定数値は 「 " & Worksheets("宛先").PageSetup. _
                    PaperSize & " 」 です。", vbOKOnly, "封筒宛名印刷"
End Sub

Private Sub OptionButton1_Click()
'洋形2号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton1.Caption
        宛名印刷設定.TP_no.Caption = "TP1"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton2_Click()
'洋形3号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton2.Caption
        宛名印刷設定.TP_no.Caption = "TP1"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton3_Click()
'洋形4号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton3.Caption
        宛名印刷設定.TP_no.Caption = "TP2"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton4_Click()
'洋長形3号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton4.Caption
        宛名印刷設定.TP_no.Caption = "TP3"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton13_Click()
'長形1号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton13.Caption
        宛名印刷設定.TP_no.Caption = "TP4"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton14_Click()
'長形2号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton14.Caption
        宛名印刷設定.TP_no.Caption = "TP5"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton5_Click()
'長形3号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton5.Caption
        宛名印刷設定.TP_no.Caption = "TP3"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton15_Click()
'長形4号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton15.Caption
        宛名印刷設定.TP_no.Caption = "TP6"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton6_Click()
'長形40号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton6.Caption
        宛名印刷設定.TP_no.Caption = "TP6"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton10_Click()
'角型1号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton10.Caption
        宛名印刷設定.TP_no.Caption = "TP7"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton9_Click()
'角型2号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton9.Caption
        宛名印刷設定.TP_no.Caption = "TP7"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton8_Click()
'角型3号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton18.Caption
        宛名印刷設定.TP_no.Caption = "TP8"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton16_Click()
'角型4号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton16.Caption
        宛名印刷設定.TP_no.Caption = "TP8"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton17_Click()
'角型5号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton17.Caption
        宛名印刷設定.TP_no.Caption = "TP9"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton18_Click()
'角型6号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton18.Caption
        宛名印刷設定.TP_no.Caption = "TP10"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton7_Click()
'角型8号
        OPB = ""
        OPB = 宛名印刷設定.OptionButton7.Caption
        宛名印刷設定.TP_no.Caption = "TP5"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton11_Click()
'郵便はがき
        OPB = ""
        OPB = 宛名印刷設定.OptionButton11.Caption
        宛名印刷設定.TP_no.Caption = "TP1"
        Call Module1.オプションボタン設定
End Sub

Private Sub OptionButton12_Click()
'A6用紙
        OPB = ""
        OPB = 宛名印刷設定.OptionButton12.Caption
        宛名印刷設定.TP_no.Caption = "TP1"
        Call Module1.オプションボタン設定
End Sub