Excel zu berechnen, wenn die Werte in Bereichen bestimmte Kriterien erfüllen, die mithilfe von VBA

Ich habe zwei Bereiche in excel sagen:

x   |    y
------------
 5  |   -1
46  |   -4
 2  |    1
67  |   -1
22  |    1
 6  |    0
34  |    0
 7  |   -2

Ich soll berechnen Sie die Summe der zweiten Spalte für Werte kleiner als O nur, wenn die jeweiligen Werte in der ersten Spalte ist weniger als 10 (ich.e sum(y(i) für i<0 und x(i)<10) . Daher ist in diesem Fall die Summe wird -3.

  • Haben Sie versucht, setzen diese in eine SUMIF Aussage?
  • ist "kleiner als O", wie in einigen O oder, 0 wie in null?
  • sorry, ich meinte 0 wie in null
InformationsquelleAutor yiannis | 2013-03-28
  1. 2

    Vorausgesetzt, Ihre überschriften in A1:B1 und Ihre Daten A2:B9 verwenden:

    =SUMIFS(B2:B9,A2:A9,"<10",B2:B9,"<0")
    • Thnaks. Aber wie kann das sein, da für x(i)=1 dann ist y(i)=-1 und x(i)=7 dann ist y(i)=-2. Also insgesamt -3
    • Ich hatte einen Schreibfehler bei den Daten, die in das Blatt - es funktioniert einwandfrei, wenn die Daten korrekt sind. :o)
    InformationsquelleAutor Skip Intro
  2. 0

    Versuchen Sie so etwas wie

    Function calc() AS Integer

    Dim sum AS Integer: sum = 0
    Dim c AS Range

    For Each c In ThisWorkbook.Worksheets(1).Range("A1:A15")
        If c.Value < 10  And c.Offset(0, 1).Value < 0 Then
            sum = sum + c.Offset(0, 1).Value
        End If
    Next c

    calc = sum

End Function
    • Das funktioniert für die Daten zur Verfügung gestellt?
    • Vielen Dank für die prompte Antwort. Wenn wir jedoch davon ausgehen, dass range("a1:a15") ist die erste Spalte, dann ist das nicht die offset-Funktion nehmen Werte aus der Zelle in der rechten Spalte? In diesem Fall wird nur befriedigen criterio das ist nicht das, was ich will!!! Außerdem, wie kann ich die Berechnung ohne Verwendung von offset. Ich bevorzuge die Bereiche, auf die ich Namen.Danke
    • Ich nehme an, ich möchte sowas: Funktion data_range() As Integer Dim Summe As Integer: Summe = 0 Dim c As Range Dim y As Range For Each c In Range("range_x"), Wenn c.Wert < 10 Dann Für Jedes y In Range("range_y") If y.Wert < 0, Dann Summe = Summe + y.Wert End If Next y End If Next c calc = Summe End Function Aber wenn ich versuche, bekomme ich den Wert 0
    • Nun fand ich heraus, dass makro ist nicht notwendig, da kann ich mit =SUMMEWENNS(range_x;range_y;"<10";range_x;"<0"). Aber jede Anregung wie ich das umsetzen kann, dass in vba? Dank
    • Sie könnten Tabellenfunktionen WorksheetFunction.SUMMEWENNS(...)
    • Wollen Sie einige code, fügen Sie die Formel in eine Zelle oder tun die gleiche Sache in den code?
    • Tun die gleiche Sache in den code. Idealerweise, anstatt zu schreiben Sie den Bereichsnamen in das code ich hätte lieber eine Funktion wie data_range("range_x";"range_y"), die die gleichen Dinge tun wie SUMMEWENNS(range_x;range_y;"<10";range_x;"<0").
    • Ich habe ein code SUMIFS-Funktion data_range() As Variant Worksheets("Tabelle1").Aktivieren data_range = Anwendung.SUMMEWENNS(range("range_x"), range("range_x"), "< "0" range("range_y"), "<10") End Function Aber was ich Suche, ist so etwas wie die Funktion data_range1(y range, x range) As Variant Worksheets("Tabelle1").Aktivieren data_range = Anwendung.SUMMEWENNS(x, x, "<0", y, "<10") End Function. Oder so etwas wie, dass, da für diesen code bekomme ich den WERT# Fehler. Ich möchte, dass meine Auswahl meiner reicht von excel und nicht von mit Sie einzurichten in vba.
    • sollten Sie bitten, es als eine andere Frage als Diskussion in den Kommentaren, dass viel mehr Menschen sind wahrscheinlich, es zu sehen und wird in der Lage sein, den code zu Lesen, besser etc.

    InformationsquelleAutor T I
Schreibe einen Kommentar