Specifieke kleurindex extraheren met VBA

Anonim

Als u een bepaalde opgemaakte cel of gekleurde cellen van de ene kolom naar de volgende kolom wilt kopiëren, dan is dit artikel iets voor u. In dit artikel leren we hoe we gekleurde cellen kunnen kopiëren met VBA-code.

Hieronder volgt de momentopname van de gegevens die we hebben, d.w.z. kolom A bevat gegevens met weinig geel gekleurde cellen.

Om de gegevens te extraheren die alleen in gele kleur zijn gemarkeerd; we moeten een UDF maken om de gekleurde cellen alleen in kolom B . weer te geven

  • Om een ​​door de gebruiker gedefinieerde functie te creëren, volgen we de onderstaande stappen:
  • Klik op het tabblad Ontwikkelaar
  • Selecteer in de codegroep Visual Basic

  • We zijn verplicht om onderstaande code in de standaardmodule te kopiëren:

Functie Is Geel (ByRef r As Range)

Als r.Interior.ColorIndex = 6 Dan

IsGeel = r.Waarde

Anders

IsYellow = vbNullString

Stop als

Functie beëindigen

  • In cel B1 is de formule =IsGeel(A1)

De bovenstaande code komt specifiek overeen met de kleur # 6 die alleen bedoeld is voor de gele kleur. Daarom zal de udf alleen de waarden extraheren die kleur#6 bevatten.

Als we rode kleurcellen willen extraheren, moeten we het aangewezen kleurnummer controleren en eenvoudig vervangen door het gele kleurnummer.

Op deze manier kunnen we de gele kleurcellen van het lettertype ophalen met behulp van vba-code.

Download - Specifieke kleurindex extraheren met VBA - xlsm