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:
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