Hvordan oprettes et ark, hvis det ikke findes i projektmappen?
Antag, du har en projektmappe, der indeholder flere regneark, nu skal du afgøre, om der findes et specifikt regnearksnavn. Hvis regnearkets navn ikke findes, skal du oprette det. Hvis det findes, bedes du give en hurtig besked for at fortælle dig, at arket findes. Hvordan kunne du løse denne opgave i Excel?
Opret et ark, hvis det ikke findes i projektmappen med VBA-kode
Opret et ark, hvis det ikke findes i projektmappen med VBA-kode
Den følgende VBA-kode kan hjælpe dig med at kontrollere et specifikt regnearksnavn, hvis der findes i projektmappen, hvis ikke, kan koden muligvis oprette arket efter behov.
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Opret et ark, hvis det ikke findes i projektmappen:
Sub TestSheetCreate()
'Updateby Extendoffice
Dim newSheetName As String
Dim checkSheetName As String
newSheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
"sheet4", , , , , 2)
On Error Resume Next
checkSheetName = Worksheets(newSheetName).Name
If checkSheetName = "" Then
Worksheets.Add.Name = newSheetName
MsgBox "The sheet named ''" & newSheetName & _
"'' does not exist in this workbook but it has been created now.", _
vbInformation, "Kutools for Excel"
Else
MsgBox "The sheet named ''" & newSheetName & _
"''exist in this workbook.", vbInformation, "Kutools for Excel"
End If
End Sub
3. Og tryk derefter på F5 nøgle til at køre denne kode, vises en promptboks for at minde dig om at indtaste det arknavn, du vil kontrollere, se skærmbillede:
4. Klik derefter på OK knap:
(1.) Hvis arket findes, vises et promptfelt for at minde dig om følgende skærmbillede vist:
(2.) Hvis arket ikke findes, oprettes det med det samme, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!