Font de celule VBA
În VBA, puteți modifica proprietățile fontului utilizând proprietatea font VBA a obiectului Range. Tastați următorul cod în Editorul VBA și veți vedea o listă cu toate opțiunile disponibile:
| 1 | Gama ("A1). Font. |
Vom discuta câteva dintre cele mai comune proprietăți de mai jos.
Schimbați culoarea fontului
Există câteva modalități de a seta culorile fontului.
vbColor
Cel mai simplu mod de a seta culorile este cu vbColors:
| 1 | Gama ("a1"). Font.Color = vbRed |
Cu toate acestea, sunteți foarte limitat în ceea ce privește culorile disponibile. Acestea sunt singurele opțiuni disponibile:
Culoare - RGB
De asemenea, puteți seta culori pe baza RGB (Roșu Verde Albastru). Aici introduceți valori de culoare cuprinse între 0-255 pentru roșu, verde și albastru. Folosind aceste trei culori puteți crea orice culoare:
| 1 | Gama ("a1"). Font.Color = RGB (255.255,0) |
ColorIndex
VBA / Excel are, de asemenea, o proprietate ColorIndex. Acest lucru vă pune la dispoziție culori pre-construite. Cu toate acestea, acestea sunt stocate ca numere de index, ceea ce face dificil să știți ce culoare este:
| 1 | Gama ("a1"). Font.ColorIndex = … |
Am scris un articol despre codurile VBA Color, inclusiv o listă a codurilor VBA ColorIndex. Acolo puteți afla mai multe despre culori.
Marimea fontului
Aceasta va seta dimensiunea fontului la 12:
| 1 | Range ("a1"). Font.Size = 12 |
sau la 16:
| 1 | Range ("a1"). Font.Size = 16 |
Font îndrăzneț
Este ușor să setați un font de celulă la Bold:
| 1 | Range ("A1"). Font.Bold = True |
sau pentru a șterge formatarea Bold:
| 1 | Range ("A1"). Font.Bold = False |
Numele fontului
Pentru a schimba un nume de font utilizați Nume proprietate:
| 1 | Range ("A1"). Font.Name = "Calibri" |
| 1 | Range ("A1"). Font.Name = "Arial" |
| 1 | Range ("A1"). Font.Name = "Times New Roman" |
Stilul celulei
Excel oferă posibilitatea de a crea „Stiluri” celulare. Stilurile pot fi găsite în Panglică Acasă> Stiluri:
Stilurile vă permit să salvați formatarea celulară dorită. Apoi atribuiți acel stil unei noi celule și toată formatarea celulei este aplicată instantaneu. Inclusiv dimensiunea fontului, culoarea celulei, starea protecției celulei și orice altceva disponibil din meniul de formatare a celulei:
Personal, pentru multe dintre modelele la care lucrez, de obicei creez un stil de celulă „Input”:
| 1 | Gama ("a1"). Stil = "Intrare" |
Prin utilizarea stilurilor, puteți identifica cu ușurință tipurile de celule din foaia de lucru. Exemplul de mai jos va parcurge toate celulele din foaia de lucru și va schimba orice celulă cu Style = „Input” la „InputLocked”:
| 1234567 | Dim Cell ca RangePentru fiecare celulă din ActiveSheet.CellsDacă Cell.Style = "Intrare" atunciCell.Style = "InputLocked"End IfUrmătoarea celulă |
