Kuinka asettaa Excel-tekstin fontin väri VBA: lla?

Tässä opetusohjelmassa opimme käyttämään Visual Basic for Applications (VBA) -ohjelmaa tekstin koon ja tyylin muokkaamiseen Excel-solussa solun sisällön perusteella. Tämä opetusohjelma koskee Excel 365:tä, 2021:tä, 2019:ää ja 2016:ta.

Alkuvaiheet

Jos olet uusi Excel VBA -kehityksessä, suosittelen, että tutustut Excel VBA -makron alukkeeseen ennen opetusohjelman läpikäyntiä.

Ennen kuin aloitat koodauksen, sinun tulee ottaa kehittäjä-välilehti käyttöön nauhassa Excelissä , sillä muuten et voi käyttää Visual Basic Editoria.

Muuta Excel-solutekstin ominaisuuksia VBA:lla

Määritä laskentataulukkosi

Aloitamme määrittelemällä Excel-laskentataulukon, jota käytämme esimerkkinä. Voit vapaasti käyttää sitä seurataksesi tätä opetusohjelmaa.

  • Avaa Microsoft Excel ja luo uusi makrokäyttöinen Excel-työkirja ( .xlsm ) nimeltä Excel_Macros.xlsm
  • Tallenna laskentataulukkosi paikalliseen asemaan.
  • Siirry Sheet1 - laskentataulukkoon ja lisää alla oleva taulukko:

Kuinka asettaa Excel-tekstin fontin väri VBA: lla?

  • Napsauta nyt nauhasta Kaavat .
  • Napsauta sitten Määritä nimi .
  • Määritä Nimetty alue, johon käytät VBA-koodia alla olevan kuvan mukaisesti, ja paina OK .

Kuinka asettaa Excel-tekstin fontin väri VBA: lla?

Käytä Cell.Font VBA -ominaisuutta muuttaaksesi fontin väriä ja tyyliä

  • Siirry Kehittäjä - välilehdelle.
  • Siirry seuraavaksi ja paina Visual Basic -painiketta.
  • Korosta vasemmalla olevasta Project Explorerista Excel_Macros.xlsm- projekti ja paina sitten Lisää ja valitse Moduuli .
  • Uusi VBA-moduuli nimeltä Moduuli1 luodaan.
  • Siirry eteenpäin ja liitä seuraava koodi äskettäin luotuun moduuliin:
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
  • Paina Visual Basic -editorissa Tallenna -painiketta.
  • Paina nyt Suorita ja valitse sitten Run Sub/UserForm (tai paina vain F5).
  • Siirry Sheet1 - laskentataulukkoon ja huomaa muutokset. Taulukkomerkinnöillesi määritettiin useita värikoodeja niiden tekstin mukaan (RGB-väritoiminnolla), ja myös lihavoitu teksti ja suurensimme sen kokoa.

Kuinka asettaa Excel-tekstin fontin väri VBA: lla?

  • Jos et ole tallentanut koodia, paina Tallenna-painiketta (tai Ctrl+S) ja tallenna sitten myös työkirja.

Käytä VBA-makroasi

  • Huomaa, että koodisi on aina käytettävissä Näytä-välilehden Makrot-komennolla (tai vaihtoehtoisesti Kehittäjä | Makrot)

Kuinka asettaa Excel-tekstin fontin väri VBA: lla?

Bonus: Cell Style

Excel tarjoaa mahdollisuuden luoda solujen "tyylejä". Tyylit löytyvät Etusivun nauhasta > Tyylit:

excel vba fonttityylejä

Tyylien avulla voit tallentaa haluamasi solun muotoilun. Määritä sitten kyseinen tyyli uudelle solulle ja kaikki solun muotoilut otetaan käyttöön välittömästi. Sisältää fontin koon, solun värin, solujen suojauksen tilan ja kaiken muun, joka on saatavilla Solun muotoiluvalikosta:

solujen muotoiluvalikko Excel

Itse luon useille malleille, joiden parissa työskentelen, yleensä "syöttö"-solutyylin:

Alue("a1").Tyyli = "Syöte"

Tyylien avulla voit myös helposti tunnistaa laskentataulukon solutyypit. Alla oleva esimerkki käy läpi kaikki laskentataulukon solut ja muuttaa minkä tahansa solun, jossa on Style = "Input" arvoon "InputLocked":

Himmeä solu alueena

Jokaiselle ActiveSheet.Cells-solulle

Jos Cell.Style = "Syöte" sitten Cell.Style = "InputLocked"

Loppu Jos

Seuraava solu

Leave a Comment

Xbox 360 -emulaattorit Windows PC:lle asennetaan vuonna 2022 – [10 PARHAAT POINTA]

Xbox 360 -emulaattorit Windows PC:lle asennetaan vuonna 2022 – [10 PARHAAT POINTA]

Tässä artikkelissa on luettelo 10 parhaasta Xbox 360 -emulaattorista Windows PC:lle. Opit, miten voit nauttia Xbox 360 -peleistä helposti Windows 10 -tietokoneella.

[100 % ratkaistu] Kuinka korjata Error Printing -viesti Windows 10:ssä?

[100 % ratkaistu] Kuinka korjata Error Printing -viesti Windows 10:ssä?

Tulostusvirheviestin vastaanottaminen Windows 10 -järjestelmässäsi ja noudata sitten artikkelissa annettuja korjauksia ja saat tulostimesi oikeilleen…

Microsoft Teams -tallenteen tallentaminen ja toistaminen

Microsoft Teams -tallenteen tallentaminen ja toistaminen

Voit palata kokouksiin helposti, jos tallennat ne. Näin voit tallentaa ja toistaa Microsoft Teams -tallenteen seuraavaa kokousta varten.

Kuinka palauttaa oletussovellukset Androidissa

Kuinka palauttaa oletussovellukset Androidissa

Kun avaat tiedoston tai napsautat linkkiä, Android-laitteesi valitsee oletussovelluksen sen avaamiseksi. Voit palauttaa oletussovelluksesi Androidissa tämän oppaan avulla.

KORJAATTU: Entitlement.diagnostics.office.com-sertifikaattivirhe

KORJAATTU: Entitlement.diagnostics.office.com-sertifikaattivirhe

KORJAATTU: Entitlement.diagnostics.office.com-sertifikaattivirhe

10 parasta pelisivustoa, joita koulu ei estänyt vuonna 2022

10 parasta pelisivustoa, joita koulu ei estänyt vuonna 2022

Saadaksesi selville parhaat pelisivustot, joita koulut eivät ole estäneet, lue artikkeli ja valitse paras lukitsemattomien pelien verkkosivusto kouluille, korkeakouluille ja töille

KORJAATTU: Tulostin on virhetilassa [HP, Canon, Epson, Zebra & Brother]

KORJAATTU: Tulostin on virhetilassa [HP, Canon, Epson, Zebra & Brother]

Jos kohtaat tulostimen virhetilan ongelman Windows 10 -tietokoneessa etkä tiedä, kuinka käsitellä sitä, korjaa se seuraamalla näitä ratkaisuja.

Chromebookin varmuuskopiointi (2022)

Chromebookin varmuuskopiointi (2022)

Jos mietit, kuinka voit varmuuskopioida Chromebookisi, me autamme sinua. Lisätietoja siitä, mikä varmuuskopioidaan automaattisesti ja mitä ei ole täällä

Kuinka korjata Xbox-sovellus, joka ei avaudu Windows 10:ssä [PIKAOPAS]

Kuinka korjata Xbox-sovellus, joka ei avaudu Windows 10:ssä [PIKAOPAS]

Haluatko korjata Xbox-sovelluksen, joka ei avaudu Windows 10:ssä, ja seuraa korjauksia, kuten Ota Xbox-sovellus käyttöön Palveluista, nollaa Xbox-sovellus, Palauta Xbox-sovelluspaketti ja muut.

Mikä on LogiOptions.exe (UNICODE) ja onko prosessi turvallinen?

Mikä on LogiOptions.exe (UNICODE) ja onko prosessi turvallinen?

Jos sinulla on Logitechin näppäimistö ja hiiri, näet tämän prosessin käynnissä. Se ei ole haittaohjelma, mutta se ei ole välttämätön suoritettava tiedosto Windows-käyttöjärjestelmälle.