Excel genera automáticamente una tabla salarial basada en el resumen de datos y la guarda.
Tengo una idea, pero necesito formatear tu recibo de pago para que tenga solo una línea. El resultado final son varias hojas de cálculo de nómina que se pueden guardar por número de serie, nombre y número de teléfono. Si se requiere un libro de trabajo separado, se requiere código de macro para lograrlo. Yo también lo tengo, a un paso.
Las operaciones utilizadas incluyen clasificación simple de los datos originales (agregar columnas auxiliares y agregar cantidades chinas), tablas dinámicas y macros.
1. Clasificación de datos
La siguiente fórmula se utiliza para el monto chino (mi número de monto está en D2, puedes reemplazarlo directamente con la celda correspondiente):
= IF(D2=0"",IF(D2<0,"negativo","")&SUSTITUIR(SUSTITUIR(SUSTITUIR(TEXTO(INT(ABS(D2))))"""db num 2 "" & "elemento", texto(right(text(,.00),2), "[dbnum 2] 0 punto angular 0"), "punto cero angular 0", "entero"), "punto cero", "entero "), "ángulo cero", "cero".
Agregue una columna secundaria:
La columna auxiliar se utiliza para obtener un número entero del nombre del archivo que desea. Conecte números de serie, nombres, y salarios directamente usando el símbolo &
2. Seleccione estos datos para crear un informe de tabla dinámica y use la página de filtro de tabla dinámica para dividirlo en varias hojas de trabajo
La etiqueta de fila y columna. Las configuraciones son las siguientes. Recuerde configurar "Sin subtotales" y "Sin totales" y cambiar el estilo de la tabla en la pestaña Diseño de tabla dinámica
Utilice la página "Mostrar filtros de informe" para separar cada nómina
Hay entonces una serie de formularios individuales
Se pueden seleccionar todas las hojas de trabajo y estas se convertirán en trabajos. Si elimina las dos primeras filas de cualquier hoja de trabajo, todas las tablas no tendrán las dos primeras. filas.
3. Si debe separar el libro de trabajo, necesitará usar código de macro para hacerlo.
La operación es: Desarrollar una herramienta-Visual Basic (o Alt+). 11) Abra una página de VBA-Insertar-Módulo-Pegue el siguiente código en el cuadro de edición-Haga clic en el triángulo verde para ejecutar (También puede insertar y ejecutar lo que hace habitualmente. Otros códigos que se encuentran en Internet y no tiene escribir código para usarlos)
Sub newbooks()
Dim sht Como hoja de trabajo, mypath$
Aplicar DisplayAlerts = False
Suprimir advertencias y mensajes del sistema
Aplicar ScreenUpdating = False
Cancelar actualización de pantalla
Diálogo de archivo de aplicación (msoFileDialogFolderPicker)
Seleccione el archivo. ruta para guardar el libro de trabajo. AllowMultiSelect = False
No permite selecciones múltiples
Si.
Leer la ruta del archivo seleccionado
Otro
Conector de salida
Si no selecciona una ruta para guardar, salga del programa.
Termina si...
Termina con...
si está bien(mi ruta, 1)<>""Entonces miruta = miruta& "
Para cada cosa en la hoja de trabajo
Recorre la hoja de trabajo
sh. Copiar
Copiar la hoja de trabajo. Después de una simple copia, la hoja de trabajo se convertirá en el libro de trabajo activo.
Usar el libro activo
. Guardar como mypath & sh. Nombre, xlWorkbookDefault
Guarda el libro activo en la ruta especificada.
. "Close True" cierra el libro.
Termina con...
Luego
MsgBox "Procesamiento completado, "Recordatorio"
aplicado. screenupdating = true reanuda la actualización de la pantalla .
Aplicar "DisplayAlerts = True" para restaurar la visualización de advertencias y mensajes del sistema
Conector final
Tampoco soy bueno en VBA, y es un poco complicado de hacer si tienes alguna pregunta, por favor pregúntame
.