Exceli VBA kleepimise väärtused
Kopeerimine ja kleepimine pole maailma suurim töö !!! Kuid spetsiaalsete võimalustega kopeerimine ja kleepimine nõuab VBA-s mingisuguseid teadmisi. See pole lihtne kopeerimine ja kleepimine. Üks olulisi pasta erimeetodeid on VBA-s “Paste Väärtused”.
Kuidas VBA abil Excelisse väärtusi kleepida?
Näide # 1 - spetsiaalse kleepimise kasutamine
Näiteks vaadake allolevat töölehe pilti.
Lahtris B6 kasutasime valemit kogumüügi väärtuste arvutamiseks lahtritest B2 kuni B5. Kui kopeerin ja kleepin lahtrit B6 C6-le, ei saa ma väärtust 22 761, vaid saan vastava valemi.
Sama asja teostamiseks VBA-s vajame kodeerimisteadmisi. Näitame teile, kuidas VBA abil väärtusi kleepida. Järgige alltoodud samme.
1. samm: kopeerige lahter B6.
Lahtri B6 kopeerimiseks kasutage koodi vahemikuna (“B6”)
2. samm: valige sihtkoha lahter. Sel juhul C6 rakk.
Nagu näete pärast koopiat, küsib ta: „Sihtkoht“. See pole midagi muud kui kuhu soovite kleepida, nii et valige vahemikuks „Sihtkoht“ („C6“)
Kood:
Sub Paste_Values () vahemik ("B6"). Kopeerimisvahemik ("C6") End Sub
3. samm: käivitage kood
Käivitage see kood, saame B6 koopia C6-s.
Siit saime ainult valemi.
4. samm: tehke kleepimise erimeetod.
Spetsiaalse kleepimismeetodi läbiviimiseks vaatame allpool spetsiaalse kleepimismeetodi süntaksi.
Pasta spetsiaalses meetodis on meil mitu meetodit. Tehtava operatsiooni põhjal peame vastavalt valima ka tüübi.
Mõistmiseks jagame koodi kaheks reaks.
Esimene neist on lahtri B6 kopeerimine.
Nüüd kirjutage järgmisele reale sihtkoha lahter vahemikuks (“C6”)
Nüüd, et pääseda juurde Kleebi erimeetodile, pange punkt ja hakake kirjutama tähte “P.
Valige ülaltoodud valikute hulgast meetod „Kleebi spetsiaalne”.
Pärast meetodi valimist klõpsake erinevate kleepimise erimeetodite nägemiseks tühikuklahvi.
Selles valikus valige „xlPasteValues”.
Pärast valiku valimist vajutage automaatse valiku tegemiseks tabeldusklahvi.
Kood:
Sub Paste_Values () vahemik ("B6"). Kopeerimisvahemik ("C6"). PasteSpecial xlPasteValues End Sub
5. samm: käivitage kood
Nüüd käivitage kood, peaksime saama lahtrisse C6 ainult lahtri B6 väärtuse.
Kui märkate töölehte pärast koodi käivitamist, on see endiselt ainult kopeerimisrežiimis.
See keelab lõigatud koopia režiimi pärast spetsiaalse kleepimise meetodi käivitamist.
Näide # 2 - kleepige spetsiaalne silmustega
Spetsiaalne kleepimine on lihtne, kuid selle kasutamiseks suure koodi osana on vaja kodeerimisoskust kõrgemal tasemel.
Näiteks vaadake allolevat pilti.
Veergu “F” töölehe ülaltoodud pildil on meil veerg kokku, st lahtrites F2, F5, F8, F11 ja F14.
Nüüd on minu kohustus kopeerida kõik lahtrid vastavast lahtrist ja kleepida vastavate lahtritega veergu “H”.
Kasutades VBA-silmustega allpool olevat koodi, saame seda teha.
Kood:
Alamkleebi_väärtused1 () Dim k täisarvuna d j täisarvuna j = 2 k = 1 kuni 5 lahtrisse (j, 6). Kopeerige lahtrid (j, 8). PasteSpecial xlPasteValues j = j + 3 Järgmine k End Sub
See spetsiaalse kleepimisega kood täidab ülesande kopeerida kõik lahtrid kokku ja kleepida veergu H koos vastavate lahtritega.
Näide # 3 - kopeerimine töölehelt teisele
Väärtuste kleepimiseks ühest töölehest teise peame mainima mõlemad töölehtede nimed. Allpool on toodud näide sellest.
Sub Paste_Values2 () töölehed ("Sheet1"). Vahemik ("A1"). Kopeeri töölehed ("Sheet2"). Range ("A15"). PasteSpecial xlPasteValues End Sub
