Vba: waarden toevoegen in een bereik

U kunt de volgende basissyntaxis gebruiken om de som van waarden in een bereik te berekenen met behulp van VBA:

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

Dit specifieke voorbeeld berekent de som van de waarden in het bereik B2:B11 en wijst het resultaat toe aan cel D2 .

Als u in plaats daarvan de som van de waarden in een berichtvenster wilt weergeven, kunt u de volgende syntaxis gebruiken:

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

De volgende voorbeelden laten zien hoe u elk van deze methoden in de praktijk kunt gebruiken met de volgende dataset in Excel die informatie bevat over verschillende basketbalspelers:

Voorbeeld 1: Bereken de som van het bereik met behulp van VBA en geef de resultaten in de cel weer

Stel dat we de som van de waarden in de puntenkolom willen berekenen en de resultaten in een specifieke cel willen weergeven.

We kunnen hiervoor de volgende macro maken:

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat cel D2 de waarde 245 bevat.

Dit vertelt ons dat de som van de waarden in de puntenkolom 245 is.

Voorbeeld 2: Bereken de som van het bereik met behulp van VBA en geef de resultaten weer in het berichtenvenster

Stel dat we in plaats daarvan de som van de waarden in de puntenkolom willen berekenen en de resultaten in een berichtenvenster willen weergeven.

We kunnen hiervoor de volgende macro maken:

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Het berichtenvenster vertelt ons dat de som van de waarden in het bereik B2:B11 245 is.

Merk op dat we in dit voorbeeld de som van de waarden in het bereik B2:B11 hebben berekend.

Als u echter in plaats daarvan de som van de waarden in een hele kolom wilt berekenen, kunt u in plaats daarvan B:B typen.

Hiermee wordt de som van de waarden voor elke cel in kolom B berekend.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: Hoe de gemiddelde waarde van het bereik te berekenen
VBA: het aantal rijen binnen bereik tellen
VBA: SUMIF- en SUMIFS-functies schrijven