Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe snel de tekengrootte wijzigen op basis van de celwaarde in Excel?

doc verander lettergrootte op basis van waarde 7
In Excel kunt u de celgrootte wijzigen zoals u dat wilt, maar heeft u ooit geprobeerd de lettergrootte van de cel te wijzigen op basis van een andere kolomwaarde zoals hieronder afgebeeld? In dit artikel introduceer ik een aantal VBA-code om u te helpen snel de tekengrootte te wijzigen op basis van de celwaarde in Excel.
Tekengrootte wijzigen op basis van een andere kolomwaarde

Verander lettergrootte op basis van celwaarde en tekenlengte

Selecteer specifieke cellen

Doordat uw bureau Kutools for Excel's Selecteer specifieke cellen hulpprogramma, kunt u cellen / rij / kolommen selecteren op basis van één of twee criteria, en ze vervolgens opmaken zoals u nodig hebt, zoals de lettergrootte, achtergrond enzovoort.

doc selecteer specifieke cellen
Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Kutools werkt met Office 2007-2019 en 365. Het ondersteunt alle talen en is zeer eenvoudig te installeren of te implementeren. Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbel Tekengrootte wijzigen op basis van een andere kolomwaarde


Om de lettergrootte te wijzigen op basis van een andere kolomwaarde, hier is een VBA-code die u kan helpen.

1. Ga naar het blad waarvan u de tekengrootte wilt wijzigen op basis van een andere kolom en druk op Alt + F11 toets tegelijkertijd om te openen Microsoft Visual Basic voor toepassingen venster.

2. klikken bijvoegsel > moduleen plak vervolgens onder VBA de module. Zie screenshot:

VBA: tekengrootte wijzigen op basis van een andere kolomwaarde

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

doc verander lettergrootte op basis van waarde 2

3. druk op F5 toets, een dialoogvenster verschijnt en selecteer de cellen waarvan u de lettergrootte wilt wijzigen. Zie screenshot:
doc verander lettergrootte op basis van waarde 3

4. klikken OKen de cellen in de geselecteerde kolom hebben de lettergrootte aangepast op basis van waarden naast kolom.
doc verander lettergrootte op basis van waarde 4


pijl blauwe rechterbel Verander lettergrootte op basis van celwaarde en tekenlengte

Kutools for Excel, met meer dan 120 handige Excel-functies, verbeter uw werkefficiëntie en bespaar uw werktijd.

Als u daarentegen de lettergrootte wilt wijzigen op basis van de eigen waarde of tekenlengte van de cel, bijvoorbeeld als de celwaarde groter is dan 10 of als de tekenlengte meer is dan 5, verandert de tekengrootte in 16, en lettertype wijzigen in Arial, anders is de tekengrootte 11 en het lettertype Calibri zoals hieronder afgebeeld.
doc verander lettergrootte op basis van waarde 5

1. druk op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster.

2. klikken bijvoegsel > module, en plak onderstaande code in module script. Zie screenshot:

VBA: tekengrootte wijzigen 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

doc verander lettergrootte op basis van waarde 6

3. druk op F5 sleutel om de code uit te voeren, en de waarden die groter zijn dan 10 of de tekenlengte is meer dan 5 hebben hun lettertype gewijzigd in Arial en lettergrootte naar 16.

Tip: In bovenstaande code kunt u bereik G2: B9 naar anderen wijzigen zoals u wilt.

doc download 1


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.