VBA šūnu fonts
Programmā VBA varat mainīt fonta rekvizītus, izmantojot diapazona objekta VBA fonta rekvizītu. Ievadiet šādu kodu VBA redaktorā, un jūs redzēsit visu pieejamo iespēju sarakstu:
| 1 | Diapazons ("A1). Fonts. |
Tālāk mēs apspriedīsim dažas no visbiežāk sastopamajām īpašībām.
Mainīt fonta krāsu
Ir daži veidi, kā iestatīt fontu krāsas.
vbKrāsa
Vienkāršākais veids, kā iestatīt krāsas, ir vbColors:
| 1 | Diapazons ("a1"). Fonts.Krāsa = vbSarkans |
Tomēr pieejamo krāsu ziņā jūs esat ļoti ierobežots. Šīs ir vienīgās pieejamās iespējas:
Krāsa - RGB
Varat arī iestatīt krāsas, pamatojoties uz RGB (sarkans zaļš zils). Šeit jūs ievadāt krāsu vērtības no 0 līdz 255 sarkanai, zaļai un zilai. Izmantojot šīs trīs krāsas, jūs varat izveidot jebkuru krāsu:
| 1 | Diapazons ("a1"). Fontu krāsa = RGB (255 255,0) |
Krāsu indekss
VBA / Excel ir arī īpašums ColorIndex. Tādējādi jums ir pieejamas iepriekš izveidotas krāsas. Tomēr tie tiek saglabāti kā indeksa numuri, tāpēc ir grūti zināt, kāda krāsa ir:
| 1 | Diapazons ("a1"). Fonts.ColorIndex =… |
Mēs rakstījām rakstu par VBA krāsu kodiem, ieskaitot VBA ColorIndex kodu sarakstu. Tur jūs varat uzzināt vairāk par krāsām.
Fonta izmērs
Tādējādi fonta lielums tiks iestatīts uz 12:
| 1 | Diapazons ("a1"). Fonts. Izmērs = 12 |
vai līdz 16:
| 1 | Diapazons ("a1"). Fonts. Izmērs = 16 |
Bold Font
Šūnu fontu ir viegli iestatīt uz Bold:
| 1 | Diapazons ("A1"). Fonts. Bold = patiesa |
vai, lai notīrītu treknrakstu formatējumu:
| 1 | Diapazons ("A1"). Fonts. Bold = nepatiess |
Fonta nosaukums
Lai mainītu fonta nosaukumu, izmantojiet Vārds īpašums:
| 1 | Diapazons ("A1"). Font.Name = "Calibri" |
| 1 | Diapazons ("A1"). Font.Name = "Arial" |
| 1 | Diapazons ("A1"). Font.Name = "Times New Roman" |
Šūnu stils
Excel piedāvā iespēju izveidot šūnu “stilus”. Stili atrodami sadaļā Sākuma lente> Stili:
Stili ļauj saglabāt vēlamo šūnu formatējumu. Pēc tam piešķiriet šo stilu jaunai šūnai, un visa šūnas formatēšana tiek uzreiz lietota. Ieskaitot fonta lielumu, šūnas krāsu, šūnu aizsardzības statusu un visu citu, kas pieejams šūnu formatēšanas izvēlnē:
Personīgi, daudziem modeļiem, pie kuriem strādāju, es parasti izveidoju “ievades” šūnu stilu:
| 1 | Diapazons ("a1"). Stils = "ievade" |
Izmantojot stilus, savā darblapā varat arī viegli identificēt šūnu tipus. Tālāk sniegtajā piemērā tiks apskatītas visas darblapas šūnas un mainīta jebkura šūna ar Style = “Input” uz “InputLocked”:
| 1234567 | Dim šūna kā diapazonsKatrai ActiveSheet šūnaiJa Cell.Style = "Input", tadCell.Style = "InputLocked"Beigas JaNākamā šūna |
