Πώς να τετραγωνίσετε πολλά κελιά στο Excel;
Μερικές φορές, πρέπει να κάνετε τα κελιά τετράγωνα σε ένα φύλλο εργασίας, ώστε να μπορείτε να σχεδιάσετε κάποια διάγραμμα ροής ή σχέδια σπιτιών. Ωστόσο, το ύψος της γραμμής κελιού και το πλάτος της στήλης έχουν διαφορετικές μονάδες, επομένως είναι δύσκολο για εσάς να ορίσετε τόσο το ύψος της σειράς όσο και το πλάτος της στήλης στην ίδια διάσταση. Εδώ είναι μερικά κόλπα για να λύσετε αυτό το πρόβλημα:
Τετραγωνικά πολλαπλά κελιά σύροντας περιγράμματα στηλών και γραμμών
Τετραγωνικά πολλαπλά κελιά με κωδικό VBA
Τετραγωνικά πολλαπλά κελιά με Kutools για Excel
Τετραγωνικά πολλαπλά κελιά σύροντας περιγράμματα στηλών και γραμμών
Εάν θέλετε να κάνετε κάθε κελί ενός φύλλου εργασίας ένα ακριβές τετράγωνο, κάντε τα εξής:
1. Τύπος Ctrl + A για να επισημάνετε ολόκληρο το φύλλο εργασίας.
2. Βάλτε τον κέρσορα στο περίγραμμα μεταξύ της στήλης Α και της στήλης Β, ο δρομέας θα αλλάξει σε μαύρο διπλό βέλος, θα τον σύρετε και θα δείτε δύο αριθμούς όπως "Πλάτος: 8.43 (64 pixel)", σύρετε μέχρι έναν αριθμό που χρειάζεστε. Σε αυτό το παράδειγμα, θα μεταφέρω το "Πλάτος: 13.57 (100 pixel)".
3. Στη συνέχεια, τοποθετήστε τον κέρσορα στο περίγραμμα μεταξύ της σειράς 1 και της γραμμής 2. Ενώ ο δρομέας αλλάζει σε μαύρο διπλό βέλος, σύρετέ τον, κάντε τον αριθμό σε pixel να ταιριάζει με τον αριθμό pixel που έχετε στο βήμα 2, θα λάβετε "Ύψος 75.00 ) ".
Όταν αφήσετε το ποντίκι, θα έχετε ολόκληρο φύλλο τετραγωνικών κελιών με 100 * 100 pixel. Δείτε το στιγμιότυπο οθόνης:
Τετραγωνικά πολλαπλά κελιά με κωδικό VBA
Ο παρακάτω κώδικας VBA μπορεί επίσης να σας βοηθήσει να επιλύσετε αυτήν την εργασία.
1. Επιλέξτε τα κελιά που θέλετε να τα κάνετε τετράγωνα.
2. Κλίκ Εργολάβος > Visual Basic, Ένα νέο Microsoft Visual Basic για εφαρμογές θα εμφανιστεί το παράθυρο, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι εισαγάγετε τον ακόλουθο κώδικα στην Ενότητα:
Sub MakeSquare ()
Dim WPChar ως διπλό
Dim DInch ως διπλό
Dim Temp ως συμβολοσειρά
Temp = InputBox ("Ύψος και πλάτος σε ίντσες;")
DInch = Val (Temp)
Εάν DInch> 0 και DInch <2.5 τότε
Για κάθε c Στο ActiveWindow.RangeSelection.Columns
WPChar = γ. Πλάτος / γ. Πλάτος στήλης
c. ColumnWidth = ((DInch * 72) / WPChar)
Επόμενο γ
Για κάθε r Στο ActiveWindow.RangeSelection.Rows
r.Ύψος γραμμής = (Απόσταση * 72)
Επόμενο r
End If
Sub End
3. Στη συνέχεια κάντε κλικ στο κουμπί κουμπί για να εκτελέσετε τον κωδικό. Και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι εισάγετε τον αριθμό που χρειάζεστε. Δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί OK. Και τα επιλεγμένα κελιά έχουν αλλάξει σε τετράγωνα κελιά.
Note: Στον παραπάνω κωδικό, μπορείτε να εισαγάγετε τον αριθμό μόνο από 0 έως 2.5 ίντσες, εάν ο εισαγόμενος αριθμός είναι 0 ή μικρότερος από 0 ή ο αριθμός ίσος με 2.5 ή μεγαλύτερος από 2.5, αυτός ο κωδικός δεν θα είναι διαθέσιμος.
Τετραγωνικά πολλαπλά κελιά με Kutools για Excel
Ο παραπάνω κωδικός έχει κάποιο περιορισμό και χρησιμοποιεί μόνο την ίντσα ως μονάδα. Αν θέλετε να δημιουργήσετε ένα τετράγωνο ως 5 * 5 cm σε excel, πώς μπορείτε να κάνετε;
Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα
Εάν έχετε εγκαταστήσει το Kutools για Excel, αυτό το πρόβλημα θα λυθεί εύκολα.
1. Επισημάνετε τα κελιά που θέλετε να τα κάνετε τετράγωνα。
2. Κλίκ Kutools > Μετατροπέας εύρους > Προσαρμογή μεγέθους κελιού, δείτε το στιγμιότυπο οθόνης:
3. Στην Προσαρμογή μεγέθους κελιού πλαίσιο διαλόγου, καθορίστε τον τύπο ενοποίησης. Στη συνέχεια, εισαγάγετε το ύψος και το πλάτος της στήλης με τον ίδιο αριθμό που χρειάζεστε. Δείτε το στιγμιότυπο οθόνης:
4. Κλίκ OK or Εφαρμογή, τα επιλεγμένα κελιά έχουν αλλάξει σε τετράγωνα με 2 * 2 cm.
Note: Μπορείτε να ορίσετε άλλη μονάδα όπως Λίρα, ίντσες ή Pixel όπως θέλετε.
Κάντε κλικ για να μάθετε περισσότερα σχετικά με αυτήν τη δυνατότητα Προσαρμογή μεγέθους κελιού.
Σχετικά άρθρα:
- Πώς να ορίσετε το μέγεθος του κελιού σε cm (εκατοστά) στο Excel;
- Ορίστε το πλάτος και το ύψος της στήλης για ένα εύρος
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!