Hoe cirkel rond een cel in Excel?
Wanneer u een werkblad bewerkt, wilt u misschien een cirkel rond een cel tekenen om deze duidelijk weer te geven, net zoals onderstaand screenshot. Nu zal ik enkele trucs introduceren om in Excel rond een cel te cirkelen.
Cirkel rond een cel met een ovale vorm
Cirkel rond een cel met een ovale vorm
Om rond een cel te cirkelen, moet u een ovale vorm invoegen.
1. klikken Invoegen > VormenEn Select Ovaal vorm van de Basisvormen sectie in de lijst. Zie screenshot:
2. Teken het ovaal om de cel die je nodig hebt te cirkelen. Zie screenshot:
3. Klik met de rechtermuisknop op de vorm en selecteer Vorm opmaken vanuit het contextmenu.
4. In de Vorm opmaken dialoogvenster (of Vorm opmaken paneel), klik op Vulling tabblad en sleep de pijl van Transparantie naar rechts om er zeker van te zijn 100% weergegeven in het tekstvak. Zie screenshot:
5. Sluit het dialoogvenster. Nu kun je zien dat er een cirkel om de cel loopt.
Tip: Standaard wordt de vorm verplaatst en de grootte aangepast met de cel.
Omcirkel een cel met VBA
Als u snel rond een cel wilt cirkelen, kunt u de VBA-code gebruiken.
1. Selecteer de cel die u wilt omcirkelen en druk op Alt + F11 sleutels samen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Module en kopieer de volgende VBA-code naar het uitgeklapte venster.
VBA: cirkel rond een cel.
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. druk op F5 toets of klik lopen knop om de VBA-code uit te voeren, nu is de geselecteerde cel omcirkeld.
Tips:
(1) Als u in de eerste stap meerdere aangrenzende cellen selecteert, zal deze VBA-macro samen rond deze cellen cirkelen.
(2) Als u in de eerste stap meerdere niet-aangrenzende cellen selecteert, zal deze VBA-macro elke cel afzonderlijk omcirkelen.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!