Hoe de tekstkleur van Excel in te stellen met VBA?

Hoe de tekstkleur van Excel in te stellen met VBA?

In deze zelfstudie leren we hoe u Visual Basic for Applications (VBA) kunt gebruiken om de tekstgrootte en -stijl in een Excel-cel aan te passen op basis van de celinhoud. Deze tutorial is van toepassing op Excel 365, 2021, 2019 en 2016.

voorrondes

Als Excel VBA-ontwikkeling nieuw voor u is, raad ik u aan om, voordat u de tutorial doorloopt, eerst naar onze Excel VBA-macro-primer te kijken.

Voordat u begint met coderen, moet u uw ontwikkelaarstabblad op Excel in het lint inschakelen, omdat u anders geen toegang hebt tot uw Visual Basic Editor.

Wijzig de eigenschappen van uw Excel-celtekst met VBA

Definieer uw spreadsheet

We beginnen met het definiëren van een Excel-spreadsheet die we als voorbeeld zullen gebruiken. Voel je vrij om het te gebruiken om deze tutorial te volgen.

  • Open Microsoft Excel en maak een nieuwe Macro Enabled Excel-werkmap ( .xlsm ) met de naam Excel_Macros.xlsm
  • Sla uw spreadsheet op uw lokale schijf op.
  • Ga je gang in het werkblad Blad1 en voeg de onderstaande tabel toe:

Hoe de tekstkleur van Excel in te stellen met VBA?

  • Klik nu vanuit het lint op Formules .
  • Druk vervolgens op Definieer naam .
  • Definieer een benoemd bereik waarop u uw VBA-code toepast zoals hieronder weergegeven en druk op OK .

Hoe de tekstkleur van Excel in te stellen met VBA?

Gebruik de Cell.Font VBA-eigenschap om de kleur en stijl van het lettertype te wijzigen

  • Ga naar het tabblad Ontwikkelaars .
  • Ga vervolgens door en druk op de Visual Basic - knop.
  • Markeer in de Projectverkenner aan de linkerkant het project Excel_Macros.xlsm en klik vervolgens op Invoegen en kies Module .
  • Er wordt een nieuwe VBA-module met de naam Module1 gemaakt.
  • Ga je gang en plak de volgende code in de nieuw gemaakte module:
Sub Color_Cell_Text_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Completion_Status")

'loop through all cells in the range
For Each MyCell In StatusRange

StatValue = MyCell.Value

'modify the cell text values as needed.
Select Case StatValue

    'green
    Case "Progressing"
    With MyCell.Font
        .Color = RGB(0, 255, 0)
        .Size = 14
        .Bold = True
     End With

    'orange
    Case "Pending Feedback"
    With MyCell.Font
        .Color = RGB(255, 141, 0)
        .Size = 14
        .Bold = True
    End With
    
    'red
    Case "Stuck"
    With MyCell.Font
        .Color = RGB(255, 0, 0)
        .Size = 14
        .Bold = True
    End With

End Select

Next MyCell

End Sub
  • Druk op de knop Opslaan in uw Visual Basic-editor.
  • Druk nu op Uitvoeren en kies vervolgens Sub/UserForm uitvoeren (of druk gewoon op F5).
  • Ga naar je werkblad 1 en merk de wijzigingen op. Aan uw tabelinvoeringen zijn meerdere kleurcodes toegewezen op basis van hun tekst (met behulp van de RGB-kleurfunctie), en we hebben de tekst ook vetgedrukt en vergroot.

Hoe de tekstkleur van Excel in te stellen met VBA?

  • Als u uw code niet hebt opgeslagen, drukt u op de knop Opslaan (of Ctrl+S) en slaat u vervolgens ook uw werkmap op.

Toegang tot uw VBA-macro

  • Merk op dat uw code altijd beschikbaar is om uit te voeren vanaf de opdracht Macro's op het tabblad Weergave (of als alternatief in Ontwikkelaar | Macro's)

Hoe de tekstkleur van Excel in te stellen met VBA?

Bonus: celstijl

Excel biedt de mogelijkheid om celstijlen te maken. Stijlen zijn te vinden in het Home-lint > Stijlen:

Excel vba-lettertypestijlen

Met stijlen kunt u de gewenste celopmaak opslaan. Wijs die stijl vervolgens toe aan een nieuwe cel en alle celopmaak wordt onmiddellijk toegepast. Inclusief lettergrootte, celkleur, celbeveiligingsstatus en al het andere dat beschikbaar is via het Celopmaakmenu:

celopmaakmenu excel

Persoonlijk maak ik voor veel van de modellen waaraan ik werk meestal een ‘Invoer’-celstijl:

Bereik("a1"). Stijl = "Invoer"

Door stijlen te gebruiken, kunt u ook eenvoudig celtypen op uw werkblad identificeren. In het onderstaande voorbeeld worden alle cellen in het werkblad doorlopen en wordt elke cel met Style = "Input" gewijzigd in "InputLocked":

Cel dimmen als bereik

Voor elke cel in ActiveSheet.Cells

Als Cell.Style = "Invoer" dan Cell.Style = "InputLocked"

Stop als

Volgende cel


6 coole zoekmachines om naar gezichten te zoeken

6 coole zoekmachines om naar gezichten te zoeken

Soms wilt u misschien uw gezicht of dat van iemand anders op internet zoeken. Hier is een blik op zes zoekdiensten voor omgekeerde afbeeldingen die resultaten kunnen opleveren.

Werkt de Facebook Messenger-camera niet? Hier is een oplossing

Werkt de Facebook Messenger-camera niet? Hier is een oplossing

Als de Facebook Messenger-camera niet werkt, controleer dan de Messenger-status, installeer de app opnieuw of draai terug met een APK.

Hoe Gmail toe te voegen aan de taakbalk op Windows (SNELLE GIDS)

Hoe Gmail toe te voegen aan de taakbalk op Windows (SNELLE GIDS)

Ontdek hoe je Gmail kunt toevoegen aan de taakbalk op Windows 10 of Windows 11 met Chrome of Microsoft Edge. Volg onze eenvoudige gids.

Telefoon blijft continu rinkelen? Controleer deze oplossingen

Telefoon blijft continu rinkelen? Controleer deze oplossingen

Als uw telefoon continu blijft rinkelen, start u uw apparaat opnieuw op, controleert u de nabijheidssensor, reset u de app-voorkeuren of voert u de fabrieksinstellingen terug.

Speciale tekens typen op Windows 11

Speciale tekens typen op Windows 11

Leer hoe u speciale tekens kunt typen op Windows 11. Volg deze gids voor handige technieken om wiskundige symbolen, emoji

6 manieren om schijfbeheer te openen op Windows 11

6 manieren om schijfbeheer te openen op Windows 11

Ontdek 6 efficiënte manieren om Schijfbeheer te openen in Windows 11 voor het partitioneren van schijven en het wijzigen van stationsletters.

Websites vastzetten op de Windows-taakbalk vanuit Microsoft Edge

Websites vastzetten op de Windows-taakbalk vanuit Microsoft Edge

Leer hoe u websites kunt vastzetten op de Windows-taakbalk vanuit Microsoft Edge voor snelle toegang met één klik.

Snapchat Berichten bijwerken (Quick Fix)

Snapchat Berichten bijwerken (Quick Fix)

Als je de Snapchat-melding voor het bijwerken van berichten op je Android ontvangt, navigeer dan naar Instellingen> Apps> Snapchat> Meldingen en schakel deze uit.

Kun je geen screenshot maken vanwege het beveiligingsbeleid? Dit is waarom

Kun je geen screenshot maken vanwege het beveiligingsbeleid? Dit is waarom

Ontdek hoe je kunt omzeilen dat je geen screenshot kunt maken vanwege het beveiligingsbeleid in apps, en leer handige tips voor het maken van screenshots op Android en iOS.

8 oplossingen voor COD Modern Warfare gesplitst scherm werkt niet

8 oplossingen voor COD Modern Warfare gesplitst scherm werkt niet

Lees onze gids om oplossingen te vinden voor het probleem dat COD Modern Warfare gesplitst scherm niet werkt in multiplayer. Volg de gegeven oplossingen en verbeter uw spelervaring.