vba worksheet-Funktion SUMMEWENNS wo die Kriterien-Bereich in Tabelle1 und Kriterien in Blatt 2

Ich versuche einen vba-code mit Arbeitsblatt-Funktion SUMMEWENNS. Ich habe zwei Platten, Blatt 1 enthält Kriterien Palette und Blatt 2 enthält Kriterien.

Blatt 1:

Group   Year    Cutomer Amount
A   2012    Gold        1000
B   2013    Platinum    1250
C   2012    Gold        1500
B   2012    Platinum    1750
C   2013    Gold        2000
A   2013    Platinum    2250
C   2012    Gold        2500
A   2013    Platinum    2750
B   2012    Gold        3000


Sheet 2:

                2012    2013
A   Gold        
A   Platinum        
B   Gold        
B   Platinum        
C   Gold        
C   Platinum

Mein code ist wie folgt:

Sub SUMIFSTWOSHEETS()

Dim i As Variant
Dim condition As Range

For i = 2 To 7

sheet2.Cells(i, 3) = WorksheetFunction.sumifs(sheet1.Range("d2:d10"), sheet1.Range("a2:a10"), sheet2.Cells(i, 1), sheet1.Range("c2:c10"), sheet2.Cells(i, 2), sheet1.Range("B2:B10"), sheet2.Range("c2"))
sheet2.Cells(i, 4) = WorksheetFunction.sumifs(sheet1.Range("d2:d10"), sheet1.Range("a2:a10"), sheet2.Cells(i, 1), sheet1.Range("c2:c10"), sheet2.Cells(i, 2), sheet1.Range("B2:B10"), sheet2.Range("d2"))

Next i

End Sub

Mit dem obigen code, vba ausgeführt wird, aber es gibt nur null als Antwort.

Meine Antwort ist wie folgt:

        2012    2013
A   Gold        0   0
A   Platinum    0   0
B   Gold        0   0
B   Platinum    0   0
C   Gold        0   0
C   Platinum    0   0

Kann jemand mir helfen?.

InformationsquelleAutor vengadasamy | 2013-08-04
  1. 1

    Wenn ich verstehe deine tab-Platzierung korrekt ist, versuchen Sie ersetzen sheet2.Range("c2") mit sheet2.Range("c1") und sheet2.Range("d2") mit sheet2.Range("d1"). Es sollte geben Sie die folgende Ausgabe in Sheet2:

                    2012    2013
A   Gold        1000    0
A   Platinum    0       5000
B   Gold        3000    0
B   Platinum    1750    1250
C   Gold        4000    2000
C   Platinum    0       0

    Als seitliche Anmerkung, ich bin nicht sicher, warum Sie benötigen i zu Variant: eine einfache Long sollte OK sein?

    InformationsquelleAutor Ioannis
  2. 1

    Den Werten, die Sie addieren, sollte der Letzte parameter. So,

    sheet2.Cells(i, 3) = WorksheetFunction.sumifs(sheet1.Range("a2:a10"), sheet2.Cells(i, 1), sheet1.Range("c2:c10"), sheet2.Cells(i, 2), sheet1.Range("B2:B10"), sheet2.Range("c2"), sheet1.Range("d2:d10"))

    Meine Frage ist, warum brauchst du ein makro und nicht einfach die Formel in Excel.

    InformationsquelleAutor Robert Co
Schreibe einen Kommentar