05-04-19, 07:55
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού 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
| |
Καλημέρα
Στο βιβλίο που ακολουθεί, υπάρχει ολοκληρωμένη η πρόταση, για μεταφορά
μιας στήλης από ένα φύλλο σε περισσότερες στήλες, άλλου φύλλου.
Συμπληρώνουμε στις παραμέτρους του κώδικα:
'Φύλλο εκκίνησης (όνομα)
'Φύλλο προορισμού (όνομα)
'Φύλλο εκκίνησης αριθμός πρώτου κελιού στήλης που θα μεταφερθεί
'Φύλλο εκκίνησης αριθμός στήλης που θα μεταφερθεί (1 = a)
'Φύλλο προορισμού αριθμός πρώτης στήλης που θα πάνε τα δεδομένα (1 = a)
'Φύλλο προορισμού «ντάνες» πχ των 30 γραμμών
'Φύλλο προορισμού στήλες που θα καταλάβουν οι ντάνες πχ 9
'Φύλλο προορισμού γραμμή που ξεκινάνε τα δεδομένα
Τρέχουμε τον κώδικα:
Ελέγχει αν τα δεδομένα στην στήλη που θα μεταφερθεί, «χωράνε» στην περιοχή
που έχουμε ορίσει.
Αν δεν χωράνε μας βγάζει ένα μνμ και σταματάει.
Αν όλα καλά, καθαρίζει τα παλιά δεδομένα και τοποθετεί στην προκαθορισμένη
στήλη τα δεδομένα, «σπάζοντάς» τα σε ντάνες όπως έχουμε ορίσει.
Τελευταία επεξεργασία από το χρήστη Spirosgr : 05-04-19 στις 09:09.
|