Kopier indsæt i VBA svarer til det, vi gør i excel-regneark, ligesom vi kan kopiere en værdi og indsætte den i en anden celle, vi kan også bruge pasta speciel til kun at indsætte værdierne, ligesom vi i VBA bruger kopimetoden med rækkeegenskab til kopier en værdi fra en celle til en anden og indsæt den værdi, vi bruger regnearkfunktionen, indsæt special eller indsæt metoden.
Hvordan kopieres indsætning i VBA?
Nedenfor er nogle eksempler på, hvordan man kopierer og indsætter i Excel ved hjælp af VBA.
Den grundlæggende ting, vi gør i Excel, er, at vi kopierer, klipper og indsætter data fra en celle til en anden celle. Det kræver heller ingen særlig introduktion. Imidlertid er det vigtigt at forstå det samme koncept i kodningssproget, mens man lærer VBA-kodning. Copy Paste i VBA er den rutinemæssige opgave, vi udfører dag for dag i Excel. For at kopiere først skal vi beslutte, hvilken celle der skal kopieres.
Eksempel # 1 - Kopier og indsæt værdier ved hjælp af områdeobjekt
Antag at du har ordet "Excel VBA" i cellen A1.
Lad os sige, for eksempel, hvis du vil kopiere cellen A1, kan vi bruge VBA RANGE-objektet.
Kode:
Under Copy_Example () Range ("A1"). Afslut sub
I det øjeblik du refererer til cellen, kan vi se alle egenskaberne og metoderne med den. Så vælg metoden " Kopier".
Kode:
Sub Copy_Example () Range ("A1"). Copy End Sub
Når du har valgt metoden, skal du trykke på mellemrumstasten for at se argumentet for kopimetoden.
Det siger Destination.
Dette er ikke noget, men hvor vil du kopiere og indsætte værdier i VBA uden at vælge PASTE-metoden.
Hvis vi klistrer i det samme ark, kan vi vælge cellen ved hjælp af Range-objektet. Lad os sige, at hvis vi vil indsætte værdien i B3-celle, kan vi sætte destinationen som "Område (" B3 ")."
Kode:
Sub Copy_Example () Range ("A1") Copy Destination: = Range ("B3") End Sub
Dette kopierer dataene fra celle A1 og indsætter i celle B3.
Vi kan også bruge nedenstående metode til at indsætte dataene.
Kode:
Sub Copy_Example () Range ("A1"). Copy Range ("B3") Vælg ActiveSheet. Indsæt End Sub
Først vil vi kopiere og vælge dataene fra celle A1 og indsætte i celle B3.
Eksempel # 2 - Kopier til et andet regneark i samme projektmappe
Nu, hvis vi vil kopiere og indsætte værdien fra de forskellige regneark ved hjælp af VBA-makro, skal vi i destinationsargumentet henvise til arknavnet ved hjælp af WORKSHEETS-objektet og derefter nævne rækkevidden af celler i det WORKSHEET. Nedenstående kode udfører jobbet.
Kode:
Sub Copy_Example () Range ("A1"). Copy Destination: = Worksheets ("Sheet2"). Range ("B3") End Sub
Hvis vi vil kopiere dataene fra et bestemt ark og ønsker at indsætte i et andet bestemt ark, skal vi nævne begge navnene på arkene.
For det første skal vi nævne kopieringsarket.
Arbejdsark ("Ark1"). Område ("A1"). Kopiér
Derefter skal vi i Destination-argumentet nævne det målrettede regnearksnavn og celleområdet.
Destination: = regneark ("Sheet2"). Område ("B3")
Så koden skal kunne lide dette.
Kode:
Sub Copy_Example () regneark ("Sheet1"). Område ("A1"). Kopi Destination: = Worksheets ("Sheet2"). Range ("B3") Afslut Sub
Eksempel # 3 - Kopier fra en projektmappe til en anden projektmappe
Vi har set, hvordan man kopierer fra regneark til et andet regneark i den samme projektmappe. Men vi kan også gøre dette fra en projektmappe til en anden projektmappe.
Se på nedenstående kode.
Kode:
SubCopy_Example () projektmapper ("Bog 1.xlsx"). Arbejdsark ("Ark1"). Område ("A1"). Kopier projektmapper ("Bog 2.xlsx"). Aktivér ActiveWorkbook.Worksheets ("Ark 2"). Vælg ActiveSheet.Paste End Sub
For det første kopieres dataene fra regnearket "Sheet1" i projektmappen "Book1.xlsx" fra cellen A1.
" Arbejdsbøger (" Bog 1.xlsx "). Arbejdsark (" Ark1 "). Område (" A1 "). Kopiér"
Derefter aktiveres projektmappen "Bog 2.xlsx".
Arbejdsbøger ("Bog 2.xlsx"). Aktivér
I den aktive projektmappe vælger den regnearket "Ark 2."
ActiveWorkbook.Worksheets ("Ark 2"). Vælg
Nu i det aktive ark indsættes det.
ActiveSheet.Paste
Alternativ måde at bruge Copy-Paste i VBA på
Vi har en anden alternativ måde at have dataene fra en celle til en anden celle. Antag, at du har ordet "Excel VBA" i cellen A1, og at du har brug for det samme for at komme i celle B3.
En metode, vi har set, er at bruge VBA kopier og indsæt metoden. Nu vil jeg vise dig en af de alternative måder. Se på nedenstående stykke kode for at forstå.
Kode:
Sub Copy_Example1 () Range ("A1"). Value = Range ("B3"). Value End Sub
The above says whatever the value is there in the cell A1 should be equal to the value in the cell B3.
Range("A1").Value = Range("B3").Value
Even though this is not a copy and paste method still adds more value to our coding knowledge.
Top Ways of VBA Copy and Paste as Values
Now we will see different ways of VBA copy and paste values. Assume you are in the cell A1 as shown in the below image.
- If we want to copy and paste, we need to reference the cell here. Rather we can just use a property of Selection. Copy method.
Code:
Sub Copy_Example1() Selection.Copy Destination:=Range("B3") End Sub
OR
Sub Copy_Example1() ActiveCell.Copy Destination:=Range("B3") End Sub
- If you want to copy the entire used range of the worksheet, you can use the below code.
Code:
Sub Copy_Example2 () regneark ("Sheet1"). UsedRange.Copy Destination: = Worksheets ("Sheet2"). Range ("A1") End Sub
Dette kopierer hele det anvendte interval i regnearket "Sheet1" og indsætter det samme i regnearket "Sheet2".
