Kaip įterpti iš iškarpinės į "Excel" naudojant VBA

Hugh West

16-10-2023 Makrokomandos ir "Excel VBA
  • Pasidalinti
Hugh West

Jei iškirpsite arba nukopijuosite bet kokį tekstą ar paveikslėlį, jis pirmiausia bus išsaugotas iškarpinėje. Po to tekstą ar paveikslėlį galėsite įklijuoti bet kur, pvz., į "Word" ir "Excel" failus. Programoje "Excel" iš iškarpinės galite įklijuoti įvairiais būdais. Naudodami "Microsoft "Visual Basic" programos (VBA) galite įklijuoti iš iškarpinės į "Excel" failą, naudodami tam tikrus kodus. Šiame straipsnyje parodysiu 3 būdus, kaip naudoti VBA įklijuoti iš iškarpinės į "Excel".

Tarkime, turite nukopijuoti kai kurie tekstai iš tekstinio failo ir jie buvo išsaugoti iškarpinėje. Dabar norite juos įklijuoti į "Excel" failą naudodami VBA .

Atsisiųsti praktikos sąsiuvinį

Įklijuoti iš iškarpinės į "Excel.xlsm

3 metodai, kaip įterpti iš iškarpinės į "Excel" naudojant VBA

1. Įklijuokite iš iškarpinės į vieną ląstelę naudodami VBA

Prieš taikydami šį metodą turite aktyvuoti "Microsoft Forms 2.0" objektų biblioteka už VBA projektą. Kad tai padarytumėte,

➤ Spauda ALT+F11 atidaryti VBA

➤ Eiti į Įrankiai> Nuorodos į VBA langas.

Bus atidarytas Nuoroda - VBAProject langas.

➤ Patikrinti "Microsoft Forms 2.0" objektų biblioteka ir spustelėkite GERAI .

Jis suaktyvins "Microsoft Forms 2.0" objektų biblioteka . Dabar,

➤ Spustelėkite Įdėkite skirtuką ir pasirinkite Modulis .

Bus atidarytas Modulis (kodas) langas.

➤ Įterpkite šį kodą į Modulis (kodas) langas, 

 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

Kodas sukurs Makro kuris įklijuos tekstus iš iškarpinės į ląstelę B4 .

Įterpę kodą,

➤ Spustelėkite Paleisti piktogramą arba paspauskite F5 .

Dabar,

➤ Uždarykite arba sumažinkite VBA langas.

Pamatysite, kad tekstai iš iškarpinės buvo įterpti į langelį B4 .

Skaityti daugiau: Kaip kopijuoti ir įklijuoti "Excel" be formulių (7 lengvi triukai)

Panašūs skaitiniai

  • Kaip nukopijuoti unikalias vertes į kitą "Excel" darbalapį (5 metodai)
  • Sujungtų ir filtruotų ląstelių kopijavimas "Excel" programoje (4 metodai)
  • Kaip kopijuoti eilutes "Excel" programoje (4 paprasti būdai)
  • Tūkstančių eilučių kopijavimas ir įklijavimas "Excel" programoje (3 būdai)
  • Kaip kopijuoti ir įklijuoti tikslų formatavimą programoje "Excel" (greiti 6 metodai)

2. Įklijuoti iš iškarpinės pagal SendKeys

Šis metodas pagrįstas sparčiuoju klavišu CTRL+V kuris naudojamas duomenims įklijuoti. VBA kodą, galite naudoti šią komandą duomenims iš iškarpinės įklijuoti. Pirma,

➤ Dešiniuoju pelės mygtuku spustelėkite lapo pavadinimą iš Projektas skydelis VBA langas.

Bus rodomas išplečiamasis meniu.

➤ Išplėsti Įdėkite spustelėdami ir pasirinkite Modulis .

Bus atidarytas Modulis (kodas) langas.

➤ Įterpkite šį kodą į Modulis (kodas) langas, 

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

Kodas sukurs Makro pavadinimu Įklijuoti_iš_klipinės_2 kuris duos komandą CTRL+V pasirinkus langelį B4 ir įklijuokite duomenis iš iškarpinės į šį langelį.

Dabar,

➤ Uždarykite arba sumažinkite VBA langas.

➤ Spauda ALT+F8

Bus atidarytas Makro langas.

➤ Pasirinkite Įklijuoti_iš_klipinės_2 į Makro pavadinimas langelį ir spustelėkite Paleisti .

Todėl matysite, kad tekstai iš iškarpinės buvo įterpti į langelį B4 .

Skaityti daugiau: "Excel VBA" kopijuoti tik reikšmes į paskirties vietą (makrokomandos, UDF ir vartotojo formos)

3. Įklijuokite iš iškarpinės į diapazoną

Šiuo metodu parodysiu, kaip galite nukopijuoti duomenų diapazoną. iš lapo į iškarpinę ir įklijuoti šiuos duomenis į kitą lapą iš iškarpinės.

Tarkime, kad lape, pavadintame Duomenys .

Dabar,

➤ Spauda ALT+11 atidaryti VBA langas.

➤ Dešiniuoju pelės mygtuku spustelėkite lapo pavadinimą iš Projektas skydelis VBA langas.

Bus rodomas išplečiamasis meniu.

➤ Išplėsti Įdėkite spustelėdami ir pasirinkite Modulis .

Bus atidarytas Modulis (kodas) langas.

➤ Įterpkite šį kodą į Modulis (kodas) langas, 

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

Kodas nukopijuos duomenis iš B4:E9 lapo pavadinimu Duomenys į iškarpinę. Po to ji įklijuos duomenis į B5:E10 lapo pavadinimu Pastos lapas iš iškarpinės.

Po to,

➤ Uždarykite arba sumažinkite VBA langas.

➤ Spauda ALT+F8

Bus atidarytas Makro langas.

➤ Pasirinkite Copy_Clipboard_Range į Makro pavadinimas langelį ir spustelėkite Paleisti .

Todėl jūsų duomenys bus įklijuoti į norimą paskirties vietą.

➤ Eikite į Pagrindinis skirtuką ir spustelėkite mažą rodyklės žemyn piktogramą apatiniame kairiajame kampe. Sąsiuvinė juosta.

Bus atidaryta iškarpinė kairėje "Excel" failo pusėje.

Dabar matote, kad į lapą įklijuoti duomenys yra iškarpinėje. Tiesą sakant, iš pradžių duomenys buvo išsaugoti čia, o tada iš čia jie buvo įklijuoti į lapą.

Skaityti daugiau: Verčių kopijavimo ir įklijavimo "Excel" programoje formulė (5 pavyzdžiai)

Išvada

Šiame straipsnyje rasite 3 būdus, kaip įklijuoti iš iškarpinės į "Excel" naudojant VBA . Taikant pirmuosius du metodus iškarpinės turinį įklijuosite į vieną ląstelę, tačiau taikant trečiąjį metodą galite įklijuoti duomenis į diapazoną. Jei kyla neaiškumų, nedvejodami palikite komentarą.

Ankstesnis įrašas Kaip rodyti sekimo rodykles "Excel" programoje (2 patogūs būdai)
Kitas įrašas Kaip atnaujinti visas Pivot lenteles naudojant VBA (4 būdai)

Hugh Westas yra labai patyręs Excel treneris ir analitikas, turintis daugiau nei 10 metų patirtį šioje srityje. Jis yra įgijęs apskaitos ir finansų bakalauro bei verslo administravimo magistro laipsnius. Hugh turi aistrą mokymui ir sukūrė unikalų mokymo metodą, kurį lengva sekti ir suprasti. Jo ekspertinės žinios apie „Excel“ padėjo tūkstančiams studentų ir specialistų visame pasaulyje tobulinti savo įgūdžius ir tobulėti savo karjeroje. Savo tinklaraštyje Hugh dalijasi savo žiniomis su pasauliu, siūlydamas nemokamus „Excel“ vadovėlius ir internetinius mokymus, kad padėtų asmenims ir įmonėms išnaudoti visą savo potencialą.