Sådan indsættes fra udklipsholder til Excel ved hjælp af VBA

Hugh West

16-10-2023 Makroer & Excel VBA
  • Del Dette
Hugh West

Hvis du klipper eller kopierer en tekst eller et billede, gemmes det først i udklipsholderen. Derefter kan du indsætte teksten eller billedet et hvilket som helst sted, f.eks. i Word-filer og Excel-filer. I Excel kan du indsætte fra udklipsholderen på mange måder. Brug af Microsoft Visual Basic-programmer (VBA) giver dig mulighed for at indsætte fra udklipsholderen i din Excel-fil med nogle koder. I denne artikel vil jeg vise dig 3 metoder til at bruge VBA for at indsætte fra udklipsholderen til Excel.

Antag, at du har kopieret nogle tekster fra en tekstfil, og de er gemt i udklipsholderen. Nu vil du indsætte dem i din Excel-fil ved hjælp af VBA .

Download arbejdsbog til øvelser

Indsæt fra udklipsholder til Excel.xlsm

3 metoder til at indsætte fra udklipsholder til Excel ved hjælp af VBA

1. Indsæt fra udklipsholder i en enkelt celle ved hjælp af VBA

Før du anvender denne metode, skal du aktivere Microsoft Forms 2.0 Objektbibliotek for den VBA projekt. For at gøre det,

➤ Tryk på ALT+F11 for at åbne Den VBA

➤ Gå til Værktøj> Referencer i den VBA vindue.

Den åbner den Reference- VBAProjekt vindue.

➤ Tjek Microsoft Forms 2.0 Objektbibliotek og klik på OK .

Det vil aktivere den Microsoft Forms 2.0 Objektbibliotek . nu,

➤ Klik på Indsæt og vælg Modul .

Den åbner den Modul(kode) vindue.

➤ Indsæt følgende kode i Modul(kode) vindue, 

 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

Koden vil oprette en Makro der indsætter teksterne fra udklipsholderen i celle B4 .

Når du har indsat koden,

➤ Klik på Kør ikonet eller tryk på F5 .

Nu,

➤ Luk eller minimer den VBA vindue.

Du vil se, at teksterne fra udklipsholderen er blevet indsat i celle B4 .

Læs mere: Sådan kopierer og indsætter du i Excel uden formler (7 nemme tricks)

Lignende læsninger

  • Sådan kopieres unikke værdier til et andet regneark i Excel (5 metoder)
  • Kopier sammenlagte og filtrerede celler i Excel (4 metoder)
  • Sådan kopierer du rækker i Excel (4 nemme måder)
  • Kopier og indsæt tusindvis af rækker i Excel (3 måder)
  • Sådan kopieres og indsættes nøjagtig formatering i Excel (6 hurtige metoder)

2. Indsæt fra udklipsholder ved SendKeys

Denne metode er baseret på genvejstasten CTRL+V som bruges til at indsætte data. Med en VBA kode, kan du bruge denne kommando til at indsætte data fra udklipsholderen. Først,

➤ Højreklik på arknavnet fra Projekt panel i VBA vindue.

Der vises en rullemenuen.

➤ Udvid Indsæt ved at klikke og derefter vælge Modul .

Den åbner den Modul(kode) vindue.

➤ Indsæt følgende kode i Modul(kode) vindue, 

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

Koden vil oprette en Makro ved navn Indsæt_fra_klippebord_2 der vil give kommandoen CTRL+V efter valg af celle B4 og indsæt dataene fra udklipsholderen i denne celle.

Nu,

➤ Luk eller minimer den VBA vindue.

➤ Tryk på ALT+F8

Den åbner den Makro vindue.

➤ Vælg Indsæt_fra_klippebord_2 i den Makronavn feltet og klik på Kør .

Som et resultat vil du se, at teksterne fra udklipsholderen er blevet indsat i celle B4 .

Læs mere: Excel VBA til kun at kopiere værdier til destinationen (makro, UDF og UserForm)

3. Indsæt fra udklipsholder i et område

I denne metode vil jeg vise dig, hvordan du kan kopiere en række data fra et ark til udklipsholderen og indsætte disse data i et andet ark fra udklipsholderen.

Antag, at du har følgende datasæt i et ark med navnet Data .

Nu,

➤ Tryk på ALT+11 for at åbne den VBA vindue.

➤ Højreklik på arknavnet fra Projekt panel i VBA vindue.

Der vises en rullemenuen.

➤ Udvid Indsæt ved at klikke og derefter vælge Modul .

Den åbner den Modul(kode) vindue.

➤ Indsæt følgende kode i Modul(kode) vindue, 

 Sub Copy_Clipboard_Range() Arbejdsark("Data").Range("B4:E9").Copy ActiveSheet.Paste Destination:=Arbejdsark("Indsæt ark").Range("B5:E10") End Sub

Koden kopierer dataene fra B4:E9 i arket med navnet Data i udklipsholderen. Derefter vil den indsætte dataene i B5:E10 i arket med navnet Klister ark fra udklipsholderen.

Derefter,

➤ Luk eller minimer den VBA vindue.

➤ Tryk på ALT+F8

Den åbner den Makro vindue.

➤ Vælg Copy_Clipboard_Range i den Makronavn feltet og klik på Kør .

Dine data vil derfor blive indsat på den ønskede destination.

➤ Gå til Hjem fanen og klik på det lille pil nedadgående ikon fra det nederste venstre hjørne af Udklipsholder bånd.

Det åbner udklipsholderen til venstre for din Excel-fil.

Nu kan du se, at de data, der er blevet indsat i arket, er i udklipsholderen. Faktisk blev dataene først gemt her, og derefter blev de indsat i arket herfra.

Læs mere: Formel til at kopiere og indsætte værdier i Excel (5 eksempler)

Konklusion

I denne artikel finder du 3 metoder til at indsætte fra udklipsholderen til Excel ved hjælp af VBA De to første metoder indsætter indholdet af udklipsholderen i en enkelt celle, men med den tredje metode kan du indsætte data i et område. Hvis du er forvirret, er du velkommen til at efterlade en kommentar.

Forrige indlæg Sådan vises sporingspile i Excel (2 praktiske måder)
Næste indlæg Sådan opdateres alle pivottabeller med VBA (4 måder)

Hugh West er en meget erfaren Excel-træner og analytiker med over 10 års erfaring i branchen. Han har en bachelorgrad i regnskab og finans og en kandidatgrad i Business Administration. Hugh har en passion for undervisning og har udviklet en unik undervisningstilgang, der er nem at følge og forstå. Hans ekspertviden om Excel har hjulpet tusindvis af studerende og fagfolk verden over med at forbedre deres færdigheder og udmærke sig i deres karriere. Gennem sin blog deler Hugh sin viden med verden og tilbyder gratis Excel-tutorials og onlinetræning for at hjælpe enkeltpersoner og virksomheder med at nå deres fulde potentiale.