Izdvojite Indeks specifičnih boja pomoću VBA

Anonim

U slučaju da želite kopirati određenu oblikovanu ćeliju ili ćelije u boji iz jednog stupca u sljedeći stupac, onda je ovaj članak za vas. U ovom ćemo članku naučiti kako kopirati obojene ćelije pomoću VBA koda.

Slijedi snimak podataka koje imamo, tj. Stupac A sadrži podatke s nekoliko ćelija žute boje.

Za izdvajanje podataka koji su označeni samo žutom bojom; moramo stvoriti UDF za prikaz obojenih ćelija samo u stupcu B

  • Za izradu korisnički definirane funkcije slijedit ćemo dolje navedene korake:
  • Kliknite karticu Developer
  • Iz grupe kodova odaberite Visual Basic

  • Moramo kopirati donji kod u standardni modul

Funkcija je žuta (ByRef r As Range)

Ako je r.Interior.ColorIndex = 6 Tada

JeJuto = r.Vrijednost

Drugo

JeJuto = vbNullString

Završi ako

Završna funkcija

  • U ćeliji B1 formula će biti = Žuta (A1)

Gornji kôd posebno odgovara boji# 6 koja je namijenjena samo žutoj boji. Dakle, udf će izdvojiti samo vrijednosti koje sadrže boju#6.

U slučaju da želimo izdvojiti ćelije crvene boje, moramo provjeriti označeni broj boje i jednostavno zamijeniti žutom bojom.

Na ovaj način možemo dohvatiti ćelije boje žutog fonta pomoću vba koda.

Preuzimanje - Izdvajanje indeksa specifičnih boja pomoću VBA - xlsm