Kui soovite konkreetse vormindatud lahtri või värvilised lahtrid ühest veerust järgmisesse veergu kopeerida, on see artikkel teie jaoks. Selles artiklis õpime, kuidas kopeerida värvilisi lahtreid VBA -koodi abil.
Järgnev on meie olemasolevate andmete ülevaade, st veerg A sisaldab vähese kollase värvi lahtritega andmeid.
Ainult kollase värviga esile tõstetud andmete eraldamiseks; peame looma UDF -i, et näidata värvilisi lahtreid ainult veerus B
- Kasutaja määratud funktsiooni loomiseks toimime järgmiselt.
- Klõpsake vahekaarti Arendaja
- Valige koodirühmas Visual Basic
- Peame standardmoodulis allpool oleva koodi kopeerima
Funktsioon on kollane (ByRef r As Range)
Kui r.Interior.ColorIndex = 6 Siis
Kollane = r. Väärtus
Muidu
IsYellow = vbNullString
Lõpp Kui
Lõppfunktsioon
- Lahtris B1 on valem järgmine = Kollane (A1)
Ülaltoodud kood sobib spetsiaalselt värviga# 6, mis on mõeldud ainult kollasele värvile. Seega eraldab udf ainult need väärtused, mis sisaldavad värvi#6.
Juhul, kui tahame punaseid rakke ekstraheerida, peame kontrollima määratud värvinumbrit ja lihtsalt asendama need kollase värviga.
Sel viisil saame vba -koodi abil kollased fondivärvi lahtrid alla laadida.
Laadige alla - Spetsiaalse värviindeksi väljavõtmine VBA abil - xlsm