Vba: jak sformatować komórki jako procent

Możesz użyć poniższej podstawowej składni w języku VBA, aby sformatować każdą komórkę w zakresie jako procent.

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0.00% "
    Next i
    
End Sub

W tym konkretnym przykładzie każda komórka z zakresu A2:A11 jest formatowana jako wartość procentowa z dwoma miejscami po przecinku.

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: sformatuj komórki jako wartości procentowe za pomocą VBA

Załóżmy, że mamy następującą listę wartości w Excelu:

Załóżmy, że chcemy sformatować każdą wartość jako procent.

Na przykład:

• Wartość 0,22 należy sformatować jako 22%.
• Wartość 0,35 należy sformatować jako 35%.

I tak dalej.

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

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0.00% "
    Next i
    
End Sub

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

Każda wartość jest teraz formatowana jako procent z dwoma miejscami po przecinku.

Należy zauważyć, że liczba zer po przecinku dziesiętnym we właściwości NumberFormat określa liczbę miejsc dziesiętnych wyświetlanych w każdym procencie.

Możemy użyć następującej składni, aby nie wyświetlać miejsc po przecinku w każdym procencie:

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0% "
    Next i
    
End Sub

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

Należy pamiętać, że z każdej wartości procentowej usunięto miejsca dziesiętne.

Uwaga : Pełną dokumentację właściwości VBA NumberFormat znajdziesz tutaj .

Dodatkowe zasoby

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

VBA: Jak sortować arkusz według wielu kolumn
VBA: Jak policzyć liczbę wierszy w zakresie
VBA: jak filtrować kolumnę