Kuidas kleepida lõikelauast Excelisse kasutades VBA-d

Hugh West

16-10-2023 Makros &; Excel VBA
  • Jaga Seda
Hugh West

Kui lõikate või kopeerite teksti või pilti, salvestatakse see kõigepealt lõikelauale. Seejärel saate teksti või pildi kleepida kuhugi, näiteks Wordi failidesse ja Exceli failidesse. Excelis saate lõikelauast kleepida mitmel viisil. Kasutades Microsofti Visual Basic rakendused (VBA) võimaldab teil kleepida lõikelauast oma Exceli faili mõned koodid. Selles artiklis näitan teile 3 meetodit, kuidas kasutada VBA kleepida lõikelauast Excelisse.

Oletame, et teil on kopeeris mõned tekstid tekstifailist ja need on salvestatud lõikelauale. Nüüd soovite kleepida selle oma Exceli faili kasutades VBA .

Lae alla praktiline töövihik

Lõikeplaadilt Exceli sisestamine.xlsm

3 meetodit lõikelauast Exceli kleepimiseks VBA abil

1. Sisestamine lõikelauast ühte lahtrisse VBA abil

Enne selle meetodi rakendamist tuleb aktiveerida Microsoft Forms 2.0 objektide raamatukogu jaoks VBA projekti. Selleks,

➤ Press ALT+F11 avada The VBA

➤ Go to Tööriistad> Viited aastal VBA aken.

See avab Viide - VBAProjekt aken.

➤ Kontrollida Microsoft Forms 2.0 objektide raamatukogu ja klõpsake OK .

See aktiveerib Microsoft Forms 2.0 objektide raamatukogu . nüüd,

➤ Klõpsake nuppu Sisesta vahekaart ja valige Moodul .

See avab Moodul(kood) aken.

➤ Sisestage järgmine kood faili Moodul(kood) aken, 

 Sub Paste_from_Clipboard() Dim CObj As MSForms.DataObject Set CObj = New MSForms.DataObject CObj.GetFromClipboard XText = CObj.GetText(1) ActiveSheet.Range("B4").Value = XText End Sub

Kood loob Makro mis kleebib tekstid lõikelauast lahtrisse B4 .

Pärast koodi sisestamist,

➤ Klõpsake nuppu Käivita ikooni või vajutage F5 .

Nüüd,

➤ Sulge või minimeeri VBA aken.

Näete, et tekstid lõikelauast on kleebitud lahtrisse B4 .

Loe edasi: Kuidas kopeerida ja kleepida Excelis ilma valemiteta (7 lihtsat trikki)

Sarnased lugemised

  • Kuidas kopeerida unikaalsed väärtused Exceli teisele töölehele (5 meetodit)
  • Koopia ühendatud ja filtreeritud lahtrid Excelis (4 meetodit)
  • Kuidas kopeerida ridu Excelis (4 lihtsat viisi)
  • Tuhandete ridade kopeerimine ja kleepimine Excelis (3 võimalust)
  • Kuidas kopeerida ja kleepida täpne vorming Excelis (kiire 6 meetodit)

2. SendKeys'i abil lõikelauast kleepimine

See meetod põhineb kiirklahvil CTRL+V mida kasutatakse andmete kleepimiseks. Kui on olemas VBA koodi, saate kasutada seda käsku andmete kleepimiseks lõikelauast. Esiteks,

➤ Tehke paremklõps lehe nimele lehel Projekt paneel VBA aken.

Ilmub rippmenüü.

➤ Laienda Sisesta klõpsates ja seejärel valides Moodul .

See avab Moodul(kood) aken.

➤ Sisestage järgmine kood faili Moodul(kood) aken, 

 Sub Paste_from_Clipboard_2() ActiveSheet.Range("B4").Select SendKeys "^v" End Sub

Kood loob Makro nimega Paste_from_Clipboard_2 mis annab käsu CTRL+V pärast lahtri valimist B4 ja kleepige andmed lõikelauast sellesse lahtrisse.

Nüüd,

➤ Sulge või minimeeri VBA aken.

➤ Press ALT+F8

See avab Makro aken.

➤ Valige Paste_from_Clipboard_2 aastal Makro nimi kasti ja klõpsake nuppu Käivita .

Selle tulemusena näete, et tekstid lõikelauast on kleebitud lahtrisse B4 .

Loe edasi: Excel VBA ainult väärtuste kopeerimiseks sihtkohta (makro, UDF ja UserForm)

3. Lõikeplaadist vahemikku kleepimine

Selles meetodis näitan teile, kuidas saate kopeerida erinevaid andmeid lehest lõikelauale ja kleepida need andmed lõikelaualt teisele lehele.

Oletame, et teil on järgmine andmekogum lehel nimega Andmed .

Nüüd,

➤ Press ALT+11 avada VBA aken.

➤ Tehke paremklõps lehe nimele lehel Projekt paneel VBA aken.

Ilmub rippmenüü.

➤ Laienda Sisesta klõpsates ja seejärel valides Moodul .

See avab Moodul(kood) aken.

➤ Sisestage järgmine kood faili Moodul(kood) aken, 

 Sub Copy_Clipboard_Range() Worksheets("Data").Range("B4:E9").Copy ActiveSheet.Paste Destination:=Worksheets("Paste sheet").Range("B5:E10") End Sub

Kood kopeerib andmed aadressilt B4:E9 lehe nimega Andmed lõikelauale. Pärast seda kleebib ta andmed sisse B5:E10 lehe nimega Paste Sheet lõikelauast.

Pärast seda,

➤ Sulge või minimeeri VBA aken.

➤ Press ALT+F8

See avab Makro aken.

➤ Valige Copy_Clipboard_Range aastal Makro nimi kasti ja klõpsake nuppu Käivita .

Selle tulemusena kleebitakse teie andmed soovitud sihtkohta.

➤ Minge Kodu vahekaart ja klõpsake vasakus alumises nurgas oleval väikesel allapoole suunatud noole ikoonil. Klambrilaua lint.

See avab lõikelaua Exceli faili vasakul poolel.

Nüüd näete, et andmed, mis on lehele kleebitud, on lõikelauas. Tegelikult salvestati andmed kõigepealt siia ja seejärel kleebiti need siit lehele.

Loe edasi: Valemi kopeerimine ja kleepimine Excelis (5 näidet)

Kokkuvõte

Selles artiklis leiate 3 meetodit lõikelauast Exceli kleepimiseks, kasutades järgmist VBA Esimesed kaks meetodit kleebivad lõikelaua sisu ühte lahtrisse, kuid kolmanda meetodiga saate kleepida andmeid vahemikku. Kui teil on segadust, jätke palun kommentaar.

Eelmine postitus Kuidas näidata Excelis jälgimisnoolt (2 praktilist viisi)
Järgmine postitus Kuidas värskendada kõiki Pivot-tabeleid VBAga (4 võimalust)

Hugh West on suurte kogemustega Exceli koolitaja ja analüütik, kellel on selles valdkonnas üle 10-aastane kogemus. Tal on raamatupidamise ja rahanduse bakalaureusekraad ning ärijuhtimise magistrikraad. Hugh’l on kirg õpetamise vastu ning ta on välja töötanud ainulaadse õpetamisviisi, mida on lihtne järgida ja mõista. Tema Exceli ekspertteadmised on aidanud tuhandetel õpilastel ja spetsialistidel üle maailma oma oskusi parandada ja karjääris silma paista. Oma ajaveebi kaudu jagab Hugh oma teadmisi maailmaga, pakkudes tasuta Exceli õpetusi ja veebikoolitusi, mis aitavad üksikisikutel ja ettevõtetel oma potentsiaali täielikult ära kasutada.