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

Step 7 名前と敬称を宛先面の宛先名前のシェイプにセットする

印刷対象の行の名前と敬称をつなげ、宛先シートの名前欄に代入します。

Homeへ > Excelでアプリケーションソフト > 年賀状印刷ソフト > Step7 名前と敬称をシェイプにセット


スポンサーリンク



シート画面

宛先印刷シート
住所+敬称が宛先の名前にセットされています。
宛先面のシート

スポンサーリンク



下記のコードを追加してください。

'印刷実行
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でアプリケーションソフト > 年賀状印刷ソフト > Step7 名前と敬称をシェイプにセット

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


Copyright (c) Excel-Excel ! All rights reserved