Excel VBA Lim inn verdier
Copy & Paste er ikke den største jobben i verden !!! Men å kopiere og lime inn med spesielle alternativer krever en slags kunnskap i VBA. Dette er ikke den rette prosessen som den enkle kopier og lim inn. En av de viktige limspesialmetodene er "Lim inn verdier" i VBA.
Hvordan limer du inn verdier i Excel ved hjelp av VBA?
Eksempel 1 - Bruke Lim inn spesial
Se for eksempel på regnearkbildet nedenfor.
I celle B6 har vi brukt formelen for å beregne de totale salgsverdiene fra B2 til B5-celler. Nå, hvis jeg kopierer og limer inn cellen B6 til C6, får jeg ikke verdien 22,761, men jeg får den tilsvarende formelen.
For å gjennomføre det samme i VBA, trenger vi kodingskunnskap. Vi viser deg hvordan du limer inn verdier ved hjelp av VBA. Følg trinnene nedenfor.
Trinn 1: Kopier cellen B6.
For å kopiere cellen B6, bruk koden som Range (“B6”)
Trinn 2: Velg destinasjonscellen. I dette tilfellet C6-celle.
Som du kan se etter kopien, spør den: "Destinasjon." Dette er ingenting, men hvor vil du lime inn, så velg "Destinasjon" som Område ("C6")
Kode:
Sub Paste_Values () Range ("B6"). Copy Range ("C6") End Sub
Trinn 3: Kjør koden
Kjør denne koden for å få B6-kopien i C6.
Vi har bare formelen her.
Trinn 4: Utfør en lim inn spesiell metode.
For å utføre limespesialmetoden, la oss se på syntaksen nedenfor for limespesialmetoden.
I limespesialmetoden har vi flere metoder. Basert på operasjonen vi gjør, må vi velge typen deretter.
For å forstå, la oss dele koden i to linjer.
Den første er å kopiere celle B6.
Nå i neste linje, skriv destinasjonscellen som Range (“C6”)
Nå for å få tilgang til Lim inn spesiell metode, sett en prikk og begynn å skrive bokstaven "P."
I den ovennevnte rekke alternativer, velg "Lim inn spesiell" -metoden.
Etter å ha valgt metoden, trykk mellomromstasten for å se de forskjellige lim inn spesielle metodene.
Velg "xlPasteValues" i denne rekke alternativer.
Etter å ha valgt alternativet, trykk på tabulatortasten for å velge automatisk.
Kode:
Sub Paste_Values () Range ("B6"). Copy Range ("C6") PasteSpecial xlPasteValues End Sub
Trinn 5: Kjør koden
Kjør nå koden, vi skal bare få verdien av cellen B6 til cellen C6.
Hvis du legger merke til regnearket etter å ha kjørt koden, er det fortsatt bare i kopimodus.
Dette vil deaktivere den kopierte kopimodus etter at lim-spesialmetoden er utført.
Eksempel 2 - Lim inn spesial med løkker
Lim inn spesial er enkelt, men når det gjelder å bruke dette som en del av en stor kode, krever det et avansert nivå av kodingsferdigheter.
Se for eksempel på bildet nedenfor.
I bildet ovenfor av regnearket i kolonne "F" har vi en total kolonne, dvs. i F2-, F5-, F8-, F11- og F14-celler.
Nå er kravet mitt å kopiere hver totale celle fra den respektive cellen og lime inn i kolonnen "H" med respektive celler.
Ved å bruke koden nedenfor, med VBA-sløyfer, kan vi gjøre dette.
Kode:
Sub Paste_Values1 () Dim k As Integer Dim j As Integer j = 2 For k = 1 To 5 Cells (j, 6). Copy Cells (j, 8). PasteSpecial xlPasteValues j = j + 3 Next k End Sub
Denne koden med lim inn spesialalternativet vil utføre oppgaven med å kopiere hver totale celle og lime inn i kolonnen "H" med respektive celler.
Eksempel 3 - Kopier fra regneark til et annet
For å lime inn verdier fra ett regneark til et annet, må vi nevne begge regnearknavnene. Nedenfor er et eksempel på det.
Sub Paste_Values2 () regneark ("Sheet1"). Område ("A1"). Kopier regneark ("Sheet2"). Range ("A15"). PasteSpecial xlPasteValues End Sub
