Excelで表を使った顧客管理ソフトを作ってみよう
Step 17 はがき連続印刷
年賀状印刷に備え、はがきの連続印刷を作成してみます。
シール印刷と同様に、連続印刷列にマークがある顧客を印刷するようにします。
「はがき連続印刷」ボタンをクリックすると、マークされているかチェックします。
マークがないとメッセージを表示します。
シール印刷と同様に、連続印刷列にマークがある顧客を印刷するようにします。
「はがき連続印刷」ボタンをクリックすると、マークされているかチェックします。
マークがないとメッセージを表示します。
Homeへ > Excelでアプリケーションソフト２ > 顧客管理ソフトを作ってみよう
シートのVBAコード
下記のVBAコードを追加してください。
'はがき連続印刷
Private Sub CommandButton7_Click()
Dim llast As Long
llast = Sheets("顧客一覧").Range("o4").End(xlDown).Row
If llast >= 65536 Then
MsgBox "印刷したい顧客の「はがき連続印刷」列に何かマークを入力してください。"
Exit Sub
End If
End Sub
Private Sub CommandButton7_Click()
Dim llast As Long
llast = Sheets("顧客一覧").Range("o4").End(xlDown).Row
If llast >= 65536 Then
MsgBox "印刷したい顧客の「はがき連続印刷」列に何かマークを入力してください。"
Exit Sub
End If
End Sub
顧客一覧画面
「はがき連続印刷」ボタンと列を追加しています。
Homeへ > Excelでアプリケーションソフト２ > 顧客管理ソフトを作ってみよう
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved