Hinzufügen einer Gruppe von numerischen Wert in einer Spalte basierend auf einem anderen Kriterium aus einer anderen Spalte

Question

Ich habe Tabelle in Sheet1. Ich kann alle numerischen Daten eines bestimmten Landes zusammenfassen. Allerdings wollte ich nur Zahlen mit demselben Datum zusammenfassen. Ich habe ComboBox für das Datum. So zum Beispiel, wenn ich 1. Juli entscheiden, es wird nur die Zahlen im Juli hinzufügen 1.

Ergebnis Mein Wunsch, wenn ich wählen 1. Juli ist die folgende: America 24 56 Brasilien Kanada 68

Hier ist mein Screenshot: screenshot

MyCode:

Private Sub ComboBox1_Change() 

Dim a As Long 
Dim b As Long 
Dim c As Long 
Dim lastrow As Long 

a = 0 
b = 0 
c = 0 

lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row 

For i = 2 To lastrow 
If Cells(i, 3) = "America" Then 
a = Cells(i, 4) + a 

ElseIf Cells(i, 3) = "Brazil" Then 
b = Cells(i, 4) + b 

ElseIf Cells(i, 3) = "Canada" Then 
c = Cells(i, 4) + c 
End If 
Next i 

'Range("A16") = a 

txtAmerica.Value = a 
txtBrazil.Value = b 
txtCanada.Value = c 

End Sub 

Private Sub UserForm_Initialize() 

ComboBox1.List = Sheets("Sheet1").Range("G1:G10").Value 

End Sub 

Answer 1

die Werte in Spalte A sind Angenommen, Daten und auch Ihre locale vorausgesetzt, wird unter Verwendung einer mm/tt/dat e-Format, das ist so einfach wie nur Ihre Summen Code in einer If Anweisung Einwickeln, die das Datum überprüft:

For i = 2 To lastrow 
    If Cells(i, "A").Value = CDate(ComboBox1.Value) Then 
     If Cells(i, 3) = "America" Then 
      a = Cells(i, 4) + a 
     ElseIf Cells(i, 3) = "Brazil" Then 
      b = Cells(i, 4) + b 
     ElseIf Cells(i, 3) = "Canada" Then 
      c = Cells(i, 4) + c 
     End If 
    End If 
Next i