В случай, че искате да копирате определена форматирана клетка или цветни клетки от една колона в следващата колона, тогава тази статия е за вас. В тази статия ще научим как да копирате цветни клетки, използвайки VBA код.
Следва моментната снимка на данните, които имаме, т.е. колона А съдържа данни с няколко жълто оцветени клетки.
За извличане на данни, които са маркирани само в жълт цвят; трябва да създадем UDF, който да показва цветните клетки само в колона B
- За да създадем функция, дефинирана от потребителя, ще следваме следните стъпки:
- Кликнете върху раздела Разработчик
- От групата Кодове изберете Visual Basic
- От нас се изисква да копираме кода по -долу в стандартния модул
Функция е Жълта (ByRef r As Range)
Ако r.Interior.ColorIndex = 6 Тогава
IsYellow = r.Value
Иначе
IsYellow = vbNullString
Край Ако
Крайна функция
- В клетка В1 формулата ще бъде = IsYellow (A1)
Горният код съответства специално на цвят# 6, който е предназначен само за жълт цвят. Следователно, udf ще извлече само стойностите, които съдържат цвят#6.
В случай, че искаме да извлечем червени цветни клетки, тогава трябва да проверим определения номер на цвят и просто да го заменим с жълт цветен номер.
По този начин можем да извлечем жълтите цветни клетки с шрифт, използвайки vba код.
Изтегляне - Извличане на специфичен цветен индекс с помощта на VBA - xlsm