En este artículo, mostraremos cómo agregar el control RefEdit en el formulario de usuario y referir el rango de celdas usándolo.
En este ejemplo, hemos creado un formulario de usuario de resaltador que podemos usar para resaltar el rango de celdas con color amarillo.
Hemos tomado datos de muestra que consisten en el nombre y la hora de inicio de sesión del miembro del equipo.
Agregar RefEdit en el formulario de usuario
Agregue un formulario de usuario, haga clic en el control RefEdit en la caja de herramientas y seleccione y suelte el control en el formulario de usuario.
Explicación lógica
Para resaltar la celda, haga clic en el botón Resaltador. Abrirá el formulario de usuario. Seleccione el rango usando RefEdit. Haga clic en el signo de guión para seleccionar celdas.
Para seleccionar celdas adyacentes, presione la tecla Mayús mientras se mueve a otra celda. Para seleccionar celdas no adyacentes, presione la tecla Control mientras selecciona celdas diferentes. Las celdas seleccionadas estarán rodeadas por líneas de puntos y la dirección de la celda aparecerá en el cuadro.
Las celdas seleccionadas se resaltarán en color amarillo al presionar el botón Aceptar. Haga clic en el evento del botón Aceptar que contiene el código VBA para resaltar las celdas seleccionadas.
Siga a continuación para obtener el código
Opción Sub explícito en ejecución () UserForm1.Show End Sub 'Agregue el código siguiente en el botón "Aceptar" en el formulario de usuario Opción Subcomando privado explícitoButton1_Click () Dim SelectRange As Range Dim Address1 As String On Error GoTo Last' Obtenga la dirección del control RefEdit Address1 = RefEdit1.Value 'Establece el objeto SelectRange Range en el rango especificado en el control RefEdit Set SelectRange = Range (Address1)' Resalta el rango seleccionado en color amarillo SelectRange.Interior.Color = RGB (255, 255, 0) 'Descarga el formulario de usuario. Descargar Me Last: End Sub
Si te gustó este blog, compártelo con tus amigos en Facebook. Además, puede seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico
