¿Cómo rodear una celda en Excel?

Al editar una hoja de cálculo, es posible que desee dibujar un círculo alrededor de una celda para mostrarla de manera obvia, tal como se muestra en la captura de pantalla a continuación. Ahora les presentaré algunos trucos para rodear una celda en Excel.

Rodear una celda con una forma ovalada

Rodear una celda con VBA

Rodear una celda con una forma ovalada

Para rodear una celda, necesita insertar una forma ovalada.

1. Haga clic en Insertar > Formas y seleccione la forma Ovalada en la sección Formas Básicas de la lista. Ver captura de pantalla:

2. Dibuje el óvalo para rodear la celda que necesita. Ver captura de pantalla:

3. Haga clic derecho en la forma y seleccione Formato de forma desde el menú contextual.

4. En el cuadro de diálogo Formato de forma (o panel Formato de forma), haga clic en la pestaña Relleno y arrastre la flecha de Transparencia hacia la derecha para asegurarse de que se muestre 100% en el cuadro de texto. Ver captura de pantalla:

5. Cierre el cuadro de diálogo. Ahora puede ver que hay un círculo alrededor de la celda.

Consejo: De manera predeterminada, la forma se moverá y cambiará de tamaño con la celda.

Rodear una celda con VBA

Si desea rodear rápidamente una celda, puede usar el código VBA.

1. Seleccione la celda que desea rodear y presione las teclas Alt + F11 juntas para abrir la ventana Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y copie el siguiente código VBA en la ventana emergente.

VBA: Rodear una celda.

Sub DrawCircle()
	'Updateby20141105
	Dim Arng As Range
	Dim WorkRng As Range
	Set WorkRng = Application.Selection
	For Each Arng In WorkRng.Areas
		With Arng
			x = Arng.Height * 0.1
			y = Arng.Width * 0.1
			Application.ActiveSheet.Ovals.Add Top: = .Top - x, Left: = .Left - y, _
			Height: = .Height + 2 * x, Width: = .Width + 1.5 * y
			With Application.ActiveSheet.Ovals(ActiveSheet.Ovals.Count)
				.Interior.ColorIndex = xlNone
				.ShapeRange.Line.Weight = 1.25
			End With
		End With
	Next
	WorkRng.Select
End Sub

3. Presione la tecla F5 o haga clic en el botón Ejecutar para ejecutar el código VBA; ahora la celda seleccionada está rodeada.

Consejos:

(1) Si selecciona varias celdas adyacentes en el primer paso, esta macro VBA rodeará estas celdas juntas.

(2) Si selecciona varias celdas no adyacentes en el primer paso, esta macro VBA rodeará cada celda individualmente.