Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1028 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【76727】集計について ビギナー 15/3/5(木) 14:28

【76728】Re:集計について β 15/3/5(木) 14:53

【76740】Re:集計について ビギナー 15/3/6(金) 20:43

【76741】Re:集計について マナ 15/3/6(金) 22:58

【76742】Re:集計について ビギナー 15/3/7(土) 6:13

【76743】Re:集計について マナ 15/3/7(土) 9:35

【76747】Re:集計について マナ 15/3/7(土) 10:35

【76748】Re:集計について ビギナー 15/3/7(土) 21:16

【76744】Re:集計について β 15/3/7(土) 9:47

【76745】Re:集計について β 15/3/7(土) 9:59

【76746】Re:集計について β 15/3/7(土) 10:09

【76749】Re:集計について ビギナー 15/3/7(土) 21:19

【76755】Re:集計について ビギナー 15/3/9(月) 21:22

【76756】Re:集計について β 15/3/9(月) 22:11

【76757】Re:集計について ビギナー 15/3/9(月) 22:28

【76758】Re:集計について β 15/3/9(月) 22:53

【76759】Re:集計について β 15/3/10(火) 8:52

【76770】Re:集計について ビギナー 15/3/10(火) 22:14

【76729】Re:集計について β 15/3/5(木) 16:52

【76730】Re:集計について ビギナー 15/3/5(木) 19:11

【76760】Re:集計について CatHand 15/3/10(火) 10:06


	【76727】集計について

ビギナー - 15/3/5(木) 14:28 -


	引用なし

	パスワード

集計に関する質問です。

シート１
A列に東京、神奈川、沖縄などの都道府県がランダム入っており（同じ都道府県のダブりもあります）、
B列にはそのA列に対応した数字が入っております。

シート２にシート１の各都道府県ごとの集計を行うマクロを作りたいと思っております。
A列には各都道府県を持ってきて（集計なのでこの際はダブりはなくなる形です）、
B列にはシート１の各都道府県ごとの合計数を集計していくようにしたいと考えております。

※説明が下手で申し訳ありません。

初歩的な質問で申し訳ございませんが、よろしくお願い致します。


	【76728】Re:集計について

β - 15/3/5(木) 14:53 -


	引用なし

	パスワード

▼ビギナーさん：

以下のような操作をして、それをマクロ記録してみたらいかがでしょう。
出来上がったもので、領域固定の部分を変数化する等の手を入れれば
立派なマクロになると思います。

・Sheet1を選択
・Ａ列を選択
・Ctrl/c
・Sheet2を選択
・A1を選択
・Ctrl/v
・Escキー
・データタブの重複の削除を実行
・B1に =SUMIF(Sheet1!A:A,A1,Sheet1!B:B) を入力
・これを下にフィルコピー


	【76729】Re:集計について

β - 15/3/5(木) 16:52 -


	引用なし

	パスワード

▼ビギナーさん：

・B1に =SUMIF(Sheet1!A:A,A1,Sheet1!B:B) を入力
・これを下にフィルコピー

この部分は

・B列を選択し、データタブの統合
・統合元にAheet1のA:B列を選択して指定
・左端にチェックし実行

こうしても、結果が得られますね。


	【76730】Re:集計について

ビギナー - 15/3/5(木) 19:11 -


	引用なし

	パスワード

ビギナーです。
ご返信有り難うございました。

このような方法があるのですね！

こういう場合は、for ~ nextやifで条件を作るなどしてひたすらSheet1と２を行き来する方法しか、
思いつかず（それでもできなかったのですが・・・）でした。

とても勉強になりました。
明日実際に作ってみようと思います！


	【76740】Re:集計について

ビギナー - 15/3/6(金) 20:43 -


	引用なし

	パスワード

すみません。

追加で質問があります。
条件に変化があり、
C列に「大人」「子供」「その他」という項目が追加されたとします。
そのためA列はひとつの都道府県ごとにセルを３つ使い、B列にはC列の「大人」「子供」「その他」のそれぞれに対応する数値が入るようになります。

そして、Sheet2は子供の合計数（数はB列からもってきます）だけを集計したいとします。

