Programación del Macro
1
Abra la hoja de cálculo Excel y abrir el editor de VBA pulsando " Alt + F11 ".
2
Iniciar una nueva VBA archivo de proyecto , haga clic en el libro en el menú de la derecha y elegir la opción "Nuevo" .
3
Comienza la nueva función escribiendo " CountRows Sub (). " ; Esto informa al compilador VBA que hay una nueva subrutina en el archivo de proyecto . Si prefiere dar la subrutina otro nombre , simplemente cambie " CountRows " a lo que usted quisiera decir , pero debe tener el paréntesis abierto y cerrado detrás de él , como en " SuNombre ()".
Página 4
Crear una variable mediante la inclusión de " conde Dim como Long" en la línea siguiente
5
Escriba el siguiente código: .
conde
= 0DoCount = Cuenta + 1ActiveCell.Offset ( 1 , 0). SelectLoop hasta IsEmpty ( ActiveCell.Offset ( 0 , 1 ))
Esto le indica al programa compilador para borrar primero la variable de recuento , y comienza a moverse a través de la hoja de cálculo . Se añade una a la cuenta total de , a continuación, se mueve hacia abajo a la siguiente celda , siempre y cuando la siguiente celda está vacía . Cuando se llega a una celda vacía , dejará de correr.
6
Abra un cuadro de mensaje mediante la adición de una nueva línea con " Conde MsgBox " en ella. Esto mostrará una ventana emergente con el número total de filas en el mismo. Para que el cuadro de mensaje parece un poco más útil , puede añadir más texto a la misma. Cambie la línea que diga lo siguiente :
MsgBox "No son" fiables "Filas"
Usted puede cambiar el texto entre comillas de manera lo que usted quisiera que fuera.
7
Finalmente , tipo "End Sub " de una nueva línea para cerrar la función de salida .
ejecutar la macro
8
Volver a la hoja de cálculo Excel y guárdelo .
9
Resalte la primera celda de la columna con la mayor cantidad de datos. Esta será una columna que no tiene células vacías entre la parte superior y la parte inferior.
10
Abra el menú " Herramientas " y seleccione " Macros " para que aparezca el cuadro de diálogo macros con todas las macros programadas en la hoja de cálculo .
11
Seleccione la macro de la Sección 1 , " CountRows " o cualquier nombre que le dio . Haga clic en " Ejecutar ". Cuando se haya completado , el Macro se abrirá con el informe de cuadro de mensaje del número de filas que haya llenado .