質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

3回答

523閲覧

VBAで条件に一致する集計をしたい!

taki_room

総合スコア1

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2020/06/30 15:34

今回会社で、以下の条件に一致する集計システムを作るように言われたのですが、VBAをさわるのは初めてで苦戦しています。

【条件】

・応募日(D列)より、月のユニーク応募数を集計する
・月ごとの掲載企業(A列)ごとの応募数を集計する
・月ごとの都道府県(C列)ごとの応募数を集計する
・月ごとの掲載企業(A列)ごとの求人数を集計する

【サンプル画像】
イメージ説明

自分でもコードを調べて少しずす書いているのですが、如何せんうまくいきません。
大変恐縮ですが、どなたか上記の集計システムを作るコードをご教授いただけますでしょうか。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

ttyp03

2020/06/30 23:54

> 如何せんうまくいきません うまくいかなかったコードを提示してください。 丸投げの質問は推奨されません。
guest

回答3

0

ベストアンサー

記載するVBAはCollectionとワークシート関数を使ったサンプルになります。
日付が全て6月でしたので7月、8月、9月などダミーで作成してください。
まず、シート名をdataと仮定しE列に集計用の応募月を追加するマクロを実行します(手作業でも構いません)。

次に、集計結果のシートを手作業で集計1として集計用シートを作成しておいてください(集計用マクロを実行するたびに手作業でシートの内容をクリアしてください)。

最後に、集計条件で応募数と求人数の区別がつかなかったため最後の集計条件は未作成です。
参考になるかはわかりませんが、よろしくお願いします。

VBA

1Sub 加工() 2 3Dim maxrow As Double 4 5'■集計用に応募月を付与します 6 7maxrow = Sheets("data").Range("A1").End(xlDown).Row 8 9With Sheets("data") 10 .Range("E1").Value = "応募月" 11End With 12 13With Sheets("data") 14 15 For i = 2 To maxrow 16 .Range("E" & i).Value = WorksheetFunction.Text(.Range("d" & i).Value, "yyyy/mm") 17 Next 18End With 19 20End Sub

VBA

1Sub ユニーク応募数の集計() 2 3 Dim c As New Collection 4 Dim maxrow As Double 5 Dim i As Double 6 7 On Error Resume Next 8 9 maxrow = Sheets("data").Range("A1").End(xlDown).Row 10 11 12 For i = 2 To maxrow 13 14 c.Add Sheets("data").Range("D" & i), Format(Sheets("data").Range("D" & i).Value, "yyyy/mm/dd") 15 Next i 16 17 18 On Error GoTo 0 19 20 21 22 For i = 1 To c.Count 23 Sheets("集計1").Range("A" & i) = c(i) 24 Sheets("集計1").Range("B" & i) = WorksheetFunction.CountIfs(Sheets("data").Range("D:D"), Sheets("集計1").Range("A" & i)) 25 26 Next i 27 28End Sub

VBA

1Sub 掲載企業名の集計() 2 3 Dim MyCompany As New Collection 4 Dim Mymonth As New Collection 5 Dim maxrow As Double 6 Dim i As Double 7 Dim j As Double 8 9 '■Collectionをつかって重複を省く集計行の一覧を作成 10 11 On Error Resume Next 12 13 maxrow = Sheets("data").Range("A1").End(xlDown).Row 14 15 For i = 2 To maxrow 16 17 MyCompany.Add Sheets("data").Range("A" & i), Sheets("data").Range("A" & i) '■掲載企業名 18 Mymonth.Add Sheets("data").Range("E" & i), Sheets("data").Range("E" & i) '■応募月(yyyy/mm) 19 Next 20 21 On Error GoTo 0 22 23 24 '■掲載企業名を展開する(集計用) 25 26 For i = 1 To MyCompany.Count 27 Sheets("集計1").Range("A" & i + 1).Value = MyCompany(i) 28 Next 29 30 '■集計月を展開する(集計用) 31 32 For i = 1 To Mymonth.Count 33 Sheets("集計1").Cells(1, i + 1).Value = Mymonth(i) 34 Next 35 36 '■ワークシート関数でクロス集計を行う 37 For i = 2 To MyCompany.Count + 1 38 39 For j = 2 To Mymonth.Count + 1 40 41 With Sheets("集計1") 42 .Cells(i, j) = WorksheetFunction.CountIfs(Sheets("data").Range("A:A"), .Cells(i, 1), Sheets("data").Range("E:E"), .Cells(1, j)) 43 44 End With 45 46 Next j 47 Next i 48 49 50 51End Sub

VBA

1Sub 都道府県の集計() 2 3 Dim Mypref As New Collection 4 Dim Mymonth As New Collection 5 Dim maxrow As Double 6 Dim i As Double 7 Dim j As Double 8 9 '■Collectionをつかって重複を省く集計行の一覧を作成 10 11 On Error Resume Next 12 13 maxrow = Sheets("data").Range("A1").End(xlDown).Row 14 15 For i = 2 To maxrow 16 17 Mypref.Add Sheets("data").Range("C" & i), Sheets("data").Range("C" & i) '■都道府県 18 Mymonth.Add Sheets("data").Range("E" & i), Sheets("data").Range("E" & i) '■応募月(yyyy/mm) 19 Next 20 21 On Error GoTo 0 22 23 24 '■都道府県名を展開する(集計用) 25 26 For i = 1 To Mypref.Count 27 Sheets("集計1").Range("A" & i + 1).Value = Mypref(i) 28 Next 29 30 '■集計月を展開する(集計用) 31 32 For i = 1 To Mymonth.Count 33 Sheets("集計1").Cells(1, i + 1).Value = Mymonth(i) 34 Next 35 36 '■ワークシート関数でクロス集計を行う 37 For i = 2 To Mypref.Count + 1 38 39 For j = 2 To Mymonth.Count + 1 40 41 With Sheets("集計1") 42 .Cells(i, j) = WorksheetFunction.CountIfs(Sheets("data").Range("C:C"), .Cells(i, 1), Sheets("data").Range("E:E"), .Cells(1, j)) 43 44 End With 45 46 Next j 47 Next i 48 49End Sub

投稿2020/07/03 01:06

編集2020/07/03 01:41
mako1972

総合スコア383

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

mako1972

2020/07/04 01:04

ご希望の集計は出来ましたでしょうか。 ワークシート関数で行っていますが 使わなくても可能だと思います。
guest

0

色々な方のコメントを見ました。

少しお待ちください。

皆さんのおっしゃっていることはわかるのですが。初学者はしょうがないのです。

関数でやる場合はご存じですか?

そこからやりましょうか?

投稿2020/07/01 00:47

mako1972

総合スコア383

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

mako1972

2020/07/01 00:56

追記です。 マクロを使うまでもありませんという意見について。 処理を行う方が、マスタを完璧に把握されている場合は、重複を人間がはぶいてリストを作るため 確かに、あらかじめ項目がわかっている場合はCountifやSumifなどの関数で完結します。 これができない場合はVBAを使う必要があります。
mako1972

2020/07/01 01:10 編集

回答者は適切な回答をできずに、ふるまいだけを責めるという・・。 このサイトは初学者をディスりますね。ばかばかしいバカだけなので一時的なコメントするだけに戻りました。 一旦離脱しましたがバカばっかりなので一時的な回答です。 模範解答をしてまた脱退しますのでよろしくお願いします。 回答まえに消される可能ありなので一旦意見だけとします。
guest

0

マクロを使うまでもありません。

エクセルの機能で十分対応可能かと思われます。

まずは、エクセルでできることを把握し、
そのうえで「作業の自動化(=マクロ化)」を図りたい部分を明確にしましょう。

それでもマクロを作りたいと思うならば、
自分で地道に勉強しながら作ることになります。
その中で躓いたところを質問しましょう。

いきなり、「どんなコードになるの?」と聞くのは、
「マクロを作ってください。」と同意です。

投稿2020/06/30 22:54

mattuwan

総合スコア2136

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

ttyp03

2020/06/30 23:56

実質の回答になってないので低評価とさせていただきます。 またエクセルの機能で十分と提案するのなら、何の機能を使えばできるかなどの情報提供は必要かと。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問