ホールコンのcsvを使った集計練習⑦-2

datacare1
今回は前回の続きです。
前回は種別毎の集計まで行いました。
今回PS集計 8行目9行目の集計を行います。

今回使用するファイルはこちらからダウンロードできます。
前回のコードへの追加になります。
追加するコードは以下のとおりです。
全てのコードをここで表示させるととても長くなります。
全てを見たい場合は、ダウンロードできるファイルのModuleで確認して下さい。

For j = 8 To 9 となっているのは 8~9行目 という事です。
前回のコードとほぼ同じです。
大きく違うのは、貸料金の条件抽出
If tmp(152) = dblPrice Then
がありません。
パチンコの場合、4円も1円も含めた集計だからです。
今回はここまでです。
次回は、10行目 合計になります。
今回の要領がわかれば、合計は難しくはありません。
次回の投稿までに挑戦するのもありですね。
ABOUT ME