¿Cómo crear una hoja si no existe en el libro de trabajo?
Supongamos que tiene un libro de trabajo que contiene varias hojas de trabajo, ahora, debe determinar si existe un nombre de hoja de trabajo específico. Si el nombre de la hoja de trabajo no existe, créelo. Si existe, envíe un mensaje rápido para informarle que la hoja existe. ¿Cómo podrías resolver esta tarea en Excel?
Cree una hoja si no existe en el libro de trabajo con código VBA
Cree una hoja si no existe en el libro de trabajo con código VBA
El siguiente código de VBA puede ayudarlo a verificar un nombre de hoja de trabajo específico si existe en el libro de trabajo; de lo contrario, el código puede crear la hoja según lo necesite.
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: cree una hoja si no existe en el libro de trabajo:
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. Y luego presione F5 para ejecutar este código, aparece un cuadro emergente para recordarle que ingrese el nombre de la hoja que desea verificar, vea la captura de pantalla:
4. Luego haga clic OK botón:
(1.) Si la hoja existe, aparecerá un cuadro emergente para recordarle como se muestra en la siguiente captura de pantalla:
(2.) Si la hoja no existe, se creará de inmediato, vea la captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!