Menuへ

Excelで表を使った顧客管理ソフトを作ってみよう

Step 17　はがき連続印刷 年賀状印刷に備え、はがきの連続印刷を作成してみます。 シール印刷と同様に、連続印刷列にマークがある顧客を印刷するようにします。 「はがき連続印刷」ボタンをクリックすると、マークされているかチェックします。 マークがないとメッセージを表示します。

シートコード

下記のコードを追加してください。 'はがき連続印刷 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

顧客一覧画面

「はがき連続印刷」ボタンと列を追加しています。

Topへ

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