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.

RawData

Añadiendo 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.

ArrowRefEditControl

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.

ArrowHighlighter

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.

ArrowSelection

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.

ArrowHighlightedCell

Siga a continuación el código

Option Explicit

Sub running()

UserForm1.Show

End Sub

'Add below code in "Ok" button on userform

Option Explicit

Private Sub CommandButton1_Click()

Dim SelectRange As Range

Dim Address1 As String

On Error GoTo Last

'Get the address from the RefEdit control

Address1 = RefEdit1.Value

'Set the SelectRange Range object to the range specified in the RefEdit control

Set SelectRange = Range(Address1)

'Highlight the selected range in yellow color

SelectRange.Interior.Color = RGB(255, 255, 0)

'Unload the userform.

Unload Me

Last:

End Sub

Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.

Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]