Vba: jak dodać wartości w zakresie


Aby obliczyć sumę wartości w zakresie za pomocą języka VBA, możesz użyć następującej podstawowej składni:

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

Ten konkretny przykład oblicza sumę wartości z zakresu B2:B11 i przypisuje wynik do komórki D2 .

Jeśli zamiast tego chcesz wyświetlić sumę wartości w oknie komunikatu, możesz użyć następującej składni:

 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

Poniższe przykłady pokazują, jak w praktyce zastosować każdą z tych metod, mając do dyspozycji następujący zbiór danych w Excelu, który zawiera informacje o różnych koszykarzach:

Przykład 1: Oblicz sumę zakresu za pomocą VBA i wyświetl wyniki w komórce

Załóżmy, że chcemy obliczyć sumę wartości w kolumnie punktów i wyświetlić wyniki w określonej komórce.

W tym celu możemy utworzyć następujące makro:

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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Zauważ, że komórka D2 zawiera wartość 245 .

To mówi nam, że suma wartości w kolumnie punktów wynosi 245.

Przykład 2: Oblicz sumę zakresu za pomocą VBA i wyświetl wyniki w oknie komunikatu

Załóżmy, że zamiast tego chcemy obliczyć sumę wartości w kolumnie punktów i wyświetlić wyniki w oknie komunikatu.

W tym celu możemy utworzyć następujące makro:

 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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Wartości sumy VBA w zakresie

Okno komunikatu informuje nas, że suma wartości w zakresie B2:B11 wynosi 245 .

Zauważ, że w tym przykładzie obliczyliśmy sumę wartości z zakresu B2:B11 .

Jeśli jednak zamiast tego chcesz obliczyć sumę wartości w całej kolumnie, możesz zamiast tego wpisać B:B .

Spowoduje to obliczenie sumy wartości dla każdej komórki w kolumnie B.

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak obliczyć średnią wartość zakresu
VBA: Jak policzyć liczbę wierszy w zakresie
VBA: Jak pisać funkcje SUMIF i SUMIFS

Dodaj komentarz

Twój adres e-mail nie zostanie opublikowany. Wymagane pola są oznaczone *