Vba: jak zaokrąglić wartości do 2 miejsc po przecinku

Możesz użyć następujących metod zaokrąglenia wartości do 2 miejsc po przecinku za pomocą VBA:

Metoda 1: Zaokrąglij wartość do 2 miejsc po przecinku

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

Ten konkretny przykład zaokrągli wartość w komórce A2 do dwóch miejsc po przecinku i wyświetli zaokrągloną wartość w komórce B2 .

Metoda 2: Zaokrąglij wszystkie wartości w zakresie do 2 miejsc po przecinku

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

Ten konkretny przykład zaokrągli każdą wartość z zakresu A2:A9 do dwóch miejsc po przecinku i wyświetli zaokrąglone wartości z zakresu B2:B9 .

Poniższe przykłady pokazują, jak zastosować każdą metodę w praktyce.

Przykład 1: Zaokrąglij wartość do 2 miejsc po przecinku

Możemy utworzyć następujące makro, aby zaokrąglić wartość w komórce A2 do dwóch miejsc po przecinku i wyświetlić wynik w komórce B2 :

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

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

Należy zauważyć, że wartość 15,248 w komórce A2 została zaokrąglona do dwóch miejsc po przecinku (15,25) w komórce B2 .

Przykład 2: Zaokrąglij wszystkie wartości w zakresie do 2 miejsc po przecinku

Możemy utworzyć następujące makro, aby zaokrąglić każdą z wartości z zakresu A2:A9 do dwóch miejsc po przecinku i wyświetlić zaokrąglone wartości z zakresu B2:B9 :

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

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

Należy pamiętać, że każda wartość z zakresu A2:A9 została zaokrąglona do dwóch miejsc po przecinku, a zaokrąglone wartości są wyświetlane w zakresie B2:B9 .

Uwaga : Pełną dokumentację metody VBA Round znajdziesz tutaj .

Dodatkowe zasoby

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

Jak zaokrąglać wartości w VBA
Jak zaokrąglać wartości w VBA