VBA cellteckensnitt
I VBA kan du ändra teckensnittsegenskaper med hjälp av egenskapen VBA -teckensnitt för intervallobjektet. Skriv in följande kod i VBA -redigeraren så ser du en lista över alla tillgängliga alternativ:
| 1 | Område ("A1). Font. |
Vi kommer att diskutera några av de vanligaste egenskaperna nedan.
Ändra teckensnittsfärg
Det finns några sätt att ställa in teckensnittsfärger.
vbColor
Det enklaste sättet att ställa in färger är med vbColors:
| 1 | Område ("a1"). Font.Color = vbRed |
Du är dock mycket begränsad när det gäller tillgängliga färger. Dessa är de enda tillgängliga alternativen:
Färg - RGB
Du kan också ställa in färger baserat på RGB (röd grön blå). Här anger du färgvärden mellan 0-255 för rött, grönt och blått. Med dessa tre färger kan du göra valfri färg:
| 1 | Område ("a1"). Font.Color = RGB (255 255,0) |
ColorIndex
VBA / Excel har också en ColorIndex -egenskap. Detta gör färdigbyggda färger tillgängliga för dig. De lagras dock som indexnummer, vilket gör det svårt att veta vilken färg som är vad:
| 1 | Område ("a1"). Font.ColorIndex = … |
Vi skrev en artikel om VBA -färgkoder, inklusive en lista över VBA ColorIndex -koder. Där kan du lära dig mer om färger.
Textstorlek
Detta kommer att ställa in teckenstorleken till 12:
| 1 | Område ("a1"). Font.Size = 12 |
eller till 16:
| 1 | Område ("a1"). Font.Size = 16 |
Fetstil
Det är lätt att ställa in ett cellteckensnitt på fetstil:
| 1 | Område ("A1"). Font.Bold = True |
eller för att rensa fet formatering:
| 1 | Område ("A1"). Font.Bold = Falskt |
Teckensnittsnamn
För att ändra ett teckensnittsnamn, använd namn fast egendom:
| 1 | Område ("A1"). Font.Name = "Calibri" |
| 1 | Område ("A1"). Font.Name = "Arial" |
| 1 | Område ("A1"). Font.Name = "Times New Roman" |
Cellstil
Excel erbjuder möjligheten att skapa cellstilar. Stilar hittar du i Hemband> Stilar:
Med stilar kan du spara önskad cellformatering. Tilldela sedan den stilen till en ny cell och all cellformatering tillämpas direkt. Inklusive teckensnittsstorlek, cellfärg, status för cellskydd och allt annat tillgängligt från menyn Cellformatering:
Personligen, för många av de modeller som jag arbetar med, skapar jag vanligtvis en "Input" cellstil:
| 1 | Område ("a1"). Style = "Inmatning" |
Genom att använda stilar kan du också enkelt identifiera celltyper i ditt kalkylblad. Exemplet nedan går igenom alla celler i kalkylbladet och ändrar vilken cell som helst med Style = "Input" till "InputLocked":
| 1234567 | Dim Cell som intervallFör varje cell i ActiveSheet.CellsOm Cell.Style = "Inmatning" dåCell.Style = "InputLocked"Avsluta omNästa cell |
