封筒宛名を印刷するエクセルVBAの作り方。基本操作部分編

• 封筒のサイズ
• 縦書きか横書きか
• 発送便の種別
• 宛先の印刷
• 宛先の連続印刷
• 差出人の印刷
• 書体の設定
• 宛先の入力
• 差出人の入力
• 既存住所録の利用
• プリンターとの封筒サイズセッティング
• 各封筒別の宛先項目、差出項目の印刷位置セッティング

1. 封筒サイズなど、印刷にかかわる前提条件・基本操作部分
2. 宛先の登録・リスト追加にかかわる条件・新規登録
3. 宛先の封筒への一枚印刷を行う条件・単独印刷
4. 複数の宛先を連続して封筒に印刷する条件・連続印刷
5. 差出人を登録し・印刷する条件・差出人項目

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

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

Private Sub OptionButton1_Click()

宛名印刷設定.プリンター注意.Caption = “”
宛名印刷設定.用紙注意書き.Caption = “”
宛名印刷設定.サイズ表示A.Caption = “洋形２号”
宛名印刷設定.TP_no.Caption = “TP1”
宛名印刷設定.用紙注意.Caption = “洋形２号”
Application.Wait Now() + TimeValue(“00:00:01”)
宛名印刷設定.用紙注意書き.Caption = “先ず、プリンターの用紙設定をしてください。”
If  Worksheets(“データ”).Range(“C4”).Value = “” Then
　　Worksheets(“宛先”).PageSetup.PaperSize = xlPaperA4
　　Worksheets(“差出”).PageSetup.PaperSize = xlPaperA4
Else
　　Worksheets(“宛先”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C4”).Value
　　Worksheets(“差出”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C4”).Value
End If
End Sub

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

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

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

Private Sub 差出CL_Click()
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 “”
End With

End Sub

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

Private Sub フォーム終了_Click()

Unload プリンター登録封筒
宛名印刷設定.封筒登録.Value = False
宛名印刷設定.封筒登録.Caption = “封筒登録ＯＦＦ”
宛名印刷設定.封筒登録.BackColor = &HE0E0E0
Worksheets(“データ”).Visible = False

End Sub

Private Sub 定数値確認_Click()
Module1.設定用定数値
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

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

Sub 発送便記入()

STY = 宛名印刷設定.TP_no.Caption

If STY = “TP3” And 宛名印刷設定.横書き1.Value = False Then

　　サブ項目1発送便記入
ElseIf STY = “TP1” And 宛名印刷設定.横書き2.Value = False Then

　　サブ項目1発送便記入
ElseIf STY = “TP1” And 宛名印刷設定.横書き3.Value = False Then

　　サブ項目1発送便記入
ElseIf STY = “TP2” Or STY = “TP6” Then
　　サブ項目1発送便記入

Else
　　サブ項目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

With Selection.Font
If 宛名印刷設定.ComboBox1.ListIndex = 0 Then
.Name = “ＭＳ Ｐゴシック”
ElseIf 宛名印刷設定.ComboBox1.ListIndex = 1 Then
.Name = “ＭＳ Ｐ明朝”
ElseIf 宛名印刷設定.ComboBox1.ListIndex = 2 Then
.Name = “AR P隷書体M”
Else
.Name = “ＭＳ Ｐゴシック”
End If
End With

Range(“A1”).Select

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()

宛名印刷設定.プリンター注意.Caption = “”
宛名印刷設定.用紙注意書き.Caption = “”
宛名印刷設定.サイズ表示A.Caption = “洋形２号”
宛名印刷設定.TP_no.Caption = “TP1”
宛名印刷設定.用紙注意.Caption = “洋形２号”
Application.Wait Now() + TimeValue(“00:00:01”)
宛名印刷設定.用紙注意書き.Caption = “先ず、プリンターの用紙設定をしてください。”
If  Worksheets(“データ”).Range(“C4”).Value = “” Then
　　Worksheets(“宛先”).PageSetup.PaperSize = xlPaperA4
　　Worksheets(“差出”).PageSetup.PaperSize = xlPaperA4
Else
　　Worksheets(“宛先”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C4”).Value
　　Worksheets(“差出”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C4”).Value
End If
End Sub

Private Sub OptionButton2_Click()

宛名印刷設定.プリンター注意.Caption = “”
宛名印刷設定.用紙注意書き.Caption = “”
宛名印刷設定.サイズ表示A.Caption = “洋形３号”
宛名印刷設定.TP_no.Caption = “TP1”
宛名印刷設定.用紙注意.Caption = “洋形３号”
Application.Wait Now() + TimeValue(“00:00:01”)
宛名印刷設定.用紙注意書き.Caption = “先ず、プリンターの用紙設定をしてください。”
If  Worksheets(“データ”).Range(“C5”).Value = “” Then
　　Worksheets(“宛先”).PageSetup.PaperSize = xlPaperA4
　　Worksheets(“差出”).PageSetup.PaperSize = xlPaperA4
Else
　　Worksheets(“宛先”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C5”).Value
　　Worksheets(“差出”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C5”).Value
End If
End Sub

Private Sub OptionButton3_Click()

宛名印刷設定.プリンター注意.Caption = “”
宛名印刷設定.用紙注意書き.Caption = “”
宛名印刷設定.サイズ表示A.Caption = “洋形４号”
宛名印刷設定.TP_no.Caption = “TP2”
宛名印刷設定.用紙注意.Caption = “洋形４号”
Application.Wait Now() + TimeValue(“00:00:01”)
宛名印刷設定.用紙注意書き.Caption = “先ず、プリンターの用紙設定をしてください。”
If  Worksheets(“データ”).Range(“C6”).Value = “” Then
　　Worksheets(“宛先”).PageSetup.PaperSize = xlPaperA4
　　Worksheets(“差出”).PageSetup.PaperSize = xlPaperA4
Else
　　Worksheets(“宛先”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C6”).Value
　　Worksheets(“差出”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C6”).Value
End If
End Sub

Private Sub OptionButton4_Click()

宛名印刷設定.プリンター注意.Caption = “”
宛名印刷設定.用紙注意書き.Caption = “”
宛名印刷設定.サイズ表示A.Caption = “洋長形３号”
宛名印刷設定.TP_no.Caption = “TP3”
宛名印刷設定.用紙注意.Caption = “洋長形３号”
Application.Wait Now() + TimeValue(“00:00:01”)
宛名印刷設定.用紙注意書き.Caption = “先ず、プリンターの用紙設定をしてください。”
If  Worksheets(“データ”).Range(“C7”).Value = “” Then
　　Worksheets(“宛先”).PageSetup.PaperSize = xlPaperA4
　　Worksheets(“差出”).PageSetup.PaperSize = xlPaperA4
Else
　　Worksheets(“宛先”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C7”).Value
　　Worksheets(“差出”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C7”).Value
End If
End Sub

Private Sub OptionButton13_Click()

宛名印刷設定.プリンター注意.Caption = “”
宛名印刷設定.用紙注意書き.Caption = “”
宛名印刷設定.サイズ表示A.Caption = “長形１号”
宛名印刷設定.TP_no.Caption = “TP4”
宛名印刷設定.用紙注意.Caption = “長形１号”
Application.Wait Now() + TimeValue(“00:00:01”)
宛名印刷設定.用紙注意書き.Caption = “先ず、プリンターの用紙設定をしてください。”
If  Worksheets(“データ”).Range(“C8”).Value = “” Then
　　Worksheets(“宛先”).PageSetup.PaperSize = xlPaperA4
　　Worksheets(“差出”).PageSetup.PaperSize = xlPaperA4
Else
　　Worksheets(“宛先”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C8”).Value
　　Worksheets(“差出”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C8”).Value
End If
End Sub

Private Sub OptionButton14_Click()

宛名印刷設定.プリンター注意.Caption = “”
宛名印刷設定.用紙注意書き.Caption = “”
宛名印刷設定.サイズ表示A.Caption = “長形２号”
宛名印刷設定.TP_no.Caption = “TP5”
宛名印刷設定.用紙注意.Caption = “長形２号”
Application.Wait Now() + TimeValue(“00:00:01”)
宛名印刷設定.用紙注意書き.Caption = “先ず、プリンターの用紙設定をしてください。”
If  Worksheets(“データ”).Range(“C9”).Value = “” Then
　　Worksheets(“宛先”).PageSetup.PaperSize = xlPaperA4
　　Worksheets(“差出”).PageSetup.PaperSize = xlPaperA4
Else
　　Worksheets(“宛先”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C9”).Value
　　Worksheets(“差出”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C9”).Value
End If
End Sub

Private Sub OptionButton5_Click()

宛名印刷設定.プリンター注意.Caption = “”
宛名印刷設定.用紙注意書き.Caption = “”
宛名印刷設定.サイズ表示A.Caption = “長形３号”
宛名印刷設定.TP_no.Caption = “TP3”
宛名印刷設定.用紙注意.Caption = “長形３号”
Application.Wait Now() + TimeValue(“00:00:01”)
宛名印刷設定.用紙注意書き.Caption = “先ず、プリンターの用紙設定をしてください。”
If  Worksheets(“データ”).Range(“C10”).Value = “” Then
　　Worksheets(“宛先”).PageSetup.PaperSize = xlPaperA4
　　Worksheets(“差出”).PageSetup.PaperSize = xlPaperA4
Else
　　Worksheets(“宛先”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C10”).Value
　　Worksheets(“差出”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C10”).Value
End If
End Sub

Private Sub OptionButton15_Click()

宛名印刷設定.プリンター注意.Caption = “”
宛名印刷設定.用紙注意書き.Caption = “”
宛名印刷設定.サイズ表示A.Caption = “長形４号”
宛名印刷設定.TP_no.Caption = “TP6”
宛名印刷設定.用紙注意.Caption = “長形４号”
Application.Wait Now() + TimeValue(“00:00:01”)
宛名印刷設定.用紙注意書き.Caption = “先ず、プリンターの用紙設定をしてください。”
If  Worksheets(“データ”).Range(“C11”).Value = “” Then
　　Worksheets(“宛先”).PageSetup.PaperSize = xlPaperA4
　　Worksheets(“差出”).PageSetup.PaperSize = xlPaperA4
Else
　　Worksheets(“宛先”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C11”).Value
　　Worksheets(“差出”).PageSetup.PaperSize = Worksheets(“データ”).Range(“C11”).Value
End If
End Sub

Private Sub OptionButton6_Click()

宛名印刷設定.プリンター注意.Caption = “”
宛名印刷設定.用紙注意書き.Caption = “”
宛名印刷設定.サイズ表示A.Caption = “長形４０号”
宛名印刷設定.TP_no.Caption = “TP6”
宛名印刷設定.用紙注意.Caption = “長形４０号”
Application.Wait Now() + TimeValue(“00:00:01”)
宛名印刷設定.用紙注意書き.Caption = “先ず、プリンターの用紙設定をしてください。”
If  Worksheets(“データ”).Range(“C12”).Value = “” Then
　　Worksheets(“宛先”).PageSetup.PaperSize = xlPaperA4<