Wie umkreise ich eine Zelle in Excel?
Wenn Sie ein Arbeitsblatt bearbeiten, möchten Sie möglicherweise einen Kreis um eine Zelle zeichnen, um es offensichtlich genau wie im folgenden Screenshot anzuzeigen. Jetzt werde ich Ihnen einige Tricks vorstellen, mit denen Sie eine Zelle in Excel umkreisen können.
Kreisen Sie eine Zelle mit ovaler Form ein
Kreisen Sie mit VBA um eine Zelle
Kreisen Sie eine Zelle mit ovaler Form ein
Um eine Zelle zu umkreisen, müssen Sie eine ovale Form einfügen.
1 Klicken Insert > Formen, und wählen Sie Oval Form aus dem Grundformen Abschnitt in der Liste. Siehe Screenshot:
2. Zeichnen Sie das Oval, um die gewünschte Zelle zu umkreisen. Siehe Screenshot:
3. Klicken Sie mit der rechten Maustaste auf die Form und wählen Sie Form formatieren aus dem Kontextmenü.
4. In dem Form formatieren Dialog (oder Form formatieren Bereich), klicken Sie auf Füllen Tab und ziehen Sie den Pfeil von Transparenz rechts, um sicherzugehen 100% Anzeige im Textfeld. Siehe Screenshot:
5. Schließen Sie den Dialog. Jetzt können Sie sehen, dass sich ein Kreis um die Zelle befindet.
Tipp: Standardmäßig wird die Form mit der Zelle verschoben und in der Größe geändert.
Kreisen Sie mit VBA um eine Zelle
Wenn Sie eine Zelle schnell umkreisen möchten, können Sie den VBA-Code verwenden.
1. Wählen Sie die Zelle aus, die Sie umkreisen möchten, und drücken Sie Alt + F11 Tasten zusammen, um das zu öffnen Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modul und kopieren Sie den folgenden VBA-Code in das ausgeblendete Fenster.
VBA: Kreise um eine Zelle.
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. Drücken Sie F5 Taste oder klicken Führen Sie Klicken Sie auf die Schaltfläche, um den VBA-Code auszuführen. Jetzt wird die ausgewählte Zelle eingekreist.
Tipps:
(1) Wenn Sie im ersten Schritt mehrere benachbarte Zellen auswählen, umkreist dieses VBA-Makro diese Zellen zusammen.
(2) Wenn Sie im ersten Schritt mehrere nicht benachbarte Zellen auswählen, umkreist dieses VBA-Makro jede Zelle einzeln.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!