Excel VBA Indsæt værdier
Copy & Paste er ikke det største job i verden !!! Men kopiering og indsætning med specielle indstillinger kræver en form for viden i VBA. Dette er ikke den lige proces som den enkle kopi og indsæt. En af de vigtige pasta-specielle metoder er "Paste Values" i VBA.
Sådan indsættes værdier i Excel ved hjælp af VBA?
Eksempel # 1 - Brug af Paste Special
Se f.eks. Nedenstående regnearksbillede.
I celle B6 har vi anvendt formlen til at beregne de samlede salgsværdier fra B2 til B5-celler. Nu, hvis jeg kopierer og indsætter cellen B6 til C6, får jeg ikke værdien 22.761, men jeg får den tilsvarende formel.
For at udføre det samme i VBA har vi brug for kodende viden. Vi viser dig, hvordan du indsætter værdier ved hjælp af VBA. Følg nedenstående trin.
Trin 1: Kopier cellen B6.
For at kopiere celle B6 skal du bruge koden som Range (“B6”)
Trin 2: Vælg destinationscelle. I dette tilfælde C6-celle.
Som du kan se efter kopien, spørger den: "Destination." Dette er intet andet end hvor vil du indsætte, så vælg "Destination" som rækkevidde ("C6")
Kode:
Sub Paste_Values () Range ("B6"). Copy Range ("C6") End Sub
Trin 3: Kør koden
Kør denne kode, vi får B6-kopien i C6.
Vi har kun formlen her.
Trin 4: Udfør en Indsæt speciel metode.
For at udføre den specielle indsætningsmetode, lad os se på nedenstående syntaks for indsæt specialmetoden.
I pastaens specielle metode har vi flere metoder. Baseret på den operation, vi udfører, skal vi vælge typen i overensstemmelse hermed.
For at forstå, lad os opdele koden i to linjer.
Den første er at kopiere celle B6.
Skriv nu destinationscellen i næste linje som rækkevidde (“C6”)
Nu for at få adgang til Indsæt speciel metode sæt et punktum og start med at skrive bogstavet "P."
I ovenstående række af valg skal du vælge "Indsæt speciel" -metoden.
Når du har valgt metoden, skal du trykke på mellemrumstasten for at se de forskellige særlige specielle metoder.
I denne række af valgmuligheder skal du vælge “xlPasteValues”.
Når du har valgt indstillingen, skal du trykke på tabulatortasten for automatisk at vælge.
Kode:
Sub Paste_Values () Range ("B6"). Copy Range ("C6"). PasteSpecial xlPasteValues End Sub
Trin 5: Kør koden
Kør nu koden, vi skal kun få værdien af cellen B6 til cellen C6.
Hvis du bemærker regnearket efter kørsel af koden, er det stadig kun i kopitilstand.
Dette deaktiverer den udskårne kopitilstand, efter at den specielle metode er udført.
Eksempel 2 - Indsæt specielt med løkker
Indsæt speciel er let, men med hensyn til at bruge dette som en del af en stor kode kræver et avanceret niveau af kodningsfærdigheder.
Se for eksempel på nedenstående billede.
I ovenstående billede af regnearket i kolonne "F" har vi en samlet kolonne, dvs. i F2-, F5-, F8-, F11- og F14-celler.
Nu er mit krav at kopiere hver total celle fra den respektive celle og indsætte i kolonnen "H" med de respektive celler.
Ved hjælp af nedenstående kode med VBA-sløjfer kan vi gøre dette.
Kode:
Sub Paste_Values1 () Dim k som heltal Dim j som heltal j = 2 For k = 1 til 5 celler (j, 6). Kopier celler (j, 8). PasteSpecial xlPasteValues j = j + 3 Næste k Afslut sub
Denne kode med specialindstilling for pasta udfører opgaven med at kopiere hver samlede celle og indsætte i kolonnen “H” med de respektive celler.
Eksempel # 3 - Kopier fra regneark til et andet
For at indsætte værdier fra et regneark til et andet skal vi nævne begge regnearknavne. Nedenfor er et eksempel på det.
Sub Paste_Values2 () regneark ("Sheet1"). Område ("A1"). Kopier regneark ("Sheet2"). Range ("A15"). PasteSpecial xlPasteValues End Sub