その場合最後は下記の指示のsumifをsumifsにし、
条件の一つに「子供」も追加することで対応できると考えました。
=SUMIFS(Sheet1B列、Sheet2A列、Sheet2A1,Sheet1C列、Sheet1C列”子供”）としたのですが、
"子供"部分にデバックが発生しました。そのため、代わりにC2にしたらマクロは動いたのですが、
集計は正確にできておりませんでした。

どこかに間違いがあると思うのですが、
いかがでしょうか。

質問がばかりで申し訳ございませんが、よろしくお願い致します。

>・Sheet1を選択
>・Ａ列を選択
>・Ctrl/c
>・Sheet2を選択
>・A1を選択
>・Ctrl/v
>・Escキー
> ・データタブの重複の削除を実行
>・B1に =SUMIF(Sheet1!A:A,A1,Sheet1!B:B) を入力
>・これを下にフィルコピー


	【76741】Re:集計について

マナ - 15/3/6(金) 22:58 -


	引用なし

	パスワード

> =SUMIFS(Sheet1B列、Sheet2A列、Sheet2A1,Sheet1C列、Sheet1C列”子供”）
>
>どこかに間違いがあると思うのですが、
>いかがでしょうか。

実際に動かしてみたコードを示していただけると解決が早いと思います。
（できれば他の部分も含めて）


	【76742】Re:集計について

ビギナー - 15/3/7(土) 6:13 -


	引用なし

	パスワード

ご連絡有り難うございます。
実際に動かしたマクロをはり付けます。
ただ、質問文に書かせて頂いたものと、実際の表は若干異なっています。
Sheet1のJ列に各都道府県名、D列に数値、C列に「大人」「子供」・・表記です。
また、１行目は項目名で数値が実際に入るのは２行目からです。

worksheets("Sheet1").select
Columns("J:J").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Columns("A:A").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$A$22717").RemoveDuplicates Columns:=1, Header:= _
        xlNo
    Sheets("Sheet2").Select
    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMIFS(Sheet1!C[2],Sheet2!C[-1],Sheet2!RC[-1],Sheet1!C[1],Sheet1!R[3]C[1])"
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B326")
    Range("B2:B326").Select
End Sub

上記のものでは、動きはしましたが、数値が正確ではなく、
sumifsの最後の部分　Sheet1!R[3]C[1]　→　Sheet1!”子供”　にしたら動かなくなりました。　

お手数をおかけ致しますが、
よろしくお願い致します。

▼マナさん：
>> =SUMIFS(Sheet1B列、Sheet2A列、Sheet2A1,Sheet1C列、Sheet1C列”子供”）
>>
>>どこかに間違いがあると思うのですが、
>>いかがでしょうか。
>
>実際に動かしてみたコードを示していただけると解決が早いと思います。
>（できれば他の部分も含めて）


	【76743】Re:集計について

マナ - 15/3/7(土) 9:35 -


	引用なし

	パスワード

まずは、マクロ記録の数式部分を修正してみてください。

＞"=SUMIFS(Sheet1!C[2],Sheet2!C[-1],Sheet2!RC[-1],Sheet1!C[1],Sheet1!R[3]C[1])"

を

"=SUMIFS(Sheet1!C11,Sheet1!C10,Sheet2!RC1,Sheet1!C12,""子供"")"

""子供""の部分は重要ポイントです。
ht tp://www.relief.jp/itnote/archives/017752.php


	【76744】Re:集計について

β - 15/3/7(土) 9:47 -


	引用なし

	パスワード

▼ビギナーさん：

おはようございます

まだ、よく読んでいませんが

RemoveDuplicate これは、実際のデータは１行目がタイトル行ですから
Header:=xlYes が正しいです。実際の処理に害はないですけど。

それと、

>Sheet1!R[3]C[1]　→　Sheet1!”子供”　にしたら動かなくなりました。　

Sheet1!R[3]C[1] これは　「セル」です。
B2に記入しますので、実際には Sheet1!C5 ですけど。
Sheet1!”子供”　こんなセルはないですよね？
シート上のSUMIFS で、ここをセルではなく "子供" という固定値で与える場合は、どんな数式になりますか？


	【76745】Re:集計について

β - 15/3/7(土) 9:59 -


	引用なし

	パスワード

▼ビギナーさん：

マナさんや私のコメントを参考にして完成させてください。
今から外出するので、参考として。
ビギナーさんが最終的に完成されたコードと照らし合わせてください。

Sub 数式の埋め込みタイプ()
　　Dim sh1 As Worksheet
　　Dim sh2 As Worksheet
　　
　　Set sh1 = Sheets("Sheet1")
　　Set sh2 = Sheets("Sheet2")
　　
　　sh2.Cells.Clear
　　sh1.Columns("J").Copy sh2.Range("A1")
　　sh2.Range("A1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
　　sh2.Range("A2", sh2.Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Formula = _
　　　　"=SUMIFS(Sheet1!D:D,Sheet1!J:J,Sheet2!A2,Sheet1!C:C,""子供"")"

End Sub


	【76746】Re:集計について

β - 15/3/7(土) 10:09 -


	引用なし

	パスワード

▼ビギナーさん：

参考にする場合、こちらのコードのほうが比較しやすいですね。

Sub 数式の埋め込みタイプ2()
　　
　　Sheets("Sheet2").Cells.Clear
　　Sheets("Sheet1").Columns("J").Copy Sheets("Sheet2").Range("A1")
　　Sheets("Sheet2").Range("A1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
　　Sheets("Sheet2").Range("A2", Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Formula = _
　　　　"=SUMIFS(Sheet1!D:D,Sheet1!J:J,Sheet2!A2,Sheet1!C:C,""子供"")"

End Sub


	【76747】Re:集計について

マナ - 15/3/7(土) 10:35 -


	引用なし

	パスワード

＞Sheet1のJ列に各都道府県名、D列に数値、C列に「大人」「子供」・・表記です。

いいかげんに読んでいました。
訂正です。

"=SUMIFS(Sheet1!C4,Sheet1!C10,Sheet2!RC1,Sheet1!C3,""子供"")"

ただし、私も、最終的には、βさんが書かれたような
R1C1形式ではなく、A1形式を使用することが多いです。


	【76748】Re:集計について

ビギナー - 15/3/7(土) 21:16 -


	引用なし

	パスワード

マナ様

細かい点まで教えて下さり、有り難うございます。
現在、エクセルが使える状況ではないので、
試すことができないのですが、月曜日に試してみます。

色々と有り難うございました。

▼マナさん：
>＞Sheet1のJ列に各都道府県名、D列に数値、C列に「大人」「子供」・・表記です。
>
>いいかげんに読んでいました。
>訂正です。
>
>"=SUMIFS(Sheet1!C4,Sheet1!C10,Sheet2!RC1,Sheet1!C3,""子供"")"
>
>ただし、私も、最終的には、βさんが書かれたような
>R1C1形式ではなく、A1形式を使用することが多いです。


	【76749】Re:集計について

ビギナー - 15/3/7(土) 21:19 -


	引用なし

	パスワード

β 様

ご連絡有り難うございます。
細かい点まで教えて下さり有り難うございます。

月曜日までエクセルが使用できないのですが、
月曜日になったら実際に動かしてみたいと思います。

お手数をおかけ致しました。
有り難うございます。

▼β さん：
>▼ビギナーさん：
>
>参考にする場合、こちらのコードのほうが比較しやすいですね。
>
>Sub 数式の埋め込みタイプ2()
>　　
>　　Sheets("Sheet2").Cells.Clear
>　　Sheets("Sheet1").Columns("J").Copy Sheets("Sheet2").Range("A1")
>　　Sheets("Sheet2").Range("A1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
>　　Sheets("Sheet2").Range("A2", Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Formula = _
>　　　　"=SUMIFS(Sheet1!D:D,Sheet1!J:J,Sheet2!A2,Sheet1!C:C,""子供"")"
>
>End Sub


	【76755】Re:集計について

ビギナー - 15/3/9(月) 21:22 -


	引用なし

	パスワード

β 様

先日参考としてコードをご提示して下さり、
有り難うございました。

そのマクロを修正した場合で更に質問がございます。
質問、質問ばかりで申し訳ありません。

新たに実行したい点は下記です。
・Sheet1のD列の数値を集計しておりましたが、E列、F列も同様に集計し(e,f列にもそれぞれ数量が入っている)、Sheet２に入れていきたいと考えました。
そのため、for next で繰り返し処理をしようと考え、下記のようなコードを追加したのですが、
動かない状況です。

dim D as integer
QP = A2 　' sheet2 の集計結果を記載する列です。
For D = 4 To 8 '　集計をするsheet1の列を表しています。４列目から８列目を集計予定。
　　
　　Sheets("Sheet1").Columns("J").Copy Sheets("Sheet2").Range("A1")
　　Sheets("Sheet2").Range("A1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
　　Sheets("Sheet2").Range("QP", Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Formula = _
　　　　"=SUMIFS(Sheet1!D:D,Sheet1!J:J,Sheet2!QP,Sheet1!C:C,""販売"")"
　　　　
　　Range("QP") = Range("QP").Offset(0, 1)
　　
　　Next D

※同じコード内での質問なので、
追加で質問させて頂きましたが、新規として投稿するべきでしたらすぐに修正致します。

何度も質問申し訳ございませんが、よろしくお願い致します。

>▼β さん：
>>▼ビギナーさん：
>>
>>参考にする場合、こちらのコードのほうが比較しやすいですね。
>>
>>Sub 数式の埋め込みタイプ2()
>>　　
>>　　Sheets("Sheet2").Cells.Clear
>>　　Sheets("Sheet1").Columns("J").Copy Sheets("Sheet2").Range("A1")
>>　　Sheets("Sheet2").Range("A1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
>>　　Sheets("Sheet2").Range("A2", Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Formula = _
>>　　　　"=SUMIFS(Sheet1!D:D,Sheet1!J:J,Sheet2!A2,Sheet1!C:C,""子供"")"
>>
>>End Sub


	【76756】Re:集計について

β - 15/3/9(月) 22:11 -


	引用なし

	パスワード

▼ビギナーさん：

こんばんは

新しく"販売"を抜き出して集計するＤ列～Ｈ列の集計結果は
それぞれ、Sheet2のどこにセットするのですか？
あるいは、４列の集計をさらに集約してSheet2の、どこかの列に１本でセットするのですか？


	【76757】Re:集計について

ビギナー - 15/3/9(月) 22:28 -


	引用なし

	パスワード

β 様

別の列から抜き出した数量同士は集約しません。
sheet1のD列から抜き出した数量は、sheet2のB列に、E列から抜き出したものはC列に、という形でずらして入れていきたいと考えております。

▼β さん：
>▼ビギナーさん：
>
>こんばんは
>
>新しく"販売"を抜き出して集計するＤ列～Ｈ列の集計結果は
>それぞれ、Sheet2のどこにセットするのですか？
>あるいは、４列の集計をさらに集約してSheet2の、どこかの列に１本でセットするのですか？


	【76758】Re:集計について

β - 15/3/9(月) 22:53 -


	引用なし

	パスワード

▼ビギナーさん：

了解です。
今日は、年寄りとしては、おねむなので、回答は明日まで待ってください。


	【76759】Re:集計について

β - 15/3/10(火) 8:52 -


	引用なし

	パスワード

▼ビギナーさん：

以下で試してみてください

Sub 数式の埋め込みタイプ3()
　　
　　Sheets("Sheet2").Cells.Clear
　　Sheets("Sheet1").Columns("J").Copy Sheets("Sheet2").Range("A1")
　　Sheets("Sheet2").Range("A1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
　　
　　
　　Sheets("Sheet2").Range("A2", Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Resize(, 4).Formula = _
　　　　"=SUMIFS(Sheet1!D:D,Sheet1!$J:$J,Sheet2!$A2,Sheet1!$C:$C,""販売"")"

End Sub


	【76760】Re:集計について

CatHand - 15/3/10(火) 10:06 -


	引用なし

	パスワード

▼ビギナーさん：

えーっと、この要件だとエクセルの標準機能のピボットテーブルの
方が柔軟に対応できそうですがダメなんですかねぇ？

＊以下個人的なおもいです。
エクセルには便利で強力な標準機能が色々と実装されています。
それらで補えないところがVBAの出番だと思います。


	【76770】Re:集計について

ビギナー - 15/3/10(火) 22:14 -


	引用なし

	パスワード

β さん

ご返信有り難うございます。
無事マクロは実行できました。

ただ、以前自分が作ったfor nextを使ったものが動かなかった原因や、
β さんが作って下さったコードも理解できていないところもあり、
そこらへんをハッキリさせていかないと今後似たようなタイプのマクロを作る際に、
活かせないので、そこは勉強していこうと思います。

色々と有り難うございました。
とても勉強になりました。

>▼ビギナーさん：
>
>以下で試してみてください
>
>Sub 数式の埋め込みタイプ3()
>　　
>　　Sheets("Sheet2").Cells.Clear
>　　Sheets("Sheet1").Columns("J").Copy Sheets("Sheet2").Range("A1")
>　　Sheets("Sheet2").Range("A1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
>　　
>　　
>　　Sheets("Sheet2").Range("A2", Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Resize(, 4).Formula = _
>　　　　"=SUMIFS(Sheet1!D:D,Sheet1!$J:$J,Sheet2!$A2,Sheet1!$C:$C,""販売"")"
>
>End Sub


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1028 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free