Excel問い合わせ

先日、会社OＢの方から電話がありました。
もう７０才は過ぎていると思いますが、
まだ仕事頑張っておられるのですね。

「マクロで特定の科目の値を抜き出す事はできないか？」
というものでした。

会社ＯＢの方の例を少し変更し、「果物購入リスト」を考えます。

果物購入リスト

果物の項目が「みかん」の合計金額を抜出したい場合、
いろんな方法があります。

①オートフィルタ

　セル【A1：C1】にオートフィルタを設定し、
　Ｂ列のフィルタで「みかん」を選択する。

フィルタで「みかん」選択

②計算式

 関数　SUMIFSを使用します。
SUMIFS（合計対象範囲、条件範囲、条件、条件範囲、条件・・）
条件は１つでも、複数でも可。
＝SUMIFS（C2:C12,B2:B12,”みかん”）
＝６００

③マクロ

　２行から１２行まで、果物＝”みかん”のとき、金額を集計する。
　変数の設定を考える。
　　変数　：　ＷＳ　→　ワークシート
　　　　　　　ＫＵＤＡＭＯＮＯ　→　くだもの
　　　　　　　Ｃｏｕｎｔ　→　集計金額
　　　　　　　Ｍｎｙ　→　くだもの金額

ＶＢＡソースコード

実行結果

実行結果　セルＦ２に表示

解決方法①～③でした。

今回は、簡単な例で紹介しました。
計算式も便利ですが、膨大なデータではファイルが重くなったり、
実行時間が長くなったりします。

ＶＢＡでは、ソースコードを記述する手間はありますが、
繰り返し作業や、大量な作業では大変役に立ちます。