Μετάβαση στο κύριο περιεχόμενο

Πώς να περιβάλλετε ένα κελί στο Excel;

Όταν επεξεργάζεστε ένα φύλλο εργασίας, ίσως θελήσετε να σχεδιάσετε έναν κύκλο γύρω από ένα κελί για να το δείξετε προφανώς όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Τώρα θα σας παρουσιάσω μερικά κόλπα για να περιηγηθείτε σε ένα κελί στο Excel.

Κύκλος γύρω από ένα κελί με σχήμα Οβάλ

Κύκλος γύρω από ένα κελί με VBA


βέλος μπλε δεξιά φούσκα Κύκλος γύρω από ένα κελί με σχήμα Οβάλ

Για περιστροφή γύρω από ένα κελί, πρέπει να εισαγάγετε ένα οβάλ σχήμα.

1. κλικ Κύριο θέμα > Σχήματα, και επιλέξτε Ωοειδής σχήμα από το Βασικά σχήματα ενότητα στη λίστα. Δείτε το στιγμιότυπο οθόνης:

doc-circle-round-cell-1

2. Σχεδιάστε το οβάλ σε κύκλο γύρω από το κελί που χρειάζεστε. Δείτε το στιγμιότυπο οθόνης:

doc-circle-round-cell-2

3. Κάντε δεξί κλικ στο σχήμα και επιλέξτε Μορφή σχήματος από το μενού περιβάλλοντος.

doc-circle-round-cell-3

4. Στο Μορφή σχήματος διάλογος (ή Μορφή σχήματος παράθυρο), κάντε κλικ στο Γέμισμα και σύρετε το βέλος του Διαφάνεια προς τα δεξιά για να βεβαιωθείτε 100% εμφάνιση στο πλαίσιο κειμένου. Δείτε το στιγμιότυπο οθόνης:

doc-circle-round-cell-4

5. Κλείστε το παράθυρο διαλόγου. Τώρα μπορείτε να δείτε ότι υπάρχει ένας κύκλος γύρω από το κελί.

doc-circle-round-cell-6

Άκρο: Από προεπιλογή, το σχήμα θα μετακινηθεί και θα αλλάξει το μέγεθος με το κελί.

doc-circle-round-cell-7


βέλος μπλε δεξιά φούσκα Κύκλος γύρω από ένα κελί με VBA

Εάν θέλετε να περιηγηθείτε γρήγορα σε ένα κελί, μπορείτε να χρησιμοποιήσετε τον κωδικό VBA.

1. Επιλέξτε το κελί που θέλετε να κάνετε κύκλο και πατήστε Alt + F11 κλειδιά για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης και αντιγράψτε τον ακόλουθο κώδικα VBA στο αναδυόμενο παράθυρο.

VBA: Κύκλος γύρω από ένα κελί.

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. Τύπος F5 κλειδί ή κάντε κλικ τρέξιμο για να εκτελέσετε τον κωδικό VBA, τώρα το επιλεγμένο κελί είναι σε κύκλο.

Συμβουλές:

(1) Εάν επιλέξετε πολλά γειτονικά κελιά στο πρώτο βήμα, αυτή η μακροεντολή VBA θα περιστραφεί γύρω από αυτά τα κελιά μαζί.

(2) Εάν επιλέξετε πολλά μη γειτονικά κελιά στο πρώτο βήμα, αυτή η μακροεντολή VBA θα περιστρέφεται γύρω από κάθε κελί ξεχωριστά.

doc-circle-round-cell-8

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
THAKING YOU.........!
This comment was minimized by the moderator on the site
Thank you so much for this tip! I used the macro and it worked fantastically. I added macro multiple times for different colored ovals. One question - how do I shift the oval over to right on the cell slightly. I think this would better center the oval for the size of my cells. Thanks, Zach
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations