VB busca un fragmento de código de Excel para registrar números de control

Explicación detallada de cómo usar el control de fecha en Excel

1. Insertar control de fecha

① Abra el libro donde necesita insertar el control de fecha. Haga clic en el control de la barra de herramientas de vista y, a su vez, en Caja de herramientas, abra la barra de herramientas de control.

② Haga clic en "Otros controles" en la barra de herramientas de control y seleccione el control (Control de selección de fecha y hora de Microsoft, versión 6.0).

③. Dibuje el icono de control de fecha en la celda donde se debe completar la fecha en la hoja de trabajo y ajuste el tamaño para que sea consistente con la celda.

2. Editar código

① Haga clic en "Ver código" en la barra de herramientas de control para ingresar a la página de edición de código y editar el siguiente código:

¿Opción? Explícito.

¿Privado?Sub?DTPicker1_Change()

ActiveCell.Value?=?DTPicker1.Value

DTPicker1.Visible?=?False

¿Fin?Sub

¿Privado?Sub?Worksheet_SelectionChange(ByVal?Target?As?Range)

Con?Me.DTPicker1

Si?Target.Column? = ?1?Y?Target.Count?=?1?Entonces

.Visible?=?True

.Width?=?Target.Width?+?15

.Left?=?Target.Left

.Top?=?Target.Top

.Height?=?Target.Height

Else

.Visible?=?False

¿Fin?Si

¿Fin?Con

Fin?Sub

Aviso: en el código anterior, el 1 rojo indica que el control actúa en la primera columna de la hoja de trabajo. Si necesita ajustarlo, simplemente modifíquelo al número correspondiente de columnas si necesita aplicar el control en una determinada. fila, cambie el objetivo en el código. Simplemente cambie .Column a Target.Row.

② Cierre la página de edición de código y regrese a la hoja de trabajo, haga clic en "Propiedades" en la barra de herramientas de control, ingrese a la página de edición de propiedades y ajuste la propiedad CheckBox a Verdadero.

③ Cierre la página de edición de propiedades y regrese a la hoja de trabajo. Haga clic en "Salir del modo de diseño" en la barra de herramientas de control para salir del modo de diseño de control.

④ Haga clic en el icono de control de fecha para abrir el calendario de eventos y seleccionar la fecha que desea editar. En este punto, todas las celdas de la columna de la hoja de trabajo pueden ingresar fechas de manera rápida y conveniente. Puede ajustar el formato de celda en esta columna para satisfacer sus propias necesidades. No entraré en el ajuste del formato de celda aquí.

Por supuesto, es posible que deba ingresar el título, el encabezado de la tabla, etc. en la primera fila de la hoja de trabajo. ¿Descubrió que, excepto la fecha, no se puede ingresar nada más en esta columna? ¿Notaste la casilla de verificación en el extremo izquierdo del ícono de control de fecha? Haga clic