どうもじゅんぱ店長（@junpa33）です。
今回が最終回となります。
よろしくお付き合いください。
＜＜＜ 前の記事を読み返す ＜＜＜
ＦＡＸ注文書作成の時短効果と無料に仰天！知った人だけラッキーです。
ＦＡＸ注文書作成の時短効果と無料に仰天！知った人だけラッキーです。
ＦＡＸ注文書作成記事一覧
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
この記事では
まず最初にＦＡＸ電話帳より調べてきた電話番号をＦＡＸ注文表に表示させます。これで番号調べの手間も大幅削減できます。
発注書の表示を表示設定などを使って適切化します。横書き、縦書き、縦書きよこ表示等が混在していますので、セルごとに設定する必要があります。
最初にＷｅｂから書籍データを取るところから注文書完成までの一連の作業（使い方）を説明していきます。
コンテンツ
ＦＡＸ電話帳を作ります
それでは始めていきます。
電話帳本体を作ります
ＦＡＸ電話帳ですが、「ＦＡＸ注文書作成」や「ＦＡＸ注文書テンプレート」のエクセルＢＯＯＫの中のシートに作ってもいいのですが、メンテナンスなども考えて新たに「FAX電話帳．ｘｌｓｘ」を作ります。
この「FAX電話帳」ＢＯＯＫではＶＢＡコードは使いませんので、”マクロなし保存”でＯＫです。
シート名を変更して「電話番号」としてください。
他のシートは必要ありませんので削除（選択→右クリック）しておきましょう。
「電話番号」シートを開いて”見出し付け”として1行目Ａ列に「出版社名」・Ｂ列に「ＦＡＸ番号」・Ｃ列に「ＴＥＬ番号」と入力してください。
セル幅を最適化して完了です。
このＢＯＯＫも「書籍ＦＡＸ注文書」フォルダの中に保存してください。違うところに保存すると”ディレクトリ”が変わりますのでうまく作動しなくなります。
この様になりましたでしょうか？
電話番号についてのＶＢＡコードを作ります
電話番号を調べて注文書に表示するＶＢＡコードを作っていきます。
コード本体は以下のようになります。 コードはコード②の中に入れ込みます。入れる位置に注意してください。
「ＦＡＸ注文テンプレート」ＢＯＯＫの「発注資料表」シートの「出版社名」項目と、「ＦＡＸ電話帳」ＢＯＯＫの「電話番号」シートの「出版社名」項目を比較して同じデータの電話番号部分を取り出します。
ここで使っているコードの「Ｍａｔｃｈ」は、データ比較については１００％マッチしなければ電話番号部分を拾ってきません。
ここで注意しなければならない部分があります。
元のデータを他からコピーして持ってきている場合は、知らぬ間にコピーしたデータの前後に空白（” ”）がついている場合があります。つまり「新春社」と「新春社 」は違うデータだと判断してしまいます。
そこで「Ｔｒｉｍ」を使って「発注資料表」シートの「出版社名」の余分な空白は削除していますが、「ＦＡＸ電話帳」の「出版社名」を追加する場合は特に余分な「空白」が入らないように注意してください。
コード⑧
SUVa = Trim(SUV)
ChDir ThisWorkbook.Path
Workbooks.Open Filename:="FAX電話帳.xlsx"
Worksheets("電話番号").Select
On Error Resume Next
DR = WorksheetFunction.Match(SUVa, Worksheets("電話番号").Columns("A"), 0)
On Error GoTo 0
If DR <> 0 Then
tela = Range("B" & DR)
telb = Range("C" & DR)
Workbooks("FAX注文書テンプレート.xlsm").Activate
Worksheets(Sn).Select
Range("B12") = "FAX " & tela
Range("A12") = "TEL " & telb
End If
コード⑨
このコードはコード⑤の直前に入れます。 フォーカスを切り替えるコードです。
Workbooks("FAX注文書テンプレート.xlsm").Activate
Worksheets(Sn).Select
コード⑦
今回使用する変数を宣言します。 コード①の宣言部分の一番下に入れます。
Dim DR As Variant, SUVa As String, tela As Variant, telb As Variant
コード⑩
変数を初期値にリセットします。
DR = 0
コード⑪
ＦＡＸ電話帳を閉じます。
Workbooks("FAX電話帳.xlsx").Close False
細かいコードも含めた配置位置はこのようになります。
これでＦＡＸ電話番号の注文書への表示のスイッチは「設定とスタート」シートの「発注書作成ボタン」の中に埋め込まれました。
テンプレートの書式設定を調整する
注文書内容が適切に表示されるように各セルの書式設定を行います。
①の部分は「縦書き」ですが、セルの書式設定の配置タブで方向項目の「文字列方向－９０°」で指定します。
②の部分は「縦書き」で、同じ項目で、縦の「文字列」を指定します。
各記入欄に入る文字のサイズは、使われる方によって文字数が変わりますので、自分好みで調整してください。
印刷時の印刷範囲の設定を行います。
ＦＡＸ注文書の外枠罫線で囲まれた部分（Ａ１セルからＡＥ１５セルまで）のみを印刷するようにします。
最初から使い方の説明を
「書籍ＦＡＸ注文書」フォルダにある「ＦＡＸ注文書作成．ｘｌｓｍ」を起動します。
注文する書籍の情報をＷｅｂから拾らったテキストデータをコピーする。
ＳＴＥＰ１
セルＡ１を掴んで、右クリックから「形式を選択して貼り付け」⇒「テキスト」を選択します。
①のようになります。
②のデータ項目位置を指定するためにセル位置を記入します。この例はＮＯＣＳを使った場合の例です。
①・②完了後ボタンをクリックします。
ＳＴＥＰ２
すると、次に「注文冊数」と「客注名」を入力する小窓が出てきます。
必要な情報を入力してください。
ＳＴＥＰ３
「抽出データ」シートに読み取ったデータが記入されています。
ここまでの作業を１サイクルとして、発注する書籍分繰り返してください。ここで「発行所＝講談社」「864円（本体800円＋税） 」の項目で余分な文字を削除しておいてください。
「講談社」、「800」のほうがデータの使い道があります。
ＳＴＥＰ４
「操作ボタン」で「注文データまとめ」ボタンをクリックします。
ＳＴＥＰ５
「出版社リスト」に出版社名と「講談社」シートが作られています。
ＳＴＥＰ６
「操作ボタン」で「発注資料作成」ボタンをクリックします。
ＳＴＥＰ７
「ＦＡＸ注文書テンプレート」ＢＯＯＫが開き、「発注資料表」シートに情報が転記されます。
このシートで、必要に応じてあと残りの項目に情報を入力してください。
ＳＴＥＰ８
「設定とスタート」シートを開きます。
「発信元情報」に情報を記入してください。そのあと「発信元情報記入」ボタンを押すと「テンプレート」シートに情報が表示されています。
「番線印」「番線印情報」を記入します。
「番線印」は実寸大でｊｐｇ画像データでＯＫです。
ＳＴＥＰ９
「発注書作成」ボタンを押して「ＦＡＸ注文書」が完成します。
ＳＴＥＰ１０
このような感じになります。
印刷はページごとに内容をチェックしながら手動で行ってください。
ＳＴＥＰ１１
ＦＡＸ注文書の保存については、「ＦＡＸ注文テンプレート」ＢＯＯＫをリネームして（例えば、注文書190619.xlsxとか）で保存してください。
データの保存だけでＶＢＡマクロが必要ない場合は「.ｘｌｓｘ」でいいと思います。
保存ホルダはどこのホルダでも適宜でＯＫです。逆にこのソフトと同じフォルダで保存しますとファイル数が増えて使いづらくなるかもです。
ＳＴＥＰ１２
作業後のデータクリアは各ＢＯＯＫの「クリアボタン」を押してください。
このソフトはいずれのシートのセルにもエクセル関数は一切使っておりませんので、セル値を消してしまったため、計算値が無くなったとかデータが消えて復活できないとかはありません。
基本（元々）のシートあるいはＶＢＡコードを消去しない限り、システムが壊れることはありません。
ＦＡＸ注文書作成のまとめ
これでＦＡＸ注文書作成は終了です。
ここまでお読みいただきありがとうございました。
このシステムを利用すれば、今まで大変時間がかかっていた注文書発行作業が大幅に時短できるものと思います。
１出版社注文３種で２０出版社作ろうとすると作成だけで ７分/１通×２０社で１４０分
約２時間以上の事務時間が恐らく３０分ぐらいで済んでしまうのではないかと思います。
ご自分でコードをカスタムすれば独自の情報を注文表に表示させることもできます。
今回も完成した「ＦＡＸ注文書作成ソフト」を無料配布で、ダウンロードできるようにしています。
ダウンロード品はＶＢＡマクロの保護をしていますので、改変することはできません。
皆さんの仕事の一助になればと思います。
ダウンロードはこちら↓です。
こちら↓でダウンロードすることが出来ます。
ただし、こちらの方はＶＢＡコードを保護していますので、使う側でのＶＢＡコードのカスタマイズを行うことはできません。
ここの記事説明とダウンロードしたソフトで、早々に利用していただくことが出来ます。
“ＦＡＸ注文書作成エクセル” をダウンロード faxtyumon.zip – 2287 回のダウンロード – 100 KB
このソフトはご自分で業務でお使いいただくのはフリーですが、
転載や転売については許可しておりませんので、ご使用にならないよう固くお断りいたします。
最初から記事を読み返す。＜＜＜
手書き発注書の作成を簡単に！ネットの書籍データを転記すれば大幅時短
手書き発注書の作成を簡単に！ネットの書籍データを転記すれば大幅時短
エクセルVBAの独習を始めるためのポイントについて
エクセルVBAを独学で習得するためのポイントは？良書との出会いは重要 基礎知識習得のためのオンライン学習講座の参考記事 
エクセルVBA初級者がUdemyで動画学習する講座おすすめ５選と無料講座の上手な使い方。 今回の記事はここまでです。
最後までご覧いただき有難うございました。
電子書籍版「改訂新版 てっとり早く確実にマスターできるＥｘｃｅｌ ＶＢＡの教科書」をamazonで見てみる
（著者）大村あつし（出版社）技術評論社
（税込価格）2,508円（本体2,280円＋税）
30冊を超えるExcelのマクロやVBAの解説書を執筆してきた著者による考え抜かれた本書の内容と構成。
独創的な解説手法で必ずExcel VBAが理解できます！
初級からの参考書ですが、より実践的切り口での解説をしています。
QRコードから操作の流れを動画（無音です）で確認することもできるようになりました。
文章解説と動画との関係性は、主は文章での解説、サポートが動画になります。
エクセルVBAを使って業務効率を上げて行くのに、始めのうちに知っておきたい内容を纏めています。
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
