În cazul în care doriți să copiați o anumită celulă formatată sau celule colorate dintr-o coloană în coloana următoare, atunci acest articol este pentru dvs. În acest articol, vom învăța cum să copiați celule colorate folosind codul VBA.
Urmează instantaneul datelor pe care le avem, adică coloana A conține date cu câteva celule de culoare galbenă.
Pentru a extrage datele care sunt evidențiate numai în culoare galbenă; trebuie să creăm un UDF pentru a afișa celulele colorate numai în coloana B
- Pentru a crea funcția definită de utilizator, vom urma pașii de mai jos:
- Faceți clic pe fila Dezvoltator
- Din grupul de coduri, selectați Visual Basic
- Ni se cere să copiem codul de mai jos în modulul standard
Funcția IsYellow (ByRef r As Range)
Dacă r.Interior.ColorIndex = 6 Atunci
IsYellow = r.Value
Altfel
IsYellow = vbNullString
End If
Funcția de sfârșit
- În celula B1, formula va fi = IsYellow (A1)
Codul de mai sus se potrivește în mod specific cu culoarea # 6, care este destinată numai culorii galbene. Prin urmare, udf va extrage numai valorile care conțin culoarea # 6.
În cazul în care dorim să extragem celule de culoare roșie, atunci trebuie să verificăm numărul de culoare desemnat și să îl înlocuim pur și simplu cu numărul de culoare galbenă.
În acest fel, putem prelua celulele de culoare galbenă a fontului folosind codul vba.
Descărcare - Extrageți indicele de culoare specific utilizând VBA - xlsm