Hoja de trabajo de nombre de Excel VBA
En VBA, nombrar una hoja de trabajo no necesita ninguna habilidad especial. Solo necesitamos hacer referencia al nombre de la hoja que estamos cambiando ingresando el nombre de la hoja existente. Por ejemplo, si queremos cambiar la hoja llamada "Ventas", entonces necesitamos llamar a la hoja por su nombre usando el objeto Hoja de trabajo.
Hojas de trabajo ("Ventas")
Después de mencionar el nombre de la hoja, debemos seleccionar la propiedad "Nombre" para cambiar el nombre de la hoja de trabajo.
Hojas de trabajo ("Ventas"). Nombre
Ahora necesitamos establecer la propiedad Name al nombre según nuestro deseo. Suponga que desea cambiar "Ventas" a "Hoja de ventas", luego coloque el signo igual después de la propiedad "NOMBRE" e ingrese el nuevo nombre entre comillas dobles.
Hojas de trabajo ("Ventas"). Nombre = "Hoja de ventas"
De esta manera, podemos cambiar el nombre de la hoja de trabajo usando la propiedad Name.
Ejemplos para nombrar la hoja de trabajo usando VBA
Ejemplo 1
Cambiar o cambiar el nombre de la hoja usando variables.
Por ejemplo, mire el siguiente código de muestra.
Código:
Sub Name_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Ventas") Ws.Name = "Sales Sheet" End Sub
En lo anterior, primero, he declarado la variable como Hoja de trabajo.
Dim Ws como hoja de trabajo
A continuación, establecí la referencia a la variable como "Ventas" usando el objeto de hojas de trabajo.
Establecer Ws = Hojas de trabajo ("Ventas")
Ahora, la variable "Ws" contiene la referencia de la hoja de trabajo "Ventas".
Ahora, usando la variable "Ws", he cambiado el nombre de la hoja de trabajo a "Hoja de ventas".
Este código cambiará el nombre de "Ventas" a "Hoja de ventas".
Nota importante para recordar
Acabamos de ver cómo cambiar el nombre de la hoja de cálculo de Excel de un nombre a otro. Sin embargo, si ejecutamos el código nuevamente, obtendremos un error de subíndice fuera de rango.
Una de las claves para conseguir un experto en macros de VBA es manejar errores. Antes de manejar los errores, necesitamos saber por qué recibimos este error.
La razón por la que obtenemos este error es que, en el paso anterior, ya cambiamos la hoja de trabajo llamada "Ventas" a "Hoja de ventas".
No tenemos ninguna hoja llamada "Ventas", obtendremos este subíndice de error fuera de rango.
Ejemplo # 2
Obtenga todos los nombres de las hojas de trabajo en una sola hoja .
Suponga que tiene muchas hojas de trabajo en su libro de trabajo y desea obtener el nombre de todas estas hojas de trabajo en cualquiera de las hojas de trabajo individuales. Esto se puede hacer usando la codificación VBA.
Por ejemplo, mire la imagen de abajo.
Tenemos tantas hojas aquí.
De todas estas hojas, necesitamos el nombre de cada hoja en la hoja llamada "Hoja de índice". He escrito el siguiente código para ti.
Código:
Sub All_Sheet_Names () Dim Ws As Worksheet Dim LR Tan largo para cada Ws en ActiveWorkbook.Worksheets LR = Worksheets ("Hoja de índice"). Cells (Rows.Count, 1) .End (xlUp) .Row + 1 'This LR variable para encontrar las últimas celdas de fila utilizadas (LR, 1). Seleccione ActiveCell.Value = Ws.Name Next Ws End Sub
Ahora copie este código en su módulo.
Ahora ejecute el código nombrando cualquiera de las hojas de trabajo como "Hoja de índice". Este código dará todos los nombres de las hojas de trabajo en "Hoja de índice".
De esta manera, usando la propiedad "NAME" de la hoja de trabajo en VBA, podemos jugar con el nombre de las hojas de trabajo. Podemos cambiar el nombre, extraer y elegir la hoja de trabajo específica y hacer muchas otras cosas que se pueden hacer usando la propiedad "Nombre".
Cosas para recordar
- NAME en VBA es propiedad.
- Con este nombre, podemos cambiar el nombre de la hoja de trabajo y también podemos extraer los nombres de las hojas.
- Podemos cambiar cualquier nombre de la hoja de trabajo en el libro de trabajo especificado si se refiere a otros libros de trabajo que no sean el libro de trabajo escrito en código.
- Si el nombre de la hoja de trabajo no coincide, obtendremos el subíndice fuera de rango.
