質問

終了

エクセルVBA（マクロ）について質問です。長文です。

　シート1の表データ（支店別/分類（酒の種類）/売上）をシート2に支店別・分類別に集計、という問題です。
4支店×18種類＝計72パターンになります。
　<https://excel-ubara.com/excelvba9/EXCELVBA615.html>の練習問題なので、当然回答はあるのですが、
そこの回答では、クロス集計を利用したもののみでした。
あとは「MATCH関数利用も可」とはありましたが。

　回答確認前に自力で考えたのは、オートフィルターして、subtotalする（各パターン計算ごとにオートフィルター解除し次の組み合わせ）、やり方でした。
かつ、オートフィルターする条件（支店名と分類）をシート2のセルから引っ張ってくる（＝Ａ支店の全分類を計算したら、Ｂ支店の全分類…のように、繰り返しでやる方法）やり方です。
　For s = 2 To 5 '支店、列（4支店）
　For b = 2 To 19 '分類、行（18種類）
（1, s） '各支店の項目　（ここを、オートフィルターの検索条件にしたい）
（b, 1） '各分類の項目　（ここを、オートフィルターの検索条件にしたい）
…でループ

支店A×ビールの売上（※1）：シート2のB2セルに出力したいのですが、

※1：ここの計算コードは以下のとおりです。

WorksheetFunction.Subtotal(9, Worksheets("シート1").Range("C:C"))　'シート1のＣ列に売上が並んでます。
この計算結果をシート2のB2セルに出力したいのですが、どう繋げるとエラーが発生しないのか不明で困っています。

また、このやり方（オートフィルター+subtotal）は、（行数が多い、コードが難解という意味での）
「美しくない」やり方なのでしょうか？

質問者：VBA独学中
質問日時：2019-02-15 16:57:13
0

この機能は、特定のユーザーとの接触を避け、トラブルを防止するためにご用意しております。ブロックされたユーザーは、今後あなたの質問に回答ができなくなり、またそのユーザーの質問に対して、あなたも回答を投稿できなくなるという、重大な機能です。一度設定すると簡単に解除することができませんので、以下の点にご注意ください。

あなたがブロック設定していることは相手にも伝わる可能性があります。
ブロック設定ができるユーザーは20人までです。

本当にこのユーザをブロックしますか？

通報完了しました。ご協力ありがとうございました。

ご連絡いただきました内容は、当サイトの禁止事項に基づいて、事務局にて確認後、適切な対応をとらせていただきます。場合によっては、検討・対応に多少お時間を頂戴する場合もございます。

なお、誠に恐れ入りますが、今回のご連絡に関する対応のご報告は、結果をもって代えさせていただきます。対応の有無や判断基準に関しましては悪用を避けるため、事務局宛にお問合せいただきましても、ご回答およびメールのご返信はいたしかねますので、予めご了承くださいませ。

質問

関連する質問・相談

Sooda!からのお知らせ