Para preparar un informe de asistencia con hoja de Excel.

El informe de asistencia se puede preparar fácilmente en una hoja de Excel. Hay algunos métodos que es necesario seguir para organizar las hojas de Excel . Prepare una hoja de Excel que muestre el porcentaje de asistentes en un mes. El usuario también deberá preparar una plantilla para el informe de asistencia. Sería más fácil ejecutarlo en formato macro. Abra una nueva hoja de cálculo que contenga la plantilla del informe de asistencia. Es necesario obtener los datos de la hoja de trabajo de la tabla de asistencia . Preparar columnas insertando los datos. Ahora renombra la nueva hoja de trabajo . Repita el proceso hasta que llegue al destino que es la celda vacía. El software de Office es realmente útil en esta aplicación de preparación para la asistencia.

Para preparar un informe de asistencia con hoja de Excel.

Problema
Solución
Nota

Problema

Tengo 60 residentes trabajando en nuestro departamento. Atienden el informe de la mañana todos los días. Así que preparé una hoja de Excel (Tabla de asistencia nombrada) que tiene las columnas A1: A60 con los nombres de los residentes B1: B60 con el porcentaje de asistencia por un mes. Mi trabajo es preparar un informe de asistencia para cada residente. He preparado una plantilla para el informe de asistencia. Ahora quiero ejecutar una macro que hará lo siguiente:

1. Abra una nueva hoja de trabajo de la plantilla en el libro que tiene la "hoja de trabajo de la tabla de asistencia"

2. Debe traer los datos de la hoja de trabajo "Tabla de asistencia"

a. Desde la primera columna A1 y coloque en el campo Nombre de la plantilla (nueva hoja de trabajo abierta en la etapa uno) (siempre D6)

segundo. Traiga los datos de B1 y póngalos en el campo de porcentaje de la plantilla (F10)

do. Debería cambiar el nombre de la pestaña de la hoja de trabajo con los datos de A1 (es decir, el nombre del residente)

3. Debería repetir el paso 2 hasta que llegue a la celda vacía.

¿Alguien puede ayudarme a escribir la macro?

Solución

 'Subrutina de Reporte de Asistencia a
'Abrir hoja de trabajo nueva llamada hoja de trabajo de asistencia tqable
'Con datos de la tabla de asistencia
'Nombre de los residentes a D6
'Porcentaje de asistencia durante un mes a F10
'Cambiar el nombre de la hoja al nombre de los residentes y comenzar de nuevo
'Para todos los residentes en mesa
Reporte de Asistencia de Sub ()
Dim cCell As Object, i As Integer 'Dos variables cCell (celda actual) objeto e i (entero de conteo estándar)
Celdas (1, "A"). Seleccione 'Asegúrese de que comencemos cada vez en la parte superior de la hoja de trabajo
Application.ScreenUpdating = False 'Turno de actualizaciones de pantalla mientras se ejecuta la macro
Para cada celda en rango (Celdas (1, "A"), Celdas (1, "A"). Fin (xlDown)) 'Ejecutará nuestro código a través de cada celda con texto
Set NewSheet = Sheets.Add (Type: = xlWorksheet) 'Agregar nueva hoja de trabajo
NewSheet.Name = "Hoja de trabajo de la tabla de asistencia" 'cambiar el nombre de la hoja de trabajo
Hojas ("Hoja de trabajo de la tabla de asistencia"). Células (6, "D"). Valor = cCell.Value 'poner el nombre de los residentes es la celda D6
Hojas ("Hoja de trabajo de la tabla de asistencia"). Células (10, "F"). Valor = cCell.Offset (0, 1) .Value 'coloca la asistencia de residencia en F10
Hojas ("hoja de trabajo de la tabla de asistencia"). Nombre = cCell.Value
Siguiente ccell
End Sub