Θέμα: VBA Merge Cells

Εμφάνιση ενός μόνο μηνύματος
  #6  
Παλιά 23-10-15, 23:36
Το avatar του χρήστη Spirosgr
Spirosgr Ο χρήστης Spirosgr δεν είναι συνδεδεμένος
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.321
Προεπιλογή

Στο βιβλίο που ακολουθεί, υπάρχει λύση με VBA, όπου συμβαίνουν τα εξής:
1
Τρέχουμε τον κώδικα, από το κουμπί του φύλλου.
2
Ανοίγει Inputbox, στο οποίο, ορίζουμε την περιοχή, που θέλουμε (πχ b2:b20)
3
Πιέζουμε, Ok

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

Σημείωση:

Ο κώδικας, μας επιτρέπει να επιλέξουμε, μια ή και περισσότερες στήλες,
που για το συγκεκριμένο παράδειγμα, σημαίνει, ότι αν επιλέξουμε, τις b, c στήλες
θα συγχωνεύσει, την b, ως προς ονόματα και την c, ως προς Yes/No...
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm MergeCellsVBA.xlsm (27,0 KB, 17 εμφανίσεις)
Απάντηση με παράθεση