ｴｸｾﾙでﾃﾞｰﾀを別ｼｰﾄへ複数条件で反映させたい。

Question

こんばんは。どうすることも出来ず困っています。ﾏｸﾛが出来ないのでｴｸｾﾙで試してみましたが無理でした。説明が分かりずらいかもしれませんがご教授お願いします。

ﾃﾞｰﾀ貼付Sheetの情報
・ﾃﾞｰﾀ貼付Sheetにはｼｽﾃﾑからﾀﾞｳﾝﾛｰﾄﾞしたｴｸｾﾙのﾃﾞｰﾀを貼り付ける
・ﾃﾞｰﾀ貼付Sheetにはｼｽﾃﾑからﾀﾞｳﾝﾛｰﾄﾞしたｴｸｾﾙのﾃﾞｰﾀを貼り付ける
・店ｺｰﾄﾞ(支店）は購入したものが無ければ店ｺｰﾄﾞ(支店）表示されない
・分類も購入が無ければ分類名の欄は表示されない

まとめSheetの情報
・まとめSheetは全ての店ｺｰﾄﾞと分類が常に表示されている
・ﾃﾞｰﾀ貼付Sheetにある数値をまとめに反映させたい
・ﾃﾞｰﾀ貼付Sheetの分類（同じ色の分類の計）をまとめに反映したい
・支店が増える可能性あり

どうか皆さんのお知恵をお借りしたいです。

tom04 · Accepted Answer

こんばんは！

お示しのコードで黄色くなっているところを拝見すると
いままでのコードはエラー処理を一切していませんでした。

もしかして、「まとめ」シートのA列に「データ貼付」シートのA列データ（店コード）が存在しない！
または「まとめ」シートの分類群の中に「データ貼付」シートの分類名が存在しない！
というコトが考えられます。

今一度確認してみてください。

※　「まとめ」シートに「店コード」もしくは「分類」がない場合はVBAで追加は可能ですが、
コードが長くなるので、今回は割愛させてください。m(_ _)m

銀鱗 · Answer

＞・ﾃﾞｰﾀ貼付Sheetにはｼｽﾃﾑからﾀﾞｳﾝﾛｰﾄﾞしたｴｸｾﾙのﾃﾞｰﾀを貼り付ける
＞・ﾃﾞｰﾀ貼付Sheetにはｼｽﾃﾑからﾀﾞｳﾝﾛｰﾄﾞしたｴｸｾﾙのﾃﾞｰﾀを貼り付ける
…(´・ω・`)違いが分からない。

・・・本題・・・

で、代わりに作ってくれという事でしょうか。
関数の使い方が分からないので教えて欲しいという事でしょうか。

質問の仕方を見ると「代わりに作って♪」のように受け取れるのですが…。
それって「質問」ではありませんよね。

具体的に何が分からないのかを示しましょう。
「関数の○○の使い方が分かりません」
「この場合は、この関数を使えばいいのでしょうか」
「ここにこのような式を入れたのですがエラーになります。原因を教えてください」
のように具体的に質問するようにしましょう。
でないと、目の前にある疑問を先送りにするだけになってしまいます。
それって疑問の解決ではありませんよね。

・・・余談・・・

半角カナは見づらいなあ。

tom04 · Answer

こんにちは！

カテゴリはACCESSになっていますが、Excelで良いのですね。
要するに「データ貼付」シートのデータを「まとめ」シートの1行目に分けた分類群にまとめたい！というコトですよね？

VBAになりますが、一例です。
標準モジュールにしてください。
配置は↓の画像のようになっているという前提です。

Sub Sample1()
    Dim i As Long, j As Long, lastRow As Long
    Dim c As Range, r As Range, wS As Worksheet
    Set wS = Worksheets("データ貼付")
        With Worksheets("まとめ")
            lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
                Range(.Cells(2, "C"), .Cells(lastRow, "F")).ClearContents
                For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
                For j = 3 To Range("L1").Column
                    If wS.Cells(i, j) <> "" Then
                        Set c = .Range("A:A").Find(what:=wS.Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
                        Set r = .Rows(1).Find(what:=wS.Cells(1, j), LookIn:=xlValues, lookat:=xlPart)
                        With .Cells(c.Row, r.Column)
                            .Value = .Value + wS.Cells(i, j)
                        End With
                    End If
                Next j
                Next i
        End With
End Sub

※　エラー処理はしていません。
※　「まとめ」シートのG列（総計）は普通に関数を入れておいてください。m(_ _)m

tom04 · Answer

No.2です。

色々な原因が考えられますが・・・
前回投稿した通り、
①　シート名はちゃんと「まとめ」と「データ貼付」のシート名になっているでしょうか？
（コードに記載していとおりダブルクォーテーションで囲まれたシート名になっているか？）
シートが存在しないとそのようなエラーになる場合があります。

②　各シートの配置は前回投稿した画像通りの配置になっているでしょうか？
列・行がずれている場合もエラーになるコトがあるか、
まったく意図しない動きになるコトがあります。

実際のデータがどのようになっているのかこちらでは判断できませんので
この程度しか思いつきません。m(_ _)m

tom04 · Answer

続けてお邪魔します。

＞月や時期によってコードや分類が減ったり増えたりします。
とは「データ貼付」シートの分類（列数）が一定でない！という意味でしょうか？

もしそうであれば・・・
前回のコード内の
＞For j = 3 To Range("L1").Column
を
＞For j = 3 To wS.Cells(1, Columns.Count).End(xlToLeft).Row - 1
としてみてください。
C列～「データ貼付」シート1行目項目最終列の1列前まで
となります。

※　最終列が「総計」となっている前提ですので、最終列まで「分類」がある場合は
「-1」は消してください。m(_ _)m

tom04 · Answer

何度もごめんなさい。

行と列を間違っていました。

＞For j = 3 To wS.Cells(1, Columns.Count).End(xlToLeft).Column - 1

でした。
どうも失礼しました。m(_ _)m

tom04 · Answer

＞分類（列数）もコード（縦数）もどちらもです。

「まとめ」シートの1行目に分類だけ入力済みという前提であれば、
「データ貼付」シートのA列で最終行を取得するようにしています。
A列にデータさえ入っていれば、前回の訂正で列数・行数に関係なく処理できるはずです。

※　「まとめ」シートは行全体・列全体を対象に検索しているため・・・m(_ _)m

tom04 · Answer

たびたびごめんなさい。

投稿後気になったのですが、
「まとめ」シートの列数は変化するのでしょうか？
もしそうであれば、前回のコードではC～F列までしかデータ消去するようにしていません。

今までのコードはすべて消去し↓のコードに変更してみてください。

Sub Sample2()
Dim i As Long, j As Long, lastRow As Long, lastCol As Long
Dim c As Range, r As Range, wS As Worksheet
Set wS = Worksheets("データ貼付")
With Worksheets("まとめ")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
lastCol = .Cells(1, Columns.Count).End(xlToLeft).Column - 1 '//★①//
Range(.Cells(2, "C"), .Cells(lastRow, lastCol)).ClearContents   '//★①'//
For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
For j = 3 To wS.Cells(1, Columns.Count).End(xlToLeft).Column - 1    '//★②//
If wS.Cells(i, j) <> "" Then
Set c = .Range("A:A").Find(what:=wS.Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
Set r = .Rows(1).Find(what:=wS.Cells(1, j), LookIn:=xlValues, lookat:=xlPart)
With .Cells(c.Row, r.Column)
.Value = .Value + wS.Cells(i, j)
End With
End If
Next j
Next i
End With
End Sub

※　★①で「まとめ」シートのC列～1行目最終列の1列左の列までのデータを一旦消去するようにしています。
※　★②が前回投稿した「データ貼付」シートの1行目最終列の1列左の列までになります。

No.4で投稿した通り、最終列が「総計」でなく「分類」の場合
★①と★②はの「-1」は消してください。m(_ _)m

tom04 · Answer

最後の補足の件について・・・

二通りのやり方があると思います。
「データ貼付」シートの1行目項目が必ず「まとめ」シートの分類群の中にあるのであれば
「総計」の列も一緒に操作する方法です。
その場合はコード内の「-1」を2か所とも消してみてください。
そうしればそのまま「総計」列も表示されます。

もう一つの方法としては「-1」のままで「総計」列に数式を入れる方法です。
この場合、総計の列がどこになるか？によって当然SUM関数の数式範囲が変わってきますよね。

仮に「まとめ」シートの「総計」列がM列にある場合
「まとめ」シートのM2セルに
=SUM(C2:L2)
としてフィルハンドルで下へコピーしておく！

※　エラー処理まで考慮すると
=IF(COUNT(C2:L2),SUM(C2:L2),"")
といった感じでしょうか。m(_ _)m

ｴｸｾﾙでﾃﾞｰﾀを別ｼｰﾄへ複数条件で反映させたい。

＞・ﾃﾞｰﾀ貼付Sheetにはｼｽﾃﾑからﾀﾞｳﾝﾛｰﾄﾞしたｴｸｾﾙのﾃﾞｰﾀを貼り付ける

こんにちは！

No.2です。

続けてお邪魔します。

何度もごめんなさい。

＞分類（列数）もコード（縦数）もどちらもです。

たびたびごめんなさい。

最後の補足の件について・・・

こんばんは！

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング