¿Cómo numerar en excel vb?

El siguiente es el código VB para implementar esta función:

Subbotón privado A_Click()

Establece el valor actual en un número entero

Establece el valor anterior a un número entero

Obtener el valor actual de la celda C25

valor actual = Rango("C25"). Valor

Obtiene el valor anterior de la última celda no vacía de la columna C

previousValue = GetPreviousValue()

Agrega el número de clics en el botón al actual valor Medio

Valor actual = valor actual i. Cuadro de texto 1. valor

Si es el primer día de un nuevo mes, restablezca el valor actual a 1

Si fecha = 1, entonces

Valor actual = 1

Termina si...

Establece el valor de la celda C25 al nuevo valor

Rango ("C25"). valor = valor actual

Inserte el nuevo valor en la siguiente celda vacía de la columna C

Rango("C" & filas. recuento). final (xlArriba). compensación (1,0). valor = valor actual

Si es un mes nuevo, restablezca el valor actual a 1

Si mes(fecha) lt gtmonth(date-i.textbox1.value) entonces

alcance("C25"). Valor = 1

Terminará si...

Finalizar conector

Función privada GetPreviousValue() en forma de número entero

Establece el último line Encuentra la última celda no vacía en la columna C para números enteros

lastRow = Range("C" & rows. count). final (xlArriba). Fila

Devuelve el valor de la última celda no vacía

obtiene el valor anterior = Rango("C" y última fila). Valor

Función final

Demostración del código

Este código contiene un botón y un cuadro de texto TextBox1 para ingresar el número de adiciones. Cada vez que se hace clic en el botón a, el número de veces ingresadas en el cuadro de texto se agregará al valor de la celda C25 especificada y el nuevo valor se insertará en la siguiente celda vacía en la columna c. Si es el primer día del mes, el valor inicial de la celda especificada pasará a ser 1. Si es luna nueva, el valor inicial de la celda especificada también será 1.