En av de enkleste regnearkrelaterte automations du kan bruke med en makro i Excel er å legge til og navngi et nytt regneark. Slik at makro fungerer og hvordan du bruker den

Hvordan makro verk

Når du leser gjennom linjene i koden, vil du se at denne makroen er relativt intuitivt.
Sub Makro1 () 'Trinn 1: Fortell Excel hva du skal gjøre hvis feilen On Error GoTo MyError'Step 2: Legg et ark og gi den navnet Sheets.Add ActiveSheet.Name = _ WorksheetFunction.Text (Now () ", md-test h_mm_ss
AM /PM ") Exit Sub'Step 3: Hvis her, skjedde en feil; fortelle brukeren MyError: MsgBox ". Det er allerede et ark som heter at" End Sub

Du må forutse at hvis du gir den nye ark et navn som allerede eksisterer, vil det oppstå en feil. Så i trinn 1, forteller makro Excel til umiddelbart å hoppe til linjen som sier MyError (i trinn 3) hvis det er en feil.

Trinn 2 bruker Add metode for å legge et nytt ark. Som standard er arket heter Sheet xx, etter der xx
representerer antall arket. Du gir arket et nytt navn ved å endre navn eiendommen av Active objektet. I dette tilfellet er du navngi regnearket med gjeldende dato og klokkeslett.

Som med arbeidsbøker, hver gang du bruker VBA til å legge til et nytt ark, blir den nylig lagt arket automatisk det aktive arket. Til slutt, i trinn 2, være oppmerksom på at makro kommer ut av prosedyren. Det har å gjøre dette slik at det ikke tilfeldigvis gå inn i trinn 3 (som kommer i spill bare hvis det oppstår en feil).

Trinn 3 varsler brukeren om at arket navnet allerede eksisterer. Igjen, bør dette trinnet aktiveres bare hvis det oppstår en feil

Hvordan bruke makro

For å implementere denne makroen, kan du kopiere og lime den inn i en standard modul.
< li> Aktiver Visual Basic Editor ved å trykke Alt + F11

Høyreklikk navnet på prosjektet /arbeidsbok i prosjektvinduet

Velg Sett →... Module


Skriv eller lim inn koden i den nyopprettede modulen.