VBA клетъчен шрифт
Във VBA можете да променяте свойствата на шрифта, като използвате VBA Font Property на Range Object. Въведете следния код във VBA Editor и ще видите списък с всички налични опции:
| 1 | Диапазон ("A1). Шрифт. |
Ще обсъдим някои от най -често срещаните имоти по -долу.
Промяна на цвета на шрифта
Има няколко начина за задаване на цветове на шрифта.
vbColor
Най -лесният начин да зададете цветове е с vbColors:
| 1 | Диапазон ("a1"). Font.Color = vbRed |
Вие обаче сте много ограничени по отношение на наличните цветове. Това са единствените налични опции:
Цвят - RGB
Можете също така да зададете цветове въз основа на RGB (червено зелено синьо). Тук въвеждате стойности на цветовете между 0-255 за червено, зелено и синьо. Използвайки тези три цвята, можете да направите всеки цвят:
| 1 | Диапазон ("a1"). Font.Color = RGB (255,255,0) |
ColorIndex
VBA / Excel също има свойство ColorIndex. Това прави готовите цветове достъпни за вас. Те обаче се съхраняват като индексни номера, което затруднява да се знае какъв цвят е:
| 1 | Диапазон ("a1"). Font.ColorIndex = … |
Написахме статия за цветовите кодове на VBA, включително списък на кодовете на VBA ColorIndex. Там можете да научите повече за цветовете.
Размер на шрифта
Това ще зададе размера на шрифта на 12:
| 1 | Диапазон ("a1"). Размер на шрифта = 12 |
или до 16:
| 1 | Диапазон ("a1"). Размер на шрифта = 16 |
Удебелен шрифт
Лесно е да зададете шрифт на клетка на Bold:
| 1 | Диапазон ("A1"). Font.Bold = Вярно |
или за изчистване на удебелено форматиране:
| 1 | Диапазон ("A1"). Font.Bold = False |
Име на шрифта
За да промените името на шрифта, използвайте Име Имот:
| 1 | Диапазон ("A1"). Font.Name = "Calibri" |
| 1 | Диапазон ("A1"). Font.Name = "Arial" |
| 1 | Диапазон ("A1"). Font.Name = "Times New Roman" |
Стил на клетката
Excel предлага възможност за създаване на клетъчни „стилове“. Стилове могат да бъдат намерени в Начална лента> Стилове:
Стиловете ви позволяват да запазите желаното форматиране на клетки. След това задайте този стил на нова клетка и цялото форматиране на клетката се прилага незабавно. Включително размер на шрифта, цвят на клетката, състояние на защита на клетките и всичко друго, налично от менюто за форматиране на клетки:
Лично за много от моделите, върху които работя, обикновено създавам стил на клетка „Въвеждане“:
| 1 | Range ("a1"). Style = "Input" |
Използвайки стилове, можете също лесно да идентифицирате типовете клетки на работния си лист. Примерът по -долу ще премине през всички клетки в работния лист и ще промени всяка клетка със Style = „Input“ на „InputLocked“:
| 1234567 | Dim Cell като диапазонЗа всяка клетка в ActiveSheet.CellsАко Cell.Style = "Въвеждане" тогаваCell.Style = "InputLocked"Край АкоСледваща клетка |
