Цвят на шрифта на Excel VBA
Свойството VBA Font Color се използва за промяна на цвета на шрифта на клетките на Excel с помощта на vba код. Можем да променяме цвета на шрифта по няколко начина, като използваме индекс на цвят, свойство цвят с RGB функция.
Когато подготвям табло в Excel, обикновено прекарвам значително количество време, форматирайки клетки, шрифтове и др. Често се чувствам като козметик на Excel, като разглеждам различните цветове на форматирането на Excel. Промяната на цвета на шрифта в работния лист на Excel е лесна работа, но когато става въпрос за Excel, трябва да знаете начините за писане на VBA код за промяна на цвета на шрифта.
За да променим цвета на шрифта, първо трябва да определим кои са клетките, които ще променим.
Обхват („A1: A10“)
След това трябва да изберем свойството FONT.
Обхват (“A1: A10”). Шрифт
Тогава какво искаме да направим с този шрифт, така че изберете Color?
Обхват (“A1: A10”). Шрифт.Цвят
По този начин трябва да изградим кода, за да променим цвета на шрифта. Изглежда трудно, нали?
Но не забравяйте, че в началото всичко изглежда трудно, по-късно ще го разберете.
Как да променяте цвета на шрифта с помощта на VBA?
Пример # 1 - Използване на цветен индекс
Свойството Color Index се различава от свойството Color в VBA. Използвайки числови стойности, можем да променим цвета на клетките, шрифтовете.
Числата варират от 1 до 56 и всяко число представлява различни цветове. По-долу е списъкът с числата и техните цветове.
Добре, нека тестваме това.
Имам стойност в клетка А1.
Искам да променя цвета на шрифта на клетка А1 на зелен. По-долу е кодът.
Код:
Sub FontColor_Example1 () Обхват ("A1"). Font.ColorIndex = 10 Краен Sub
Това ще промени цвета на шрифта на клетка А1 на зелен.
Също така можем да използваме свойството CELLS, за да променим цвета на шрифта.
Код:
Sub FontColor_Example1 () Клетки (1, 1). Font.ColorIndex = 10 End Sub
По този начин можем да използваме числа от 1 до 56, за да приложим желания цвят към шрифта.
Пример # 2 - Използване на свойство Цвят
Цветовият индекс има много ограничени цветове от 1 до 56, но като използваме свойството COLOR, можем да използваме 8 вградени цвята vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .
За тези цветове не е необходимо да предоставяме никакви числа. По-скоро можем просто да имаме достъп до тях, като използваме името им, както е показано по-горе. По-долу е примерен код за всичките 8 цвята.
Код:
Sub vbBlack_Example () Обхват ("A1"). Font.Color = vbBlack Край Sub
Код:
Sub vbRed_Example () Обхват ("A1"). Font.Color = vbRed End Sub
Код:
Sub vbGreen_Example () Обхват ("A1"). Font.Color = vbGreen Краен Sub
Код:
Sub vbBlue_Example () Обхват ("A1"). Font.Color = vbBlue Край Sub
Код:
Sub vbYellow_Example () Обхват ("A1"). Font.Color = vbYellow End Sub
Код:
Sub vbMagenta_Example () Обхват ("A1"). Font.Color = vbMagenta Край Sub
Код:
Sub vbCyan_Example () Обхват ("A1"). Font.Color = vbCyan Край Sub
Код:
Sub vbWhite_Example () Обхват ("A1"). Font.Color = vbWhite Край Sub
Пример # 3 - Използване на цветово свойство с RGB функция
Както видяхме, имаме само 8 вградени цвята, с които да работим. Но за да имаме голямо разнообразие от цветове, трябва да използваме функцията, наречена RGB. Освен вградените цветове, ние можем да създаваме свои собствени цветове, като използваме функцията VBA RGB.
Вижте синтаксиса на RGB функцията.
RGB (червено, зелено, синьо)
RGB означава „Червено, зелено и синьо“. За да изградим цветове, трябва да предоставим числа от 0 до 255 за всеки цвят.
Ето няколко примера за вас.
По-долу са някои от примерите за макрокодове
Код:
Sub RGB_Example () Обхват ("A1"). Font.Color = RGB (0, 0, 0) 'Променете цвета на шрифта на черен End Sub
Код:
Sub RGB_Example () Обхват ("A1"). Font.Color = RGB (16, 185, 199) 'Цветът на шрифта ще бъде този Краен Sub
Код:
Sub RGB_Example () Обхват ("A1"). Font.Color = RGB (106, 15, 19) 'Цветът на шрифта ще бъде този Краен Sub
Код:
Sub RGB_Example () Обхват ("A1"). Font.Color = RGB (216, 55, 19) 'Цветът на шрифта ще бъде този Краен Sub
