VBA automatisk udfyldning (trin for trin vejledning) - Eksempler til brug af autofyld i Excel VBA

Indholdsfortegnelse

Hvad gør autofyld i Excel VBA?

Vi har set autofyld i regneark, hvor cellerne automatisk udfyldes baseret på værdierne i de tidligere celler over det, vi kan bruge VBA, så excel gør opgaven for os, for at gøre dette bruger vi Selection.Autofill-metoden, og vi leverer destination, dvs. op til hvilke celler værdierne skal udfyldes.

Den bedste brug af VBA-autofyldning kommer, når vi skal udfylde formlen for den første celle til cellen i kolonnen. Vi anvender normalt formlen i den første celle. Enten kopierer og indsætter vi til den sidste celle, eller så udfylder vi bare automatisk ved at dobbeltklikke på den lille piletast. Et andet bedste eksempel på brug af autofyld i excel er, når vi har brug for at indsætte serienumre. Vi skriver normalt de første tre tal; derefter trækker vi ned til den krævede sidste celle.

I VBA kan vi udføre opgaven med AutoFill-metoden. I denne artikel viser vi dig, hvordan vi kan bruge metoden til autofyld og måder at skrive koden på. Nu vil vi se, hvordan vi kan bruge dette værktøj til VBA-kodning.

Hvordan bruges autofyld i VBA?

For at bruge autofyld i VBA er vi nødt til at forstå syntaksen for metoden med autofyld. Nedenfor er syntaksen for autofyldningen.

  • Område (“A1”): Hvad er cellerne til at identificere mønsteret i udfyldningsserien.
  • Destination: Indtil hvilken celle du vil fortsætte udfyldningsseriemønsteret. Her skal vi nævne hele spektret af celler.
  • Skriv som xlAutoFillType: Her kan vi vælge seriefyldtype . Nedenfor er listen over varer i denne parameter - xlFillCopy, xlFillDays, xlFillDefault, xlFillFormats, xlFillMonths, xlFillSeries, xlFillValues, xlFillWeekdays, xlFillYears, xlFlashFill, xlGrowthTrend, xlFillYears, xlFlashFill, xlGrowthTrend.

Eksempler på autofyld i Excel VBA

Lad os se nogle enkle til avancerede eksempler på VBA AutoFill i Excel.

Eksempel # 1 - xlFillDefault

Indtast først 3 serienumre i de første tre celler.

I VBA-delproceduren skal VBA-området nævnes som Range (“A1: A3”)

Kode:

Sub AutoFill_Example1 () Range ("A1: A3"). Afslut sub

Nu får du adgang til AutoFill-metoden.

Indtast destinationen som rækkevidde (“A1: A10”)

Kode:

Område ("A1: A3"). Destination for automatisk udfyldning: = Område ("A1: A10")

Vælg Type som xlFillDefault .

Kode:

Område ("A1: A3"). Destination for automatisk udfyldning: = Område ("A1: A10"), Type: = xlFillDefault

Kør nu koden, vi får serienumrene fra 1 til 10.

Da vi nævnte slutdestinationscellen som A10, er den stoppet der, og vi kan indtaste destinationscellen som den sidste celle i excel.

Eksempel # 2 - xlFillCopy

For de samme numre bruger vi typen som xlFillCopy.

Kode:

Sub AutoFill_Example1 () Range ("A1: A3"). AutoFill Destination: = Range ("A1: A10"), Type: = xlFillCopy End Sub

Jeg har en kopi af de første tre celler til de resterende celler.

Eksempel # 3 - xlFillMonths

I dette eksempel har jeg indtastet de første tre måneder i de første 3 celler.

Skift autofyldtypen til xlFillMonths.

Kode:

Sub AutoFill_Example1 () Range ("A1: A3"). AutoFill Destination: = Range ("A1: A10"), Type: = xlFillMonths End Sub

Dette udfylder månedsserien.

Eksempel # 4 - xlFillFormats

I dette eksempel har jeg indtastet tal og anvendt formatering på disse celler.

Nu vil jeg ændre typen til xlFillFormats.

Kode:

Sub AutoFill_Example1 () Range ("A1: A3"). AutoFill Destination: = Range ("A1: A10"), Type: = xlFillFormats End Sub

Kør denne kode og se hvad der sker.

Det har udfyldt formater for de første tre celler til de næste tre celler og igen, de næste tre celler og så videre.

Eksempel # 5 - xlFlashFill

I dette eksempel har jeg indtastet et par værdier fra celle A1 til A10, som vist på billedet nedenfor.

Fra denne liste vil jeg udtrække den numeriske del. For at fortælle excel om mønsteret vil jeg i den første celle manuelt indtaste den numeriske del af den første celle.

Nu skriver jeg koden som normalt og ændrer typen til xlFlashFill. Denne gang bruger vi B-kolonneområdet.

Kode:

Sub AutoFill_Example1 () Range ("B1"). AutoFill Destination: = Range ("B1: B10"), Type: = xlFlashFill End Sub

Hvis jeg kører denne kode, får vi resultatet som nedenfor.

Dette er oversigten over VBA AutoFill-metoden. Jeg håber, du har nydt det.

Du kan downloade denne VBA AutoFyld Excel-skabelon herfra - VBA AutoFyld Excel-skabelon

Interessante artikler...