Den aktuellen Monat finden und eine Summe einfügen

Question

Ich versuche, die Summe der gesamten Tage in den aktuellen Monat einzufügen.

das ist, was ich bisher habe, aber es wird nicht die Gesamtzahl auf den Behälter Spalte einfügen auf dem aktuellen Monat, je

Dies ist mein Code

Sub Macro1() 
    ' 
    ' Macro1 Macro 
    ' 
    For i = 2 To 13 
     If Cells(i, 5) = Month Then Cells(i, 6) = Cells(34, 2) 
     Cells(i, 6).Select 
     Selection.copy 
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 
     Application.CutCopyMode = False 
    Next i 
End Sub 

Answer 1

Sie verwenden könnten ein Skriptwörterbuch wie dieses:

Sub SumContainersByMonth() 
    Dim c As Range, DataRange As Range 
    Dim count As Double 
    Dim key As String 
    Dim k, Keys, Items 
    Dim dict As Object 

    Set dict = CreateObject("Scripting.Dictionary") 

    Set DataRange = Range("A2", Range("A1").End(xlDown)) 

    For Each c In DataRange 
     key = DateSerial(Year(c), Month(c), 1) 
     count = c.Offset(0, 1) + dict(key) 
     dict(key) = count 
    Next 

    Keys = dict.Keys 
    Items = dict.Items 

    Range("E2").Resize(UBound(Keys) + 1) = WorksheetFunction.Transpose(Keys) 
    Range("F2").Resize(UBound(Items) + 1) = WorksheetFunction.Transpose(Items) 

End Sub 

---

Ich würde ein paar Änderungen an Ihrem Projekt-Setup vornehmen und die Daten zwischenspeichern.

Hier ist, wie

ich einen Monat-Jahr Spalte links von Tag legen würde. Der Wert von Monat-Jahr sollte dem der Spalte Tag entsprechen, aber das Format wäre MMM-YY.

In dem Klick Subtotals Registerkarte Daten.

die Einstellungen im Bild unten Nehmen.

Auf der linken Seite der Zeilennummern klicken , oder zu wählen, wie Sie Ihre Daten anzuzeigen.