Articles

Bruke Arbeidsbokobjekt I Excel VBA (Åpne, Lukk, Lagre, Sett)

i denne opplæringen vil jeg dekke hvordan du arbeider med arbeidsbøker i Excel ved HJELP AV VBA.

I Excel er En Arbeidsbok et objekt som er en del av Samlingen Arbeidsbøker. I en arbeidsbok har du forskjellige objekter som regneark, diagramark, celler og områder, diagramobjekter, figurer osv.

MED VBA kan DU gjøre mange ting med et arbeidsbokobjekt – for eksempel åpne en bestemt arbeidsbok, lagre og lukke arbeidsbøker, opprette nye arbeidsbøker, endre arbeidsbokegenskapene, etc.

Så la oss komme i gang.

alle kodene jeg nevner i denne opplæringen må plasseres I Visual Basic Editor. Gå Til Delen Hvor Å Sette VBA-Koden for å vite hvordan det fungerer.

hvis du er interessert i å lære VBA på den enkle måten, sjekk ut Min Online Excel VBA Training.

Denne Opplæringen Dekker:

Referere Til En Arbeidsbok ved HJELP AV VBA

det er forskjellige måter å referere til Et Arbeidsbokobjekt i VBA. Metoden du velger vil avhenge av hva du ønsker å få gjort. I denne delen vil jeg dekke de forskjellige måtene å referere til en arbeidsbok sammen med noen eksempelkoder.

Bruke Arbeidsboknavn

hvis du har det eksakte navnet på arbeidsboken du vil referere til, kan du bruke navnet i koden.

la oss begynne med et enkelt eksempel.

hvis du har to arbeidsbøker åpne, og du vil aktivere arbeidsboken med navn-Eksemplene.xlsx, du kan bruke koden nedenfor:

Sub ActivateWorkbook()Workbooks("Examples.xlsx").ActivateEnd Sub

Merk at du må bruke filnavnet sammen med utvidelsen hvis filen er lagret. Hvis den ikke er lagret, kan du bruke navnet uten filtypen.

hvis du ikke er sikker på hvilket navn du skal bruke, kan Du ta hjelp fra Project Explorer.

Regnearkobjekt I Excel VBA - filnavn i project explorer

Hvis du vil aktivere en arbeidsbok Og velge en bestemt celle i et regneark i den arbeidsboken, må du gi hele adressen til cellen (inkludert Arbeidsboken og Regnearknavnet).

Sub ActivateWorkbook()Workbooks("Examples.xlsx").Worksheets("Sheet1").ActivateRange("A1").SelectEnd Sub

koden ovenfor aktiverer Først Ark1 I Eksemplene.xlsx arbeidsbok og deretter velger celle A1 i arket.

du vil ofte se en kode der en referanse til et regneark eller en celle/område er laget uten å referere til arbeidsboken. Dette skjer når du refererer til regnearket / områdene i samme arbeidsbok som har koden i den, og er også den aktive arbeidsboken. I noen tilfeller må du imidlertid angi arbeidsboken for å kontrollere at koden fungerer (mer om dette i Delen ThisWorkbook).

Bruke Indeksnumre

du kan også referere til arbeidsbøkene basert på indeksnummeret.

hvis du for eksempel har tre arbeidsbøker åpne, vil følgende kode vise deg navnene på de tre arbeidsbøkene i en meldingsboks (en om gangen).

Sub WorkbookName()MsgBox Workbooks(1).NameMsgBox Workbooks(2).NameMsgBox Workbooks(3).NameEnd Sub

koden ovenfor bruker MsgBox-som er en funksjon som viser en meldingsboks med angitt tekst / verdi (som er arbeidsboknavnet i dette tilfellet).En av problemene jeg ofte har med å bruke indeksnumre med Arbeidsbøker er at du aldri vet hvilken som er den første arbeidsboken og hvilken som er den andre og så videre. For å være sikker, må du kjøre koden som vist ovenfor eller noe som ligner på sløyfe gjennom de åpne arbeidsbøkene og kjenne deres indeksnummer.

Excel behandler arbeidsboken åpnet først for å ha indeksnummeret som 1, og den neste som 2 og så videre.

Til tross for denne ulempen kan bruk av indeksnumre komme til nytte. Hvis du for eksempel vil gå gjennom alle åpne arbeidsbøker og lagre alt, kan du bruke indeksnumrene. I dette tilfellet, siden du vil at dette skal skje med alle arbeidsbøker, er du ikke bekymret for deres individuelle indeksnumre.

koden nedenfor vil gå gjennom alle åpne arbeidsbøker og lukke alle unntatt arbeidsboken som har DENNE vba-koden.

Sub CloseWorkbooks()Dim WbCount As IntegerWbCount = Workbooks.CountFor i = WbCount To 1 Step -1If Workbooks(i).Name <> ThisWorkbook.Name ThenWorkbooks(i).CloseEnd IfNext iEnd Sub

koden ovenfor teller antall åpne arbeidsbøker og går deretter gjennom alle arbeidsbøkene ved Hjelp Av for hver sløyfe.

DEN bruker HVIS-betingelsen til å kontrollere om navnet på arbeidsboken er det samme som for arbeidsboken der koden kjøres.

hvis det ikke er samsvar, lukkes arbeidsboken og flyttes til neste.

Merk at vi har kjørt sløyfen Fra WbCount til 1 Med Et Trinn på -1. Dette gjøres som med hver sløyfe, antall åpne arbeidsbøker er avtagende.

ThisWorkbook er dekket i detalj i den senere delen.

Bruke ActiveWorkbook

ActiveWorkbook, som navnet antyder, refererer til arbeidsboken som er aktiv.

koden nedenfor viser deg navnet på den aktive arbeidsboken.

Sub ActiveWorkbookName()MsgBox ActiveWorkbook.NameEnd Sub

Når DU bruker VBA til å aktivere en annen arbeidsbok, Vil ActiveWorkbook-delen i VBA etter det begynne å referere til den aktiverte arbeidsboken.

her er et eksempel på dette.

hvis du har en arbeidsbok aktiv og du setter inn følgende kode i den og kjører den, vil den først vise navnet på arbeidsboken som har koden og Deretter Navnet På Eksempler.xlsx (som blir aktivert av koden).

Sub ActiveWorkbookName()MsgBox ActiveWorkbook.NameWorkbooks("Examples.xlsx").ActivateMsgBox ActiveWorkbook.NameEnd Sub

Merk at når du oppretter en ny arbeidsbok ved HJELP AV VBA, blir den nyopprettede arbeidsboken automatisk den aktive arbeidsboken.

Bruke ThisWorkbook

ThisWorkbook refererer til arbeidsboken der koden blir utført.

hver arbeidsbok vil ha Et ThisWorkbook-objekt som en del av det (synlig i Project Explorer).

Arbeidsbokobjekt i VBA - ThisWorkbook

‘ThisWorkbook’ kan lagre vanlige makroer (ligner på de som vi legger til moduler) samt hendelsesprosedyrer. En hendelsesprosedyre er noe som utløses basert på en hendelse, for eksempel å dobbeltklikke på en celle, eller lagre en arbeidsbok eller aktivere et regneark.

enhver hendelsesprosedyre som du lagrer i Denne ‘ThisWorkbook’, vil være tilgjengelig i hele arbeidsboken, sammenlignet med arknivåhendelsene som bare er begrenset til de spesifikke arkene.

hvis du for eksempel dobbeltklikker På ThisWorkbook-objektet i Prosjektutforskeren og kopierer og limer inn koden nedenfor, vil den vise celleadressen når du dobbeltklikker på noen av cellene i hele arbeidsboken.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)MsgBox Target.AddressEnd Sub

Mens ThisWorkbook hovedrolle er å lagre hendelsesprosedyre, kan du også bruke Den til å referere til arbeidsboken der koden blir utført.

koden nedenfor vil returnere navnet på arbeidsboken der koden blir utført.

Sub ThisWorkbookName()MsgBox ThisWorkbook.NameEnd Sub

fordelen med Å bruke ThisWorkbook (Over ActiveWorkbook) er at den vil referere til samme arbeidsbok (den som har koden i den) i alle tilfellene. Så hvis DU bruker EN vba-kode for å legge til en ny arbeidsbok, Vil ActiveWorkbook endres, Men ThisWorkbook vil fortsatt referere til den som har koden.

Opprette Et Nytt Arbeidsbokobjekt

følgende kode vil opprette en ny arbeidsbok.

Sub CreateNewWorkbook()Workbooks.AddEnd Sub

når du legger til en ny arbeidsbok, blir den den aktive arbeidsboken.

følgende kode vil legge til en ny arbeidsbok og deretter vise deg navnet på den arbeidsboken (som ville være standard Book1-typenavn).

Sub CreateNewWorkbook()Workbooks.AddMsgBox ActiveWorkbook.NameEnd Sub

Åpne En Arbeidsbok ved HJELP AV VBA

DU kan bruke VBA til å åpne en bestemt arbeidsbok når du kjenner filbanen til arbeidsboken.

koden nedenfor åpner arbeidsbokeksemplene.xlsx som er I Dokumenter-mappen på systemet mitt.

Sub OpenWorkbook()Workbooks.Open ("C:\Users\sumit\Documents\Examples.xlsx")End Sub

hvis filen finnes i standardmappen, som er mappen DER VBA lagrer nye filer som standard, kan du bare angi arbeidsboknavnet-uten hele banen.

Sub OpenWorkbook()Workbooks.Open ("Examples.xlsx")End Sub

hvis arbeidsboken du prøver å åpne ikke finnes, vil du se en feil.

for å unngå denne feilen kan du legge til noen linjer i koden din for å først sjekke om filen eksisterer eller ikke, og hvis den eksisterer, prøv å åpne den.

koden nedenfor vil sjekke filplasseringen, og hvis den ikke eksisterer, vil den vise en egendefinert melding (ikke feilmeldingen):

Sub OpenWorkbook()If Dir("C:\Users\sumit\Documents\Examples.xlsx") <> "" ThenWorkbooks.Open ("C:\Users\sumit\Documents\Examples.xlsx")ElseMsgBox "The file doesn't exist"End IfEnd Sub

du kan også bruke dialogboksen Åpne for å velge filen du vil åpne.

Sub OpenWorkbook()On Error Resume NextDim FilePath As StringFilePath = Application.GetOpenFilenameWorkbooks.Open (FilePath)End Sub

koden ovenfor åpner Dialogboksen Åpne. Når du velger en fil du vil åpne, tilordner den filbanen til filpath-variabelen. Arbeidsbok.Åpne bruker deretter filbanen til å åpne filen.

hvis brukeren ikke åpner en fil og klikker På Avbryt-knappen, Blir Filpath Falsk. For å unngå å få en feil i dette tilfellet, har vi brukt’ On Error Resume Next ‘ – setningen.

Relatert: Lær Alt Om Feilhåndtering i Excel VBA

Lagre En Arbeidsbok

bruk koden nedenfor for å lagre den aktive arbeidsboken:

Sub SaveWorkbook()ActiveWorkbook.SaveEnd Sub

denne koden fungerer for arbeidsbøker som allerede er lagret tidligere. Også, siden arbeidsboken inneholder makroen ovenfor, hvis den ikke er lagret som en .xlsm (eller .xls) fil, vil du miste makroen når du åpner den neste.

Hvis du lagrer arbeidsboken for første gang, vil den vise deg en melding som vist nedenfor:

Arbeidsbokobjekt I VBA-Advarsel når Du lagrer Arbeidsbok for første gang

når du lagrer for første gang, er det bedre å bruke Alternativet «Saveas».

koden nedenfor vil lagre den aktive arbeidsboken som en .xlsm-filen i standardplasseringen(som er dokumentmappen i systemet mitt).

Sub SaveWorkbook()ActiveWorkbook.SaveAs Filename:="Test.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabledEnd Sub

hvis du vil at filen skal lagres på et bestemt sted, må du nevne Det I Filnavnverdien. Koden nedenfor lagrer filen på skrivebordet mitt.

Sub SaveWorkbook()ActiveWorkbook.SaveAs Filename:="C:\Users\sumit\Desktop\Test.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabledEnd Sub

hvis du vil at brukeren skal få muligheten til å velge plasseringen for å lagre filen, kan du bruke ring Saveas dialogboksen. Koden nedenfor viser Dialogboksen Saveas og lar brukeren velge stedet der filen skal lagres.

Sub SaveWorkbook()Dim FilePath As StringFilePath = Application.GetSaveAsFilenameActiveWorkbook.SaveAs Filename:=FilePath & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabledEnd Sub

Merk at i stedet for Å bruke Filformat:=xlopenxmlworkbookmacroenabled, kan Du også bruke Filformat: = 52, hvor 52 er koden xlOpenXMLWorkbookMacroEnabled.

Lagre Alle Åpne Arbeidsbøker

hvis du har mer enn en arbeidsbok åpen og du vil lagre alle arbeidsbøkene, kan du bruke koden nedenfor:

Sub SaveAllWorkbooks()Dim wb As WorkbookFor Each wb In Workbookswb.SaveNext wbEnd Sub

ovennevnte lagrer alle arbeidsbøkene, inkludert de som aldri har blitt lagret. Arbeidsbøkene som ikke er lagret tidligere, blir lagret på standardplasseringen.

hvis du bare vil lagre arbeidsbøkene som tidligere er lagret, kan du bruke koden nedenfor:

Sub SaveAllWorkbooks()Dim wb As WorkbookFor Each wb In WorkbooksIf wb.Path <> "" Thenwb.SaveEnd IfNext wbEnd Sub

Lagre og Lukke Alle Arbeidsbøker

hvis du vil lukke alle arbeidsbøker, bortsett fra arbeidsboken som har gjeldende kode i den, kan du bruke koden nedenfor:

Sub CloseandSaveWorkbooks()Dim wb As WorkbookFor Each wb In WorkbooksIf wb.Name <> ThisWorkbook.Name Thenwb.Close SaveChanges:=TrueEnd IfNext wbEnd Sub

koden ovenfor vil lukke alle arbeidsbøker (unntatt arbeidsboken som har koden – ThisWorkbook). I tilfelle det er endringer i disse arbeidsbøkene, vil endringene bli lagret. Hvis det er en arbeidsbok som aldri har blitt lagret, vil den vise dialogboksen lagre som.

Lagre En Kopi Av Arbeidsboken (Med Tidsstempel)

når jeg jobber med komplekse data og dashbord i Excel-arbeidsbøker, lager jeg ofte forskjellige versjoner av arbeidsbøkene mine. Dette er nyttig hvis noe går galt med min nåværende arbeidsbok. Jeg ville i det minste ha en kopi av den lagret med et annet navn (og jeg ville bare miste arbeidet jeg gjorde etter å ha laget en kopi).

HER ER VBA-koden som vil lage en kopi av arbeidsboken din og lagre den på den angitte plasseringen.

Sub CreateaCopyofWorkbook()ThisWorkbook.SaveCopyAs Filename:="C:\Users\sumit\Desktop\BackupCopy.xlsm"End Sub

koden ovenfor vil lagre en kopi av arbeidsboken hver gang du kjører denne makroen.Mens dette fungerer bra, ville jeg føle meg mer komfortabel hvis jeg hadde forskjellige kopier lagret når jeg kjører denne koden. Grunnen til at dette er viktig er at hvis jeg gjør en utilsiktet feil og kjører denne makroen, vil den lagre arbeidet med feilene. Og jeg ville ikke ha tilgang til arbeidet før jeg gjorde feilen.

for å håndtere slike situasjoner kan du bruke koden nedenfor som lagrer en ny kopi av arbeidet hver gang du lagrer det. Og det legger også til en dato og tidsstempel som en del av arbeidsboknavnet. Dette kan hjelpe deg med å spore eventuelle feil du gjorde, da du aldri mister noen av de tidligere opprettede sikkerhetskopiene.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)ThisWorkbook.SaveCopyAs Filename:="C:\Users\sumit\Desktop\BackupCopy" & Format(Now(), "dd-mm-yy-hh-mm-ss-AMPM") & ".xlsm"End Sub

koden ovenfor vil lage en kopi hver gang du kjører denne makroen og legge til et dato / klokkeslett-stempel i arbeidsboknavnet.

Opprette En Ny Arbeidsbok for Hvert Regneark

i noen tilfeller kan du ha en arbeidsbok som har flere regneark, og du vil opprette en arbeidsbok for hvert regneark.

dette kan være tilfelle når du har månedlige / kvartalsrapporter i en enkelt arbeidsbok, og du vil dele disse i en arbeidsbok for hvert regneark.

eller, hvis du har avdeling klok rapporter og du vil dele disse i individuelle arbeidsbøker slik at du kan sende disse individuelle arbeidsbøker til avdelingshoder.

her er koden som vil lage en arbeidsbok for hvert regneark, gi det samme navn som regnearket, og lagre det i den angitte mappen.

Sub CreateWorkbookforWorksheets()Dim ws As WorksheetDim wb As WorkbookFor Each ws In ThisWorkbook.WorksheetsSet wb = Workbooks.Addws.Copy Before:=wb.Sheets(1)Application.DisplayAlerts = Falsewb.Sheets(2).DeleteApplication.DisplayAlerts = Truewb.SaveAs "C:\Users\sumit\Desktop\Test\" & ws.Name & ".xlsx"wb.CloseNext wsEnd Sub

i koden ovenfor har vi brukt to variable ‘ws’ og ‘wb’.

koden går gjennom hvert regneark (ved Hjelp Av for Hver neste sløyfe) og lager en arbeidsbok for den. Den bruker også kopieringsmetoden for regnearkobjektet til å opprette en kopi av regnearket i den nye arbeidsboken.

Merk at JEG har brukt SET-setningen til å tilordne variabelen’ wb ‘ til en ny arbeidsbok som er opprettet av koden.

du kan bruke denne teknikken til å tilordne et arbeidsbokobjekt til en variabel. Dette er dekket i neste avsnitt.

Tilordne Arbeidsbokobjekt til En Variabel

I VBA kan DU tilordne et objekt til en variabel, og deretter bruke variabelen til å referere til objektet.i koden nedenfor bruker jeg FOR eksempel vba til å legge til en ny arbeidsbok og deretter tilordne arbeidsboken til variabelen wb. For å gjøre dette må jeg bruke SET-setningen.

når jeg har tilordnet arbeidsboken til variabelen, blir alle egenskapene til arbeidsboken også tilgjengelig for variabelen.

Sub AssigntoVariable()Dim wb As WorkbookSet wb = Workbooks.Addwb.SaveAs Filename:="C:\Users\sumit\Desktop\Examples.xlsx"End Sub

Merk at det første trinnet i koden er å erklære ‘ wb ‘ som en arbeidsboktype variabel. DETTE forteller VBA at denne variabelen kan holde arbeidsbokobjektet.

DEN neste setningen bruker SET til å tilordne variabelen til den nye arbeidsboken som vi legger til. Når denne oppgaven er ferdig, kan vi bruke wb-variabelen til å lagre arbeidsboken (eller gjøre noe annet med det).

Looping Gjennom Åpne Arbeidsbøker

Vi har allerede sett noen eksempler koder over som brukte looping i koden.I denne delen vil jeg forklare forskjellige måter å sløyfe gjennom åpne arbeidsbøker ved HJELP AV VBA.

Anta at du vil lagre og lukke alle åpne arbeidsbøker, bortsett fra den med koden i den, så kan du bruke koden nedenfor:

Sub CloseandSaveWorkbooks()Dim wb As WorkbookFor Each wb In WorkbooksIf wb.Name <> ThisWorkbook.Name Thenwb.Close SaveChanges:=TrueEnd IfNext wbEnd Sub

koden ovenfor bruker for Hver sløyfe å gå gjennom hver arbeidsbok i Arbeidsboksamlingen. For å gjøre dette må vi først deklarere ‘ wb ‘ som variabelen arbeidsboktype.

i hver løkkesyklus analyseres hvert arbeidsboknavn, og hvis det ikke samsvarer med navnet på arbeidsboken som har koden, lukkes det etter at innholdet er lagret.

det samme kan også oppnås med en annen sløyfe som vist nedenfor:

Sub CloseWorkbooks()Dim WbCount As IntegerWbCount = Workbooks.CountFor i = WbCount To 1 Step -1If Workbooks(i).Name <> ThisWorkbook.Name ThenWorkbooks(i).Close SaveChanges:=TrueEnd IfNext iEnd Sub

koden ovenfor bruker For Neste sløyfe for å lukke alle arbeidsbøkene unntatt den som har koden i den. I dette tilfellet trenger vi ikke å deklarere en arbeidsbokvariabel, men i stedet må vi telle totalt antall åpne arbeidsbøker. Når vi har tellingen, bruker Vi For Neste sløyfe for å gå gjennom hver arbeidsbok. Vi bruker også indeksnummeret til å referere til arbeidsbøkene i dette tilfellet.

Merk at i koden ovenfor går vi fra WbCount til 1 Med Trinn -1. Dette er nødvendig som med hver sløyfe, arbeidsboken blir lukket og antall arbeidsbøker blir redusert med 1.

Feil Mens Du Arbeider med Arbeidsbokobjektet (Kjøretidsfeil ‘9’)

En av de vanligste feilene du kan støte på når du arbeider med arbeidsbøker, Er-Kjøretidsfeil ‘ 9 ‘ – Abonnement utenfor rekkevidde.

Arbeidsbokobjekt I VBA - Runtime Error 9 Subscript Out Of Range

Generelt ER VBA-feil ikke veldig informative og lar deg ofte finne ut hva som gikk galt.

her er noen av de mulige årsakene som kan føre til denne feilen:

  • arbeidsboken du prøver å få tilgang til finnes ikke. Hvis jeg for eksempel prøver å få tilgang til den femte arbeidsboken ved Hjelp Av Arbeidsbøker(5), og det bare er 4 arbeidsbøker åpne, får jeg denne feilen.
  • hvis du bruker feil navn for å referere til arbeidsboken. Hvis for Eksempel navnet på arbeidsboken Er Eksempler.xlsx og du bruker Eksempel.xlsx. da vil det vise deg denne feilen.
  • hvis du ikke har lagret en arbeidsbok, og du bruker utvidelsen, får du denne feilen. Hvis for eksempel navnet på arbeidsboken Er Book1, og du bruker navnet Book1.xlsx uten å lagre det, får du denne feilen.
  • arbeidsboken du prøver å få tilgang til, er stengt.

Få En Liste Over Alle Åpne Arbeidsbøker

hvis du vil få en liste over alle åpne arbeidsbøker i gjeldende arbeidsbok (arbeidsboken der du kjører koden), kan du bruke koden nedenfor:

Sub GetWorkbookNames()Dim wbcount As Integerwbcount = Workbooks.CountThisWorkbook.Worksheets.AddActiveSheet.Range("A1").ActivateFor i = 1 To wbcountRange("A1").Offset(i - 1, 0).Value = Workbooks(i).NameNext iEnd Sub

koden ovenfor legger til et nytt regneark og viser deretter navnet på alle åpne arbeidsbøker.

hvis du vil få filbanen også, kan du bruke koden nedenfor:

Sub GetWorkbookNames()Dim wbcount As Integerwbcount = Workbooks.CountThisWorkbook.Worksheets.AddActiveSheet.Range("A1").ActivateFor i = 1 To wbcountRange("A1").Offset(i - 1, 0).Value = Workbooks(i).Path & "\" & Workbooks(i).NameNext iEnd Sub

Åpne Den Angitte Arbeidsboken ved Å Dobbeltklikke På Cellen

hvis du har en liste over filbaner For Excel-arbeidsbøker, kan du bruke koden nedenfor for å bare dobbeltklikke på cellen med filbanen, og den vil åpne den arbeidsboken.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)Workbooks.Open Target.ValueEnd Sub

denne koden vil bli plassert i ThisWorkbook-kodevinduet.

For å Gjøre dette:

  • Dobbeltklikk På ThisWorkbook-objektet i project explorer. Legg merke Til At ThisWorkbook-objektet skal være i arbeidsboken der du vil bruke denne funksjonaliteten.
  • Kopier og lim inn koden ovenfor.

nå, Hvis du har den nøyaktige banen til filene du vil åpne, kan Du gjøre det ved å dobbeltklikke på filbanen og VBA vil umiddelbart åpne den arbeidsboken.

Hvor Å Sette VBA-Koden

Lurer på hvor VBA-koden går i Excel-arbeidsboken din?

Excel har EN VBA-backend kalt vba-editoren. Du må kopiere og lime inn koden i VB Editor module code-vinduet.

her er fremgangsmåten for å gjøre dette:

  1. Gå Til Utvikler-fanen.Bruke Arbeidsbøker I Excel Vba - Utvikler-Fanen i bånd
  2. Klikk På Visual Basic-alternativet. Dette vil åpne VB editor i backend.Klikk På Visual Basic
  3. i Project Explorer-ruten i VB-Editoren høyreklikker du på et objekt for arbeidsboken der du vil sette inn koden. Hvis Du ikke ser Project Explorer, går du til Vis-fanen og klikker På Project Explorer.
  4. Gå Til Sett inn og klikk På Modul. Dette vil sette inn et modulobjekt for arbeidsboken.Bruke Arbeidsbøker I Excel VBA - sette inn modul
  5. Kopier og lim inn koden i modulvinduet.Bruke Arbeidsbøker I Excel VBA-sette modul

Du Kan Også Like Følgende Excel VBA Tutorials:

  • Slik Tar Du Opp En Makro i Excel.
  • Opprette En Brukerdefinert Funksjon I Excel.
  • Hvordan Lage Og Bruke Tillegg I Excel.
  • Hvordan Resue Makroer ved å plassere Den I Den Personlige Makro Arbeidsboken.
  • Få Listen Over Filnavn fra En Mappe I Excel (med OG uten VBA).
  • Slik Bruker Du Excel Vba InStr-Funksjonen (med praktiske EKSEMPLER).
  • Slik Sorterer Du Data i Excel ved HJELP AV VBA(En Trinnvis Veiledning).