V případě, že chcete zkopírovat konkrétní formátovanou buňku nebo barevné buňky z jednoho sloupce do dalšího sloupce, pak je tento článek pro vás. V tomto článku se naučíme kopírovat barevné buňky pomocí kódu VBA.
Následuje snímek dat, která máme, tj. Sloupec A obsahuje data s několika žlutě zbarvenými buňkami.
Extrahovat data, která jsou zvýrazněna pouze žlutou barvou; potřebujeme vytvořit UDF, aby se barevné buňky zobrazovaly pouze ve sloupci B
- Chcete -li vytvořit funkci definovanou uživatelem, budeme postupovat podle následujících kroků:
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
- Ve standardním modulu jsme povinni zkopírovat níže uvedený kód
Funkce IsYellow (ByRef r As Range)
Pokud r. Interior.ColorIndex = 6 Pak
IsYellow = r. Hodnota
Jiný
IsYellow = vbNullString
Konec If
Koncová funkce
- V buňce B1 bude vzorec = IsYellow (A1)
Výše uvedený kód konkrétně odpovídá barvě# 6, která je určena pouze pro žlutou barvu. Udf tedy extrahuje pouze hodnoty, které obsahují barvu č. 6.
V případě, že chceme extrahovat červené barevné buňky, musíme zkontrolovat určené barevné číslo a jednoduše nahradit žlutým barevným číslem.
Tímto způsobem můžeme načíst buňky barvy žlutého písma pomocí kódu vba.
Stáhnout - extrahovat konkrétní barevný rejstřík pomocí VBA - xlsm