Съдържание
В тази статия ще ви покажа как можете да използвате ColorIndex свойство в Excel VBA . Ще се научите да задавате цвета на фона, шрифта и рамката на една или повече клетки, като използвате свойството ColorIndex на VBA , както и да задавате цвета на една клетка в зависимост от цвета на друга.
Кодове на Excel VBA ColorIndex
Преди да преминете към основното обсъждане, разгледайте картинката по-долу, за да се запознаете с ColorIndex на всички цветове, налични в Excel VBA .
Изтегляне на работна тетрадка за практика
Изтеглете тази учебна тетрадка, за да се упражнявате, докато четете тази статия.
VBA ColorIndex.xlsm4 примера за използване на свойството ColorIndex в Excel VBA
Тук имаме набор от данни с Имена, начални заплати , и Настоящи заплати на някои служители на компания, наречена Jupyter Group.
Нашата цел е да видим различни употреби на ColorIndex собственост на VBA върху този набор от данни.
1. Задаване на цвета на фона на клетката с помощта на ColorIndex в Excel VBA
Можете да зададете какъвто искате цвят на фона на клетката с помощта на ColorIndex собственост на VBA .
Нека променим цвета на фона на обхвата B4:B13 в зелено.
⧭ Код VBA:
Редът от кода ще бъде:
Range("B4:B13").Interior.ColorIndex = 10
[10 е ColorIndex на цвета зелен . Вижте цветовата таблица.]
⧭ Изход:
Изпълнете този код и ще откриете цвета на фона на диапазона B4:B13 обърнато зелен .
2. Задаване на цвета на шрифта на клетките с помощта на ColorIndex в Excel VBA
Можете също така да зададете цвета на шрифта на текста на всяка клетка с помощта на ColorIndex свойство на Excel VBA .
Нека променим цвета на шрифта на обхвата B4:B13 до червено.
⧭ Код VBA:
Редът от кода ще бъде:
Range("B4:B13").Font.ColorIndex = 3 [3 е ColorIndex на Червено .]
⧭ Изход:
Изпълнете този код и ще откриете цвета на шрифта на диапазона B4:B13 обърнато червен .
3. Задаване на цвета на границата на клетката с помощта на ColorIndex в Excel VBA
Сега ще зададем цвета на границата на клетката с помощта на ColorIndex собственост на VBA .
Нека променим цвета на границата на обхвата B4:B13 до червено.
⧭ Код VBA:
Редът от кода ще бъде:
Range("B4:B13").Borders.ColorIndex = 3 
⧭ Изход:
Изпълнете този код. Той ще промени цвета на границите на диапазона B4:B13 до червено.
4. Задаване на цвета на клетката към цвета на друга клетка с помощта на ColorIndex
Накрая ще покажа, че можете да промените цвета на една клетка в зависимост от цвета на друга клетка.
Нека променим цвета на фона на клетката B5 към зелен .
Сега ще променим цвета на фона на клетката D5 в съответствие с тази на клетката B5 .
⧭ Код VBA:
Редът от кода ще бъде:
Range("D5").Interior.ColorIndex = Range("B5").Interior.ColorIndex 
⧭ Изход:
Изпълнете този код. Той ще промени цвета на фона на клетката D5 в съответствие с тази на клетката B5 .
По подобен начин можете да промените цвета на шрифта или цвета на рамката на всяка клетка в зависимост от цвета на друга клетка, като използвате ColorIndex собственост.
Повече обучение
В тази статия променихме цвета на клетките, като използвахме ColorIndex собственост на VBA .
Освен това ColorIndex има друго свойство, наречено Цвят в VBA , която се занимава с цветовете.
Кликнете тук, за да се запознаете подробно с него.
