Hoe maak ik een blad aan als dit niet in de werkmap bestaat?
Stel dat u een werkmap heeft die meerdere werkbladen bevat, nu moet u bepalen of er een specifieke werkbladnaam bestaat. Als de werkbladnaam niet bestaat, maak deze dan aan. Als het bestaat, geef dan een promptbericht om u te vertellen dat het blad bestaat. Hoe zou je deze taak in Excel kunnen oplossen?
Maak een blad als dit niet bestaat in de werkmap met VBA-code
Maak een blad als dit niet bestaat in de werkmap met VBA-code
De volgende VBA-code kan u helpen om een specifieke werkbladnaam te controleren als deze in de werkmap voorkomt, zo niet, dan kan de code het blad naar behoefte maken.
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: maak een blad als dit niet in de werkmap bestaat:
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. En druk vervolgens op F5 toets om deze code uit te voeren, verschijnt er een promptvenster om u eraan te herinneren de bladnaam in te voeren die u wilt controleren, zie screenshot:
4. Dan klikken OK knop:
(1.) Als het blad bestaat, verschijnt er een promptvenster om u eraan te herinneren dat het volgende screenshot wordt getoond:
(2.) Als het blad niet bestaat, wordt het in één keer aangemaakt, zie screenshot:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!