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

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

住所2が入力されていなければ、改行は加えません。
住所2がある時のみ。住所1+改行+住所2 になります。

Homeへ > Excelでアプリケーションソフト > 年賀状印刷ソフト > Step8 住所1に改行と住所2を加え


スポンサーリンク





シート画面

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

スポンサーリンク



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

'印刷実行
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




Homeへ > Excelでアプリケーションソフト > 年賀状印刷ソフト > Step8 住所1に改行と住所2を加え

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


Copyright (c) Excel-Excel ! All rights reserved