Excelで年賀状印刷ソフトを作ってみよう
Step 8 住所1に改行と住所2を加え、宛先住所のシェイプにセットする
住所2が入力されていなければ、改行は加えません。住所2がある時のみ。住所1＋改行＋住所2 になります。
Homeへ > Excelでアプリケーションソフト２ > 年賀状印刷ソフト
シート画面
宛先印刷シート住所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
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でアプリケーションソフト２ > 年賀状印刷ソフト
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved