Excelで年賀状印刷ソフトを作ってみよう
Step 7 名前と敬称を宛先面の宛先名前のシェイプにセットする
印刷対象の行の名前と敬称をつなげ、宛先シートの名前欄に代入します。Homeへ > Excelでアプリケーションソフト２ > 年賀状印刷ソフト
シート画面
宛先印刷シート住所＋敬称が宛先の名前にセットされています。
下記のVBAコードを追加してください。
'印刷実行
Private Sub MyPrintDataSet(lrow As Long)
Dim dat As String
'名前 & 敬称
dat = ActiveSheet.Cells(lrow, 1) & " " & ActiveSheet.Cells(lrow, 2)
Sheets("宛先面").Shapes("宛先名前").TextFrame.Characters.Text = dat
End Sub
Private Sub MyPrintDataSet(lrow As Long)
Dim dat As String
'名前 & 敬称
dat = ActiveSheet.Cells(lrow, 1) & " " & ActiveSheet.Cells(lrow, 2)
Sheets("宛先面").Shapes("宛先名前").TextFrame.Characters.Text = dat
End Sub
Homeへ > Excelでアプリケーションソフト２ > 年賀状印刷ソフト
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved