Oprettelse Regneark med en makro

Excel kan du oprette nye regneark på en række forskellige måder. Hvad hvis du vil oprette et nyt regneark og navngive det hele i én arbejdsgang? Den nemmeste måde at gøre dette på er med en makro. Det følgende er et eksempel på en makro, der vil bede om et navn, og derefter oprette et regneark og give denne regneark navnet forudsat.

Sub AddNameNewSheet1 ()
Dim newname As String
Newname = InputBox ("Navn for nyt regneark?")
Hvis newname <> "" Så
Sheets.Add Type: = xlWorksheet
ActiveSheet.Name = newname
End hvis
End Sub

Denne makro virker fint, så længe brugeren indtaster et regneark navn, der er "lovligt" af Excel standarder. Hvis det nye navn er ikke acceptabelt at Excel er regnearket stadig tilføjede, men det er ikke omdøbes som forventet.

En mere robust makro ville foregribe mulige fejl i navngivning et regneark. Det følgende eksempel kode vil tilføje regnearket, men holde anmoder om et navn regneark, hvis en forkert man er leveret.

Sub AddNameNewSheet2 ()
Dim CurrentSheetName As String

»Husk, hvor vi startede
»Ikke nødvendigt, hvis du ikke ønsker at vende tilbage
»Til hvor du startede, men ønsker at bo
"På det nye ark

CurrentSheetName = ActiveSheet.Name

"Tilføj ny Sheet
Sheets.Add

"Sørg for, at navnet er gyldigt
Ved fejl Resume Next

»Få det nye navn
ActiveSheet.Name = InputBox ("Navn for nyt regneark?")

»Hold beder om navn, hvis navn er ugyldigt
Gør Indtil Err.Number = 0
Err.Clear
ActiveSheet.Name = InputBox ("Prøv igen!" _
& VbCrLf & "Ugyldig Navn eller navn findes allerede" _
& VbCrLf & "Please navngive den nye ark")
Loop
Ved fejl GoTo 0

'Gå tilbage til hvor du startede
»Ikke nødvendigt, hvis du ikke ønsker at vende tilbage
»Til hvor du startede, men ønsker at bo
"På det nye ark
Sheets (CurrentSheetName) .Select

End Sub

ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (2022) gælder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til båndet grænseflade Excel (Excel 2007 og nyere) her: Oprettelse Regneark med en makro.


© 2019 Zajacperrone.com | Contact us: webmaster# zajacperrone.com