KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe kunt u de tekstgrootte in Excel snel aanpassen op basis van de celwaarde?

AuteurSun Wijzigingsdatum
Een schermafbeelding van een tabel in Excel met variërende lettergroottes op basis van waarden in de aangrenzende kolom
In Excel kunt u celTekstgrootte naar wens wijzigen, maar hebt u ooit geprobeerd de Tekstgrootte te wijzigen op basis van de waarde in een andere kolom, zoals in de onderstaande screenshot wordt weergegeven? In dit artikel introduceer ik enkele VBA-codes om u te helpen snel Tekstgrootte te wijzigen op basis van celwaarde in Excel.

Wijzig Tekstgrootte op basis van de waarde in een andere kolom
Wijzig Tekstgrootte op basis van celwaarde en tekenlengte

pijl blauw rechts bubbel Wijzig Tekstgrootte op basis van de waarde in een andere kolom

Om de tekstgrootte aan te passen op basis van de waarde in een andere kolom, helpt de volgende VBA-code u verder.

1. Ga naar het werkblad waarop u de tekstgrootte wilt wijzigen op basis van een andere kolom en druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak vervolgens de onderstaande VBA-code in de Module. Zie screenshot:

VBA: Wijzig Tekstgrootte op basis van de waarde in een andere kolom

Sub fontchange()
'UpdatebyExtendoffice20160614
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select cells that you want to change font size:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "Only can select one column", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Font.Size = xCell.Offset(, 1).Value
    Next
    Application.ScreenUpdating = True
End Sub

Een schermafbeelding van de geplakte code in de VBA-editor

3. Druk op F5 om een dialoogvenster te openen en selecteer de cellen waarvan u de tekstgrootte wilt wijzigen. Zie screenshot:
Een schermafbeelding van het dialoogvenster 'Selecteer de cellen waarvan u de lettergrootte wilt wijzigen'

4. Klik op OK en de tekstgrootte van de geselecteerde cellen wordt automatisch aangepast op basis van de waarden in de aangrenzende kolom.
Een schermafbeelding van het resultaat in Excel na het uitvoeren van de VBA-code, waarbij de lettergrootte is aangepast op basis van waarden in de aangrenzende kolom

pijl blauw rechts bubbel Wijzig Tekstgrootte op basis van celwaarde en tekenlengte

Als u de tekstgrootte wilt aanpassen op basis van de eigen waarde of tekenlengte van de cel — bijvoorbeeld wanneer de celwaarde groter is dan 10 of de tekenlengte meer dan 5 tekens bedraagt — wordt de tekstgrootte 16 en het lettertype Arial. In alle andere gevallen blijft de tekstgrootte 11 en wordt Calibri als lettertype gebruikt, zoals in de onderstaande screenshot te zien is.
Een schermafbeelding van Excel met een cel met lettergrootte 16 en het lettertype Arial, en een andere cel met lettergrootte 11 en het lettertype Calibri, op basis van waarde en tekenlengte

1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de onderstaande code in het Module-script. Zie screenshot:

VBA: Wijzig Tekstgrootte op basis van celwaarde of tekenlengte

Private Sub Worksheet_Calculate()
'UpdatebyExtendoffice20160614
    Dim xCell As Range
    For Each xCell In Range("G2:H9")
        With xCell
            If Len(.Text) > 5 Or Val(.Value) > 10 Then
                .Font.Name = "Arial"
                .Font.Size = 16
            Else
                .Font.Name = "Calibri"
                .Font.Size = 11
            End If
        End With
    Next
End Sub

Een schermafbeelding van de geplakte code in de VBA-editor

3. Druk op F5 om de code uit te voeren. De waarden die groter zijn dan 10 of een tekenlengte van meer dan 5 hebben, worden weergegeven in het lettertype Arial met een tekstgrootte van 16.

Tip: In de bovenstaande code kunt u het bereik G2:B9 aanpassen naar een ander gewenst bereik.

Beste Office-productiviteitshulpmiddelen

🤖KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...

Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
  • Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!

Alle Kutools-add-ins in één installatieprogramma.

Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
  • Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
  • Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
  • 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
  • Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins