Hvordan cirkler man omkring en celle i Excel?
Når du redigerer et regneark, kan det være en god idé at tegne en cirkel omkring en celle for at vise det selvfølgelig, som vist nedenfor. Nu vil jeg introducere nogle tricks, som du kan cirkel rundt i en celle i Excel.
Cirkel omkring en celle med oval form
Cirkel omkring en celle med VBA
Cirkel omkring en celle med oval form
Hvis du vil cirkulere omkring en celle, skal du indsætte en oval form.
1. klik indsatte > Former, og vælg Oval form fra Grundlæggende former sektion på listen. Se skærmbillede:
2. Tegn den ovale cirkel omkring den celle, du har brug for. Se skærmbillede:
3. Højreklik på formen, og vælg Formater form fra genvejsmenuen.
4. i Formater form dialog (eller Formater form rude), skal du klikke Fyld fanen, og træk pilen på Gennemsigtighed til højre for at sikre 100 % vises i tekstboksen. Se skærmbillede:
5. Luk dialogen. Nu kan du se, at der er en cirkel omkring cellen.
Tip: Som standard flytter formen og ændrer størrelsen på cellen.
Cirkel omkring en celle med VBA
Hvis du hurtigt vil cirkulere omkring en celle, kan du bruge VBA-koden.
1. Vælg den celle, du vil cirkulere, og tryk på Alt + F11 nøgler sammen for at åbne Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler og kopier den følgende VBA-kode til det poppede ud-vindue.
VBA: Cirkel omkring en celle.
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. Trykke F5 tast eller klik Kør knappen for at køre VBA-koden, nu er den valgte celle cirkuleret.
tips:
(1) Hvis du vælger flere tilstødende celler i det første trin, cirkler denne VBA-makro omkring disse celler sammen.
(2) Hvis du vælger flere ikke-tilstødende celler i det første trin, vil denne VBA-makro cirkulere omkring hver celle individuelt.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!