Jos haluat kopioida tietyn muotoillun solun tai värilliset solut sarakkeesta toiseen, tämä artikkeli on sinua varten. Tässä artikkelissa opimme kopioimaan värillisiä soluja VBA -koodilla.
Seuraavassa on tilannevedos käytettävissä olevista tiedoistamme, eli sarake A sisältää tietoja, joissa on vähän keltaisia soluja.
Poimia vain keltaisella värillä korostetut tiedot; meidän on luotava UDF näyttämään värilliset solut vain sarakkeessa B
- Voit luoda käyttäjän määrittämän toiminnon noudattamalla seuraavia vaiheita:
- Napsauta Kehittäjä -välilehteä
- Valitse koodiryhmästä Visual Basic
- Meidän on kopioitava alla oleva koodi standardimoduulissa
Toiminto Is keltainen (ByRef r As Range)
Jos r.Interior.ColorIndex = 6 Sitten
Keltainen = r. Arvo
Muu
Keltainen = vbNullString
Loppu Jos
Lopeta toiminto
- Solussa B1 kaava on = Keltainen (A1)
Yllä oleva koodi vastaa erityisesti väriä# 6, joka on tarkoitettu vain keltaiselle värille. Siksi udf poimii vain arvot, jotka sisältävät värin#6.
Jos haluamme poimia punaisia soluja, meidän on tarkistettava nimetty värinumero ja yksinkertaisesti korvattava keltaisella värinumerolla.
Tällä tavalla voimme noutaa keltaiset fontin värisolut käyttämällä vba -koodia.
Lataa - poimi tietty väri -indeksi VBA: n avulla - xlsm