¿Cómo agregar un control de calendario al cuadro de texto en el formulario de usuario de VBA?

P: ¿Cómo hacer el botón triangular hacia abajo en el lado derecho del cuadro de texto?

Respuesta: Simplemente use el control "cuadro compuesto".

Requisito: el calendario se muestra en la parte inferior del cuadro de texto

Implementación: coloque el control de calendario debajo del control del cuadro compuesto en el formulario y ajuste el tamaño y la alineación. Luego muestre y oculte el calendario a través de la propiedad visible del control de calendario.

Descripción de la función: Haga doble clic en el "cuadro compuesto" para mostrarlo y vuelva a hacer doble clic en él para ocultarlo. Después de seleccionar una fecha en el calendario, haga doble clic en el calendario para ingresar la fecha seleccionada en el cuadro combinado. El control de calendario no se muestra de forma predeterminada después de abrir el formulario.

Código de función:

SubCalendario privado1_DblClick()

Me.ComboBox1.Value = Me.Calendar1.Value

Me.Calendar1 .Visible = False

End Sub

Sub privado ComboBox1_DblClick(ByVal Cancelar como MSForms.ReturnBoolean)

Me.Calendar1.Visible = No Me.Calendar1.Visible

Fin Sub

Sub privado UserForm_Initialize()

Me.Calendar1.Visible = False

Fin Sub

Nota: El nombre de control de "Cuadro combinado" es ComboBox1 y el nombre de control de Calendario es Calendario1.

Puede crear directamente un nuevo formulario, arrastrar un cuadro compuesto y un control de calendario, hacer doble clic. haga clic en el formulario y simplemente copie y pegue el código anterior en el área de código.

Lo anterior puede lograr la función que deseas. Si necesita archivos adjuntos de muestra, envíe un correo electrónico a Atraction@qq.com y le responderé.