Ja vēlaties kopēt noteiktu formatētu šūnu vai krāsainas šūnas no vienas kolonnas uz nākamo kolonnu, šis raksts ir domāts jums. Šajā rakstā mēs uzzināsim, kā kopēt krāsainas šūnas, izmantojot VBA kodu.
Tālāk ir sniegts mūsu rīcībā esošo datu momentuzņēmums, ti, A slejā ir dati ar mazām dzeltenas krāsas šūnām.
Lai iegūtu datus, kas ir iezīmēti tikai dzeltenā krāsā; mums ir jāizveido UDF, lai krāsainās šūnas tiktu parādītas tikai B slejā
- Lai izveidotu lietotāja definētu funkciju, mēs veiksim šādas darbības:
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
- Mums ir jāiekopē zemāk esošais kods standarta modulī
Funkcija IsYellow (ByRef r As Range)
Ja r.Interior.ColorIndex = 6 Tad
Dzeltens = r. Vērtība
Citādi
Dzeltens = vbNullString
Beigas Ja
Beigu funkcija
- Šūnā B1 formula būs = Dzeltens (A1)
Iepriekš minētais kods īpaši atbilst krāsai# 6, kas paredzēta tikai dzeltenai krāsai. Tādējādi udf iegūs tikai vērtības, kas satur krāsu#6.
Gadījumā, ja mēs vēlamies iegūt sarkanās krāsas šūnas, mums jāpārbauda norādītais krāsas numurs un vienkārši jāaizstāj ar dzeltenu krāsas numuru.
Tādā veidā mēs varam iegūt dzeltenās fonta krāsu šūnas, izmantojot vba kodu.
Lejupielādēt - iegūt īpašu krāsu indeksu, izmantojot VBA - xlsm