Uddrag specifikt farveindeks ved hjælp af VBA

Anonim

Hvis du vil kopiere en bestemt formateret celle eller farvede celler fra en kolonne til den næste kolonne, er denne artikel noget for dig. I denne artikel lærer vi, hvordan du kopierer farvede celler ved hjælp af VBA -kode.

Følgende er et øjebliksbillede af de data, vi har, dvs. kolonne A indeholder data med få gule farvede celler.

For at udtrække de data, der kun er markeret med gul farve; vi skal oprette en UDF for kun at vise de farvede celler i kolonne B

  • For at oprette brugerdefineret funktion følger vi nedenstående trin:
  • Klik på fanen Udvikler
  • Vælg Visual Basic i kodegruppen

  • Vi skal kopiere nedenstående kode i standardmodulet

Funktion er gul (ByRef r as Range)

Hvis r.Interior.ColorIndex = 6 Så

IsGul = r.Værdi

Andet

IsYellow = vbNullString

Afslut Hvis

Afslut funktion

  • I celle B1 vil formlen være = IsGul (A1)

Ovenstående kode matcher specifikt farve# 6, som kun er beregnet til gul farve. Derfor vil udf udtrække kun de værdier, der indeholder farve#6.

Hvis vi ønsker at udtrække røde farveceller, skal vi kontrollere det angivne farvenummer og blot erstatte med et gult farvenummer.

På denne måde kan vi hente de gule skrifttypefarveceller ved hjælp af vba -kode.

Download - Uddrag specifikt farveindeks ved hjælp af VBA - xlsm