Excelマクロの練習⑬

datacare1
今回の問題も、個人情報を使っています。
(使用するデータは「疑似個人情報生成」サイトで作成しています)
前回の練習問題とほぼ同じです。
今回は、男性だけでなく女性の人数も算出しています。
練習用のファイルはこちらからダウンロードできます。模範解答もモジュールにあります。


名簿は1000人分あります。
男性 女性 のそれぞれの血液型の人数をカウントします。
結果は以下のようになります。

模範解答は以下のとおりです。

処理のプロセスは前回と同じです。
前回のコードに少し手を加えると完成です。
筆者が要した時間は約30秒程度です。
前回のコードに手を加えたのは以下の赤線の部分です。

今回は 「男性の一覧を作成」 → 「女性の一覧を作成」 とするため
For k = 0 To 1 を追加しました。
kがゼロの時 男性 kが1の時 女性
となります。
このような一覧を作成する時には、まず男性の一覧を作成します。
その後、繰り返し処理を追加して女性の一覧も作成するようにすると簡単にコードが完成します。
今回はここまです。
ABOUT ME