Če želite kopirati določeno oblikovano celico ali barvne celice iz enega stolpca v naslednji stolpec, je ta članek za vas. V tem članku se bomo naučili kopirati barvne celice s kodo VBA.
Sledi posnetek podatkov, ki jih imamo, tj. Stolpec A vsebuje podatke z nekaj celicami rumene barve.
Če želite izvleči podatke, ki so označeni samo z rumeno barvo; ustvariti moramo UDF, ki prikazuje barvne celice samo v stolpcu B
- Če želite ustvariti uporabniško določeno funkcijo, sledimo spodnjim korakom:
- Kliknite zavihek Razvijalec
- V skupini Koda izberite Visual Basic
- Spodaj kodo moramo kopirati v standardni modul
Funkcija je rumena (ByRef r As Range)
Če je r.Interior.ColorIndex = 6 Potem
IsYellow = r.Value
Sicer pa
IsYellow = vbNullString
Konec Če
Končana funkcija
- V celici B1 bo formula = Je Rumena (A1)
Zgornja koda se posebej ujema z barvo# 6, ki je namenjena samo rumeni barvi. Zato bo udf izvlekel samo vrednosti, ki vsebujejo barvo#6.
Če želimo izvleči rdeče barvne celice, moramo preveriti označeno barvno številko in preprosto zamenjati z rumeno barvno številko.
Na ta način lahko s kodo vba pridobimo rumene barvne celice pisave.
Prenos - Izvleči določen barvni indeks z uporabo VBA - xlsm