Σε αυτό το σεμινάριο, θα εξετάσουμε τους διαφορετικούς τρόπους με τους οποίους μπορείτε να συγχωνεύσετε κελιά χρησιμοποιώντας το VBA.
Συγχώνευση κελιών με χρήση VBA
Μπορείτε να συγχωνεύσετε κελιά σε VBA χρησιμοποιώντας τη μέθοδο Range.Merge. Ο ακόλουθος κώδικας θα συγχωνεύσει τα κελιά A1: C1:
| 12345 | Sub MergingCells ()Εύρος ("A1: C1"). ΣυγχώνευσηΤέλος υπο |
Το αποτέλεσμα είναι:
Ξεμπλοκάρετε κελιά χρησιμοποιώντας VBA
Μπορείτε να ξεμπερδέψετε μια συγχωνευμένη περιοχή κελιών χρησιμοποιώντας τη μέθοδο Range.UnMerge. Ας υποθέσουμε ότι έχετε συγχωνεύσει το εύρος κελιών A1: D1. Μπορείτε να χρησιμοποιήσετε μία από τις αναφορές κελιών στο εύρος για να ξεμπερδέψετε τα κελιά. Ο παρακάτω κώδικας σάς δείχνει πώς να ξεμπερδέψετε τα κελιά A1: D1, σε αυτήν την περίπτωση χρησιμοποιούμε το κελί B1:
| 12345 | Υπο UnmergeCells ()Εύρος ("B1"). UnMergeΤέλος υπο |
Περισσότερα παραδείγματα συγχώνευσης
Συγχώνευση σειρών χρησιμοποιώντας VBA
Μπορείτε να συγχωνεύσετε σειρές χρησιμοποιώντας το VBA καθορίζοντας τους αριθμούς γραμμών που θέλετε να συγχωνεύσετε. Έχουμε το κείμενο στο κελί Α1 που φαίνεται παρακάτω:
Ο ακόλουθος κώδικας θα συγχωνεύσει τις γραμμές 1-4:
| 12345 | Sub MergeRows ()Εύρος ("1: 4"). ΣυγχώνευσηΤέλος υπο |
Το αποτέλεσμα είναι:
Συγχώνευση στηλών χρησιμοποιώντας VBA
Μπορείτε να συγχωνεύσετε στήλες χρησιμοποιώντας το VBA και τα γράμματα της στήλης. Ο ακόλουθος κώδικας θα συγχωνεύσει τις στήλες A: C.
| 12345 | Υποσυγχώνευση στηλών ()Εύρος ("A: C"). ΣυγχώνευσηΤέλος υπο |
Το αποτέλεσμα είναι:
Συγχώνευση και κεντρικό περιεχόμενο κυττάρων οριζόντια
Μπορείτε να συγχωνεύσετε και να κεντράρετε τα περιεχόμενα κελιών οριζόντια σε μια περιοχή κελιών. Πρέπει να συγχωνεύσετε τα κελιά που σας ενδιαφέρουν και επίσης να ορίσετε την ιδιότητα οριζόντιας στοίχισης του αντικειμένου εύρους σε κέντρο. Έχουμε το κείμενο στο κελί Α1 όπως φαίνεται παρακάτω:
Ο ακόλουθος κώδικας θα συγχωνεύσει το εύρος κελιών A1: D1 και θα κεντράρει οριζόντια το περιεχόμενο του κελιού A1 σε αυτό το εύρος κελιών:
| 123456 | Sub MergeandCenterContentsHorizontally ()Εύρος ("A1: D1"). ΣυγχώνευσηΕύρος ("A1: D1"). HorizontalAlignment = xlCenterΤέλος υπο |
Το αποτέλεσμα είναι:
Συγχώνευση και κεντρικό περιεχόμενο κυψέλης κάθετα
Μπορείτε να συγχωνεύσετε και να κεντράρετε τα περιεχόμενα των κελιών κάθετα σε μια περιοχή κελιών. Πρέπει να συγχωνεύσετε τα κελιά που σας ενδιαφέρουν και επίσης να ορίσετε την ιδιότητα κάθετης στοίχισης του αντικειμένου εύρους σε κέντρο. Έχουμε το κείμενο στο κελί Α1 όπως φαίνεται παρακάτω:
Ο ακόλουθος κώδικας θα συγχωνεύσει το εύρος κελιών A1: A4 και θα κεντράρει κάθετα το περιεχόμενο του κελιού A1 σε αυτό το εύρος κελιών:
| 123456 | Sub MergeandCenterContentsVertically ()Εύρος ("A1: A4"). ΣυγχώνευσηΕύρος ("A1: D1"). VerticalAlignment = xlCenterΤέλος υπο |
Το αποτέλεσμα είναι:
Συγχώνευση κελιών σε μια περιοχή κυττάρων
Μπορείτε να συγχωνεύσετε κελιά σε μια περιοχή κελιών. Πρέπει να ορίσετε την προαιρετική παράμετρο Across της μεθόδου συγχώνευσης σε True. Έχουμε το κείμενο στο κελί Α1 όπως φαίνεται παρακάτω:
Ο ακόλουθος κώδικας θα συγχωνεύσει το εύρος κελιών A1: D1:
| 12345 | Sub MergeCellsAcross ()Εύρος ("A1: D1"). Merge Across: = TrueΤέλος υπο |
Το αποτέλεσμα είναι:
