Red de conocimiento informático - Aprendizaje de código fuente - Programación incremental digital

Programación incremental digital

Estimado, esto requiere programación VBA.

Abra su archivo de Excel, presione "Alt F11" para abrir la ventana de edición de VBA, luego haga doble clic en ThisWorkbook a la izquierda y pegue el siguiente código en el espacio en blanco a la derecha. Cierre la ventana de VBA.

Cada vez que imprima, si el nombre de la hoja actual que se está imprimiendo es "Hoja1", agregará 1 al número de la celda A1 antes de imprimir.

¿Privado? ¿Sub? Workbook_BeforePrint(Cancelar?como?Booleano)

¿Si? Hoja Activa. ¿nombre? =?" Hoja1 "? Entonces

¿Rango("A1 ")? =?Rango("A1 ")? ?1

¿Fin? Si

¿Finalizar? Submarino