¿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 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.
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos