【Excel講座】Excelのみで差し込み印刷「２つ以上の帳票様式に出し分ける」

#エクセル #Excel #差し込み印刷 ＜動画の概略＞以前にご紹介した「エクセルだけで行う差し込み印刷」を改良して、2つ以上の帳票様式に出し分けられるようにしました。例えば、納品書・請求書・領収書の３点セットを取引先に渡したい場合などに便利です。 この差し込み印刷ではVLOOKUP関数やプログラム（VBA）を使用していますが、プログラム経験のない人でも大丈夫です。なぜなら、動画の概要欄からプログラムをコピーし解説を聞きながら、あなたの帳票様式に合わせて書きかえるだけだからです。誰でもできますよ！解説もわかりやすいですよ！ぜひ、トライしてみてください。 ＜チャンネル登録について＞ 登録をするといつでもすぐに観ることができます。 １．↓をクリックして是非登録をお願いいたします    / @excel.   ２．ベルマークを押下してベルが震えるマークになると毎回、通知が届くようになります ＜目次＞ 00:00　オープニング 01:11　差し込み印刷の仕組み 02:11　マクロ有効ブック保存 02:29　データシートの作成 04:29　VLOOKUP関数設定 07:04　プログラムツールの初期設定 07:30　プログラムのコピー 08:02　プログラム記述（プレビュー） 09:34　プログラム記述（印刷） 09:56　帳票様式の増やし方 10:31　実行ボタンの作成 ＜プログラム＞ Dim number As Integer '帳票様式の№変数 Dim ws1 As Worksheet 'データシート変数 Dim ws2 As Worksheet '帳票様式シート変数 Dim m 'プレビュー回数を数える変数 Sub プレビュー() Set ws1 = Sheets("＠１") 'データシートの開始～終了番号を繰り返し処理 For number = ws1.Range("※１").Value To Range("※２").Value '帳票様式を選択 If Range("※３").Value = "1" Then Set ws2 = Sheets("＠２") ElseIf Range("※３").Value = "2" Then Set ws2 = Sheets("＠３") Else MsgBox "シート選択が正しくありません" Exit Sub End If ws2.Range("※４").Value = number '帳票様式の№に代入 If ws2.Range("※５").Value = "1" Then '印刷区分1だけプレビューする ws2.PrintOut Preview:=True Application.Wait Now + TimeValue("00:00:01") m = m + 1 If m = Range("※６").Value Then jg = MsgBox("プレビューを続けますか？", vbYesNo, _ Title:="差し込み印刷") If jg = 7 Then GoTo l2 m = 0 End If End If Next number l2: m = 0 End Sub Sub 印刷() jg = MsgBox("印刷データの送信処理を開始します。" & Chr(13) & "よろしいですか？", vbYesNo, Title:="差し込み印刷") If jg = 7 Then Exit Sub Set ws1 = Sheets("＠１") 'データシートの開始～終了番号を繰り返し処理 For number = ws1.Range("※１").Value To Range("※２").Value '帳票様式を選択 If Range("※３").Value = "1" Then Set ws2 = Sheets("＠２") ElseIf Range("※３").Value = "2" Then Set ws2 = Sheets("＠３") Else MsgBox "シート選択が正しくありません" Exit Sub End If ws2.Range("※４").Value = number '帳票様式の№に代入 If ws2.Range("※５").Value = "1" Then '印刷区分1だけ印刷する ws2.PrintOut Application.Wait Now + TimeValue("00:00:03") End If Next number MsgBox "印刷データの送信処理が" & Chr(13) & "完了しました。", _ Title:="差し込み印刷" End Sub ＜過去動画＞ ★Excelだけで差し込み印刷    • 【エクセル講座】Excelだけで差し込み印刷：もうWordは使わない★超簡単VBAマ...   ★Excelだけで差し込み印刷：ＰＤＦ    • 【Excel講座】Excelだけで行う差し込み印刷のＰＤＦ化機能の追加！もうWord...   ★Excelのみで差し込み印刷：封筒宛名印刷    • 【エクセル】Excelのみで差し込み印刷「封筒宛名印刷」もうWordは使わない！   ★Excelだけで差し込み印刷：分割印刷    • 【Excel講座】Excelのみで差し込み印刷シリーズ：「分割版」の差し込み印刷を作...   ★Excelチェックボックスは関数とセル連動させれば超便利    • 【Excel講座】Excelチェックボックスは関数とセル連動させれば超便利！★超簡単...   ★シート名とセルを相互に連動（反映）させる４つの方法    • 【Excel講座】シート名とセルを相互に連動（反映）させる４つの方法：関数・VBA・マクロ   ★エクセルとＰＤＦを双方向にずれることなく変換する方法    • 【エクセル講座】エクセルとＰＤＦを双方向にずれることなく変換する方法（貼り付けられな...   ★正しい使い方がわかった「透かし背景」の使い方    • 【エクセル講座】正しい使い方がわかった「透かし背景」の使い方   ★ワークシートツールの作成（VBA）    • 【Excel講座】大量のワークシート間移動やシート名の変更が簡単にできる：ワークシー...   ★CSV・Excelファイルを一括で取り込んで結合（マージ）させる    • 【Excel講座】CSV・Excelファイルを一括で取り込んで結合（マージ）させる：...   ★パワーピボット×リレーションシップ：複数のデータを関連付けて集計・分析を行う    • 【Excel】パワーピボット × リレーションシップ：複数のデータを関連付けて集計・...   ★セル結合＆選択範囲内中央揃えショートカットキー    • 【Excel】セル結合＆選択範囲内中央揃えショートカットキーをわずか２分で追加設定す...   ★【Excel】仕入先のインボイス制度への登録状況をExcelでスパッと確認する！    • 【Excel講座】インボイス制度「適格請求書発行事業者」の登録者であるかどうかをEx...   ＜ハッシュタグ＞ #おすすめ #帳票様式選択 #ワード差し込み印刷 #VLOOKUP関数 #ExcelVBA #Excelマクロ #Excel仕事時短大学