Excelで表を使った顧客管理ソフトを作ってみよう
Step 14 シール印刷 準備
顧客一覧シートに「シール印刷」ボタンと「シール印刷」列を追加しています。
シール印刷は、「シール印刷」列が空白でない顧客（マークされている顧客）を先頭から検索します。
初めに、マークされている顧客があるかどうかをチェックし、なければメッセージを表示し中止します。
シール印刷は、「シール印刷」列が空白でない顧客（マークされている顧客）を先頭から検索します。
初めに、マークされている顧客があるかどうかをチェックし、なければメッセージを表示し中止します。
Homeへ > Excelでアプリケーションソフト２ > 顧客管理ソフトを作ってみよう
シートのVBAコード
下記のVBAコードを追加してください。
'シール印刷
Private Sub CommandButton6_Click()
Dim llast As Long
llast = Sheets("顧客一覧").Range("N65536").End(xlUp).Row
If llast = 4 Then
MsgBox "印刷したい顧客の「シール印刷」列に何か入力してください。"
Exit Sub
End If
End Sub
Private Sub CommandButton6_Click()
Dim llast As Long
llast = Sheets("顧客一覧").Range("N65536").End(xlUp).Row
If llast = 4 Then
MsgBox "印刷したい顧客の「シール印刷」列に何か入力してください。"
Exit Sub
End If
End Sub
顧客一覧画面
「封筒印刷」の右横に「シール印刷」ボタンを追加しています。
「シール印刷」列を追加しています。
Homeへ > Excelでアプリケーションソフト２ > 顧客管理ソフトを作ってみよう
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved