Vba: jak znaleźć minimalną wartość w zakresie

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

 SubMinValue ()
    Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 "))
End Sub

Ten konkretny przykład oblicza minimalną wartość w zakresie B2:B11 i przypisuje wynik do komórki D2 .

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

 SubMinValue ()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Min Value in Range: " & minValue 
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:

Powiązane: Jak znaleźć maksymalną wartość w zakresie za pomocą języka VBA

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

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

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

 SubMinValue ()
    Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 "))
End Sub

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

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

To mówi nam, że minimalna wartość w kolumnie punktów wynosi 10.

Przykład 2: Oblicz minimalną wartość zakresu za pomocą VBA i wyświetl wyniki w oknie komunikatu

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

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

 SubMinValue ()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Min Value in Range: " & minValue 
End Sub

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

Okno komunikatu informuje nas, że minimalna wartość w zakresie B2:B11 wynosi 10 .

Należy pamiętać, że w tym przykładzie obliczyliśmy minimalną wartość z zakresu B2:B11 .

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

Spowoduje to obliczenie wartości minimalnej w całej 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 dodać wartości w zakresie