วีดีโอ

コメントありがとうございます！ 取引先別で、品目別で作成したい場合は、取引先リストと品目リストを作成することでできます。 VBAコードは次のようになります。 Sub TEST1() '取引先リスト取得 Sheets("DB").Range("A1").CurrentRegion.Columns(1).Copy Sheets("DB").Range("F1") Sheets("DB").Range("F1").CurrentRegion.RemoveDuplicates 1, xlYes Dim List1, List2 With Sheets("DB").Range("F1").CurrentRegion.Offset(1, 0) List1 = .Resize(.Rows.Count - 1) End With Sheets("DB").Range("F1").CurrentRegion.ClearContents '品目リスト取得 Sheets("DB").Range("A1").CurrentRegion.Columns(2).Copy Sheets("DB").Range("F1") Sheets("DB").Range("F1").CurrentRegion.RemoveDuplicates 1, xlYes With Sheets("DB").Range("F1").CurrentRegion.Offset(1, 0) List2 = .Resize(.Rows.Count - 1) End With Sheets("DB").Range("F1").CurrentRegion.ClearContents For i = 1 To UBound(List1, 1) For j = 1 To UBound(List2, 1) '請求書クリア Sheets("請求書").Range("A2,A10:E12").ClearContents '取引先ごとで品目ごとに抽出 Sheets("DB").Range("A1").AutoFilter 1, List1(i, 1) '取引先でフィルタ Sheets("DB").Range("A1").AutoFilter 2, List2(j, 1) '品目でフィルタ Sheets("DB").Range("A1").CurrentRegion.Copy Sheets("DB").Range("F1") Sheets("DB").Range("A1").AutoFilter Dim A, B, C, E '抽出データがある場合 If WorksheetFunction.Subtotal(103, Range("F1").EntireColumn) > 1 Then '取引先を転記 Sheets("請求書").Range("A2") = Sheets("DB").Range("F2") '品目以下を転記 With Sheets("DB").Range("F1").CurrentRegion.Offset(1, 0) A = .Resize(.Rows.Count - 1).Columns(2) B = .Resize(.Rows.Count - 1).Columns(3) C = .Resize(.Rows.Count - 1).Columns(4) E = .Rows.Count - 1 End With Sheets("請求書").Range("A10").Resize(E) = A Sheets("請求書").Range("D10").Resize(E) = B Sheets("請求書").Range("E10").Resize(E) = C 'PDFで保存 With Sheets("請求書") .ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & .Range("A2") & "_" & .Range("A10") & ".pdf" End With End If '抽出データをクリア Sheets("DB").Range("F1").CurrentRegion.ClearContents Next Next End Sub 手順としては、次のようになります。 ・取引先リストを作成（AAA～CCC） ・品目リストを作成（デスクトップPC、ノートパソコン、マウス） ・取引先と品目リストでそれぞれループ ・請求書シートのデータをクリア ・取引先と品目ごとにデータを抽出 ・取引先と品目以下を請求書シートに転記 ・PDFを作成 ・抽出データをクリア 「取引先と品目リストを作成する」ところと、「取引先と品目ごとにデータを抽出する」ところがポイントとなります。 実行すると、 AAA_デスクトップPC.pdf AAA_ノートパソコン.pdf AAA_マウス.pdf BBB_デスクトップPC.pdf BBB_ノートパソコン.pdf BBB_マウス.pdf CCC_デスクトップPC.pdf CCC_ノートパソコン.pdf CCC_マウス.pdf というように、同フォルダに上記のファイルが作成されます。 参考になればと思います（^^）

一部VBAコードに訂正がありました。正しくは下記となります。 Subtotal関数の引数内で、シートを指定しておりませんでしたので、シートを指定しております。 Sub TEST1() '取引先リスト取得 Sheets("DB").Range("A1").CurrentRegion.Columns(1).Copy Sheets("DB").Range("F1") Sheets("DB").Range("F1").CurrentRegion.RemoveDuplicates 1, xlYes Dim List1, List2 With Sheets("DB").Range("F1").CurrentRegion.Offset(1, 0) List1 = .Resize(.Rows.Count - 1) End With Sheets("DB").Range("F1").CurrentRegion.ClearContents '品目リスト取得 Sheets("DB").Range("A1").CurrentRegion.Columns(2).Copy Sheets("DB").Range("F1") Sheets("DB").Range("F1").CurrentRegion.RemoveDuplicates 1, xlYes With Sheets("DB").Range("F1").CurrentRegion.Offset(1, 0) List2 = .Resize(.Rows.Count - 1) End With Sheets("DB").Range("F1").CurrentRegion.ClearContents For i = 1 To UBound(List1, 1) For j = 1 To UBound(List2, 1) '請求書クリア Sheets("請求書").Range("A2,A10:E12").ClearContents '取引先ごとで品目ごとに抽出 Sheets("DB").Range("A1").AutoFilter 1, List1(i, 1) '取引先でフィルタ Sheets("DB").Range("A1").AutoFilter 2, List2(j, 1) '品目でフィルタ Sheets("DB").Range("A1").CurrentRegion.Copy Sheets("DB").Range("F1") Sheets("DB").Range("A1").AutoFilter Dim A, B, C, E '抽出データがある場合 If WorksheetFunction.Subtotal(103, Sheets("DB").Range("F1").EntireColumn) > 1 Then '取引先を転記 Sheets("請求書").Range("A2") = Sheets("DB").Range("F2") '品目以下を転記 With Sheets("DB").Range("F1").CurrentRegion.Offset(1, 0) A = .Resize(.Rows.Count - 1).Columns(2) B = .Resize(.Rows.Count - 1).Columns(3) C = .Resize(.Rows.Count - 1).Columns(4) E = .Rows.Count - 1 End With Sheets("請求書").Range("A10").Resize(E) = A Sheets("請求書").Range("D10").Resize(E) = B Sheets("請求書").Range("E10").Resize(E) = C 'PDFで保存 With Sheets("請求書") .ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & .Range("A2") & "_" & .Range("A10") & ".pdf" End With End If '抽出データをクリア Sheets("DB").Range("F1").CurrentRegion.ClearContents Next Next End Sub

コメントありがとうございます！ 取得データがnullの場合には「0」ではなく、「空欄」にしたい場合は、次のようにIF文を使うといいかと思います。 =IF([TEST.xlsx]Sheet1!A1="","",[TEST.xlsx]Sheet1!A1) 空欄の場合は空欄を入力して、それ以外の場合は値を取得するという感じです。 参考になればと思います（^^）

コメント失礼いたします🙇‍♀️ このif関数は、VBAのどこに入力すればいいのでしょうか？ 初歩的なところで申し訳ないです。。

コメントありがとうございます！ 連想配列のDictionaryが取得できる値は、アイテムの1つのみとなります。 今回は、Dictionaryを使って複数の項目を取得したかったので、配列と組み合わせて取得してみました。 Dictionaryへの登録方法は下記のようにしています。 ・Dictionaryのアイテムには連番を登録 ・アイテムの連番と配列の順番が一致するように複数の項目を配列に入力 Dictionaryを使って複数の項目を取得する方法は下記となります。 ・Dictionaryを検索してアイテムに登録した連番を取得 ・取得した連番を使って配列から複数の項目を取得 上記のような形でDictionaryと配列を組み合わせて複数の項目の設定と取得をしております。 参考になればと思います（^^）

すみません、質問が分かり辛かったですね。連想配列に積み立てるものに、何故複数項目を明示的に指定出来るユーザー定義型やクラスを使用しないでindexになる数値や、列挙体を別途指定しなければならない2次元配列を採用した意図は？と言うことをお聞きしたかったのです。

スロー再生しなよ

コメントありがとうございます！ 最初に「Dim A(3)」のように宣言した場合、あとのコードで「ReDim A(4)」のように配列の大きさを変更したい場合に、エラーとなってしまいます。 動画内では、配列の大きさを柔軟に変更できるようにするために、「Dim A」で宣言したあとに「ReDim A(3)」のようにコードを記載する方法にて、ご紹介させていただきました。 配列の大きさを変更することがない場合には、最初から「Dim A(3)」のように設定することで、コードの行数を減らすことができますので好ましいかと思います。 参考になればと思います（^^）

@@IT-gx8sf 　どうもありがとうございます。知らなかったです！

@@IT-gx8sf どうもありがとうございます。知らなかったです！

@@IT-gx8sf どうもありがとうございます。知らなかったです！

コメントありがとうございます！ 解決する糸口としましては、 解決案① 取り込み先のブックが大きい場合に、取り込み先のブックを開いた状態で、VBAコードを実行すると、PCの性能によっては、動作が止まってしまうことがあります。 ですので、一旦、取り込み先のブックから必要なデータのみを、取り込み元のブックに転記して、取り込み先のブックを「閉じた後」に、操作すると動作するかもしれません。 解決案2 「シートの選択」と記載がありましたので、もしかすると、「Select」や「Active」のVBAコードを使用しているかと思いました。 「Select」や「Active」はVBA処理の中でも重い操作になりなります。 ですので、シート操作を「Sheets().」のように指定して、シートの選択を避けるVBAコードに変更することで、VBAコードが止まってしまうのを避けることができるかもしれません。 参考になればと思います（^^）

コメントありがとうございます！ もしかするとシートの指定をすると正しく動作するかもしれません。 例えば、「Cells(1,1)」とだけ指定した場合でも動作しますが、実際は「ActiveSheet.Cells(1,1)」となっています。なので、この場合は、実行するシートによって動作が異なってきます。 「Sheets("Sheet1").Cells(1,1)」や「Sheets("Sheet2").Cells(1,1)」のようにシートを指定すると実行するシートによらず同じような動作になるかと思います。 参考になればと思います（^^）

コメントありがとうございます！ 「.Resize」の部分の入力を確認するとうまくいくかもしれません。 「Resize」は省略して入力するので少し特殊です。 行や列を拡張しないのであれば入力を省略することができます。 例えば、「.Resize(3, 0)」であれば「.Resize(3)」と同じ、 「.Resize(0, 3)」であれば「.Resize( , 3)」と同じとなります。 .Resizeのカッコ内はカンマ「,」になります。 また、入力されましたVBAコードを記載いたただきますと、もしかすると原因を特定できるかもしれません。 参考になればと思います（^^）

コメントありがとうございます！ もしかすると、実行するシートが「アンケートフォーム」のシート以外で実行しているかもしれません。 「アンケートフォーム」のシートをアクティブにした状態で実行するとうまくいくかもしれません。 「アンケートフォーム」のシートにボタンを設置して、そのボタンからマクロを実行すると「アンケートフォーム」のシートをアクティブシートにした状態で実行できますので、思ったとおりのマクロが実行できるかと思います。 参考になればと思います。 また、不明な点等ございましたら、ご連絡いただけたらと思います！

@@IT-gx8sf ご回答ありがとうございます！ 試してみます！

@@IT-gx8sf 横から失礼します。アンケートフォームにボタンを設置して実行してみましたが、やはり元のシートに転記されます。 アンケートフォームのシートをアクティブシートにするにはどのようにしたらいいでしょうか？

コメントありがとうございます！ FileSystemObjectを使えば、NASの共有フォルダでも実行可能です。