Excelで年賀状印刷ソフトを作ってみよう　Step 8　住所1に改行と住所2を加え、宛先住所のシェイプにセットする

シート画面

宛先印刷シート
住所1と住所2が宛先の住所にセットされています。
年賀状の宛名

下記のVBAコードに変更してください。

'印刷実行
Private Sub MyPrintDataSet(lrow As Long)
    Dim dat As String
    Dim s As String

    '名前 & 敬称
    dat = ActiveSheet.Cells(lrow, 1) & " " & ActiveSheet.Cells(lrow, 2)
    Sheets("宛先面").Shapes("宛先名前").TextFrame.Characters.Text = dat

    '住所1、住所2
    dat = ActiveSheet.Cells(lrow, 4)
    s = ActiveSheet.Cells(lrow, 5)
    If s <> "" Then
        dat = dat & vbCrLf & s
    End If
    Sheets("宛先面").Shapes("宛先住所").TextFrame.Characters.Text = dat
End Sub

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

Excelで年賀状印刷ソフトを作ってみよう

Step 8 住所1に改行と住所2を加え、宛先住所のシェイプにセットする

シート画面

Step 8　住所1に改行と住所2を加え、宛先住所のシェイプにセットする