VBA-liitä

VBA-liitäntä toimii samalla tavalla kuin kopioiminen / leikkaaminen ja liittäminen Excelissä. VBA Liitä se automatisoitu versio siitä, mitä teemme säännöllisesti excel-työssä. Tietojen liittäminen mihin tahansa vaadittuun sijaintiin on rutiininomainen tehtävä. Tämän toiminnan suorittamiseksi meidän on määriteltävä sijainti, josta tiedot poimitaan, ja sijainti, johon se liitetään.

Kuinka käyttää Excel VBA-liitäntää?

Opimme käyttämään VBA-liitäntää muutamalla esimerkillä Excelissä.

Voit ladata tämän VBA Paste Excel -mallin täältä - VBA Paste Excel Template

VBA-liitäntä - esimerkki 1

Tarkastellaan kaikkia Excel-soluja, joissa on tekstiä. Täällä olemme pitäneet tekstin “ VBA Paste ” solussa B3, kuten alla on esitetty.

Noudata alla olevia vaiheita käyttääksesi VBA-liitäntää.

Vaihe 1: Siirry nyt VBA-ikkunaan ja avaa uusi moduuli Lisää-valikosta alla olevan kuvan mukaisesti.

Vaihe 2: Kun teemme sen, saamme tyhjän moduulin. Siinä aloita alaluokan kirjoittaminen. On suositeltavaa kirjoittaa alaluokka suoritetun toiminnon nimeen.

Koodi:

 Sub VBAPaste1 () Loppu Sub

Vaihe 3: Valitse nyt ensin Alue-solu, josta meillä on kopioitavat tiedot. Täällä Range- solumme on B3, jota seuraa .Kopio- toiminto. Tämä kopioi valitsemasi alue-solun tiedot.

Koodi:

 Sub VBAPaste1 () Range ("B3"). Copy End Sub

Vaihe 4: Nyt tarvitsemme kohdesolua, johon meidän on liitettävä tämä kopioitu arvo. Valitse Destination-komennon avulla Range-solu. Tässä olemme valinneet solun D1, josta näemme arvon.

Koodi:

 Sub VBAPaste1 () Range ("B3"). Copy Destination: = Range ("D1") End Sub

Vaihe 5: Kun olet valmis, käännä koodi ja suorita se.

Näemme, että solun B3 solupitoisuus kopioidaan ja liitetään nyt soluun D3, kuten yllä on esitetty.

VBA-liitäntä - esimerkki 2

Tarkastellaan toista esimerkkiä VBA-liittämisestä. Siirry tätä varten VBA-ikkunaan, avaa moduuli ja noudata sitten alla olevia vaiheita.

Vaihe 1: Aloita alaluokkien kirjoittaminen VBA Paste -nimeen tai muuhun nimellä alla olevan kuvan mukaisesti.

Koodi:

 Sub VBAPaste2 () Loppu Sub

Vaihe 2: Tässä tarkastellaan samaa dataa tai vertailusolua B3, jonka olemme nähneet esimerkissä-1. Valitse Alue-solu B3 ja sen jälkeen .Kopio- komento. Tämä kopioi tiedot.

Koodi:

 Sub VBAPaste2 () Range ("B3"). Copy End Sub

Vaihe 3: Valitse nyt alueen solu, johon meidän on liitettävä kopioidut tiedot. Tässä valitaan solut D1 - D3 toisin kuin vain yhden solun valitseminen, kuten esimerkissä-1 esitetään.

Koodi:

 Sub VBAPaste2 () Range ("B3"). Copy Range ("D1: D3"). Valitse End Sub

Vaihe 4: Kun olemme kopioineet tiedot ja valinneet solut, joihin se täytyy liittää. Valitse nyt Liitä- komento ActiveSheet- toiminnon avulla. Tämä ActiveSheet mahdollistaa kopioidun solun liittämisen etäisyyssoluihin.

Koodi:

 Sub VBAPaste2 () -alue ("B3"). Kopiointialue ("D1: D3"). Valitse ActiveSheet.Paste End Sub

Vaihe 5: Käännä nyt koodi ja suorita se. Nähdään, että solun B3 soluarvo liitetään soluista D1 - D3.

VBA-liitäntä - esimerkki 3

Toinen VBA Paste -menetelmä on manuaalisen prosessin käyttäminen, jota teemme kopiointiin ja liittämiseen.

Noudata seuraavia vaiheita:

Vaihe 1: Kirjoita VBA-liitteen alaluokka alla olevan kuvan mukaisesti.

Koodi:

 Sub VBAPaste3 () Loppu Sub

Vaihe 2: On parempi antaa jakso alaluokalle, jos kirjoitat useita koodeja yhdeksi tiedostoksi. Jos haluat liittää mitään, ensin meidän on kopioitava kyseiset tiedot. Tässä olemme valinneet Kopioi- komennon.

Koodi:

 Sub VBAPaste3 () Selection.Copy End Sub

Vaihe 3: Valitse nyt alue tai viitesolu, joka meidän on kopioitava ja liitettävä. Täällä on Cell D3, jossa on tieto “VBA Paste”.

Koodi:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Valitse End Sub

Vaihe 4: Nyt Excelissä valitsemme solut, joihin meidän on liitettävä tiedot manuaalisesti tai Shift + Ctrl + Ylös / Alas-näppäimillä. Tässä valitaan myös solujen sijainti End (xlUp) -komennolla lähtösolujen alueen valitsemiseksi.

Koodi:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Valitse Range (Selection, Selection.End (xlUp)). Valitse End Sub

Vaihe 5: Valitse nyt ulostulosolualue, tässä olemme valinneet solut D1 - D3, joissa näemme liitetyt tiedot.

Koodi:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Valitse Range (Selection, Selection.End (xlUp)). Select Range ("D1: D3"). Select End Sub Sub

Vaihe 6: Koska tehtävä, joka meidän on suoritettava, on liittämistoiminto, joten meidän on aktivoitava liitäntäkomento VBA: ssa ActiveSheet- komennolla, jota seuraa piste (.) Liitä.

Koodi:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Select Range (Selection, Selection.End (xlUp)). Select Range ("D1: D3"). Valitse ActiveSheet.Paste End Sub

Vaihe 7: Nyt, viimeinkin, salli CutCopyMode-sovellus FALSE-muodossa, mikä tarkoittaa, että vain kopioidaan tiedot sen sijaan, että leikattaisiin niitä myös referenssisolusta.

Koodi:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Select Range (Selection, Selection.End (xlUp)). Select Range ("D1: D3"). Valitse ActiveSheet.Paste Application.CutCopyMode = False End Sub

Vaihe 8: Ennen koodin suorittamista, aseta kohdistin ensin soluun B3. Käännä sitten koodi ja suorita se. Näemme, että tietomme kopioidaan soluihin D1 - D3.

VBA-liitäntä - esimerkki 4

On myös toinen tapa käyttää VBA-liitäntää yhdellä koodirivillä.

Noudata seuraavia vaiheita:

Vaihe 1: Kirjoita alaluokka suoritetun toiminnon järjestyksessä ja nimellä.

Koodi:

 Sub VBAPaste4 () loppu Sub

Vaihe 2: Käytä taulukot -komentoa ja valitse Arkki, jossa työskentelemme. Täällä arkin nimi on “Sheet1”. Voimme käyttää Workbook.Sheet (1) -sovellusta myös valitsemalla ”Sheet1” tämän sijaan.

Koodi:

 Sub VBAPaste4 () -laskentataulukot ("Arkki1"). End Sub

Vaihe 3: Valitse solu, josta kopioimme tiedot. Tässä Range-solumme on B3, jolla on samat tiedot kuin olemme nähneet yllä olevissa esimerkeissä.

Koodi:

 Sub VBAPaste4 () -laskentataulukot ("Arkki1"). Alue ("B3"). End Sub

Vaihe 4: Lisää nyt Kopioi- komento pisteen (.) Jälkeen, kun haluat kopioida tiedot valitusta alue-solusta.

Koodi:

 Sub VBAPaste4 () -laskentataulukot ("Sheet1"). Range ("B3"). Copy End Sub

Vaihe 5: Valitse nyt kohde-komennolla paikka, johon kopioidut tiedot liitetään. Valitse tälle laskentataulukkoksi ”Sheet1”, jonka teimme tämän esimerkin alussa, ja valitse Range-solut missä tahansa samalla arkilla. Tässä olemme valinneet alueen ulostulosolut välillä D1 - D3.

Koodi:

 Sub VBAPaste4 () -laskentataulukot ("Sheet1"). Range ("B3"). Copy Destination: = Worksheets ("Sheet1"). Range ("D1: D3") End Sub

Vaihe 6: Nyt käännä ja suorita. Aiomme, että teksti "VBA Liitä" solusta B3 kopioidaan ja liitetään soluihin D1 - D3 alla esitetyllä tavalla.

Plussat Excel VBA-liitäntään

  • Kahden ensimmäisen esimerkin soveltaminen on helppo ja nopein tapa soveltaa VBA-liitäntää.
  • Jos automatisoimme tällaisen pienen toiminnon, valtaville tiedoille, joissa on vaikea tehdä useita toimintoja, se säästää valtavasti aikaa manuaalisten asioiden tekemiseen.
  • Tietojen kopiointia ja liittämistä ei ole rajoitettu.

Muistettavat asiat

  • Käytä alaluokkia siten, että jos käytät useita moduuleja, niin järjestyksen asettaminen siihen on helppoa seurata ja valita oikea makro.
  • Tallenna excel-tiedosto makrotiedostomuotoon, jotta kirjoitettu koodi säilytetään seuraavaa käyttöä varten.
  • Jos kirjoitat useita riviä koodia, on suositeltavaa kääntää koodi riviltä löytääkseen, onko siinä virhe.
  • On suositeltavaa sijoittaa osoitin soluun B3, jos käytät esimerkkiä-3.

Suositellut artikkelit

Tämä on opas VBA-liitäntään. Tässä keskustelimme VBA Paste -sovelluksesta ja siitä, miten Excel VBA Paste -sovellusta käytetään, sekä käytännön esimerkkejä ja ladattavaa Excel-mallia. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -

  1. VBA-ottelu | Kuinka käyttää?
  2. Excel TRANSPOSE -kaava
  3. VBA-sarja | Helppo Excel-makro
  4. Sisällytetty IF-kaava Excelissä

Luokka:

VBA