Vba: cellen opmaken als percentage

U kunt de volgende basissyntaxis in VBA gebruiken om elke cel in een bereik als een percentage op te maken.

 SubFormatPercent ()
    Dim i As Integer

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

In dit specifieke voorbeeld wordt elke cel in het bereik A2:A11 opgemaakt als een percentagewaarde met twee decimalen.

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: Cellen opmaken als percentage met behulp van VBA

Stel dat we de volgende lijst met waarden in Excel hebben:

Stel dat we elke waarde als een percentage willen opmaken.

Bijvoorbeeld:

• 0,22 moet worden opgemaakt als 22%.
• 0,35 moet worden opgemaakt als 35%.

Enzovoort.

We kunnen hiervoor de volgende macro maken:

 SubFormatPercent ()
    Dim i As Integer

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

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Elke waarde wordt nu opgemaakt als een percentage met twee decimalen.

Houd er rekening mee dat het aantal nullen na de komma in de eigenschap NumberFormat het aantal decimalen aangeeft dat in elk percentage moet worden weergegeven.

We kunnen de volgende syntaxis gebruiken om bij elk percentage geen decimalen weer te geven:

 SubFormatPercent ()
    Dim i As Integer

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

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Houd er rekening mee dat de decimalen van elke procentuele waarde zijn verwijderd.

Opmerking : u kunt hier de volledige documentatie voor de eigenschap VBA NumberFormat vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: een blad sorteren op meerdere kolommen
VBA: het aantal rijen binnen bereik tellen
VBA: hoe een kolom te filteren