Το Kuldeep πρέπει να επιλέγει κάθε τρίτο κελί μέσω μιας περιοχής 1500 κυττάρων. παρέχει μια τρελή λύση.
Δες το βίντεο
- Ο Kuldeep θέλει να επιλέξει κάθε τρίτο κελί για 1500 κελιά
- Ο κώδικας μακροεντολής για την ένωση και των 500 κελιών είναι πολύ μεγάλος και προκαλεί σφάλμα μεταγλώττισης!
- Λύση: Δημιουργία 1, κενό, κενό. Αντιγράψτε αυτά τα τρία κελιά και επικολλήστε σε 1500 κελιά
- Επιλέξτε τα 1500 κελιά. Αρχική σελίδα, Εύρεση & Επιλογή, Μετάβαση σε Ειδικά, Σταθερές για επιλογή κάθε τρίτου κελιού
- Στη συνέχεια, μια γραμμή VBA για να μετακινήσετε την επιλογή Ν σειρές ή στήλες μακριά.
- Τέλος, μια μακροεντολή VBA για να κάνετε το όλο πράγμα
- Cool Tip: Εάν χρησιμοποιείτε το διάλογο Ctrl + G για Μετάβαση σε, εμφανίζει πρόσφατα επιλεγμένα εύρη.
- Cool Tip: Στο παράθυρο διαλόγου Μετάβαση σε, κρατήστε πατημένο το Shift για να επιλέξετε από το τρέχον κελί στο κελί μετάβασης σε.
- Συμβουλή VBA: Χρήση UsedRegion για να βρείτε την τελευταία σειρά στο φύλλο εργασίας
Μεταγραφή βίντεο
Μάθετε το Excel από, Podcast Episode 2108: Select Every Third Cell.
Αυτό είναι ντοκιμαντέρ. Ο Kuldeep στέλνει μια ερώτηση. Λέει ότι έχει δεδομένα στο E24 έως το BEV24. Αυτό είναι 1500 κύτταρα. Πρέπει να επιλέξει κάθε τρίτο κελί. (ακατανόητο - 00:14) η μακροεντολή ένωσης είναι πολύ μεγάλη και δημιουργεί σφάλματα. Για τι μιλάει, η μακροεντολή της ένωσης;
Μιλάει, το έχει ήδη δοκιμάσει, HOWTOSELECTEVERYTHIRDCELL. Καταγράψτε μια μικρή μακροεντολή εδώ. Επιλέξτε αυτό το κελί και, στη συνέχεια, τα πλήκτρα CONTROL, αυτό το κελί, αυτό το κελί, αυτό το κελί, αυτό το κελί, αυτό το κελί. (ακατανόητο - 00:33) πάμε πολύ μακριά. Θέλω απλώς να δω πώς καταγράφουν τον κώδικα. Διακοπή εγγραφής. ALT + F8. HOWTOSELECTEVERYTHIRDCELL, EDIT, και αυτό είναι πολύ κακό. Δεν υπάρχει μαγικός τρόπος επιλογής κάθε τρίτου κελιού. Απλά πρέπει να απαριθμήσετε και τα 500 κελιά εκεί, που θα διαρκέσουν περισσότερο από την επιλογή των 500 κελιών, σωστά; Απλώς άσκοπο. Άσκοπο, άσκοπο, άσκοπο. (Έτσι ώστε η συσκευή εγγραφής μακρο - 01:00) να μην έχει καλύτερο τρόπο να το κάνει αυτό.
Έτσι είπα στον Kuldeep, αυτό που πρόκειται να κάνουμε, αυτό που πρέπει να αξιοποιήσουμε, είναι τα ειδικά κελιά. Είπα, κατά πάσα πιθανότητα, είναι κάθε τρίτο κελί αριθμητικό και όλα τα άλλα είναι κείμενο; Όχι, λέει. Εντάξει, οπότε εδώ θα κάνω. Θα πάω σε μια ολοκαίνουργια σειρά και θα βάλω ένα 1 και έπειτα τίποτα, τίποτα, και θα αντιγράψω αυτά τα τρία κελιά, αυτά τα τρία κελιά έτσι, και τότε αυτό που πρόκειται να κάνω είναι εγώ » Θα πάω στο τέλος και επιλέξτε όλα αυτά τα κελιά. Τώρα, αυτό είναι 1500 κελιά που είναι πολλαπλάσιο των 3, και επικολλήστε, και αυτό που θα κάνει για μένα είναι ότι θα μου δώσει κάθε τρίτο κελί θα είναι αριθμητικό, έτσι, και το όμορφο πράγμα είναι, αυτό που εμείς μπορώ να κάνω είναι, επιλέξτε από εδώ, πληκτρολογήστε BEV26, και θα κρατήσω πατημένο το πλήκτρο SHIFT όταν κάνω κλικ στο OK, και αυτό θα επιλέξει μέχρι το τέλος, και στη συνέχεια HOME,ΒΡΕΙΤΕ & ΕΠΙΛΟΓΗ, Πηγαίνετε στο ΕΙΔΙΚΟ, και θέλω τα ΠΕΡΙΕΧΟΜΕΝΑ, κάντε κλικ στο OK και αυτό που έχω κάνει τώρα είναι ότι κατάφερα να επιλέξω πολύ γρήγορα κάθε τρίτο κελί.
Λες, λοιπόν, τι καλό είναι αυτό; Πώς προωθείτε την επιλογή, η οποία είναι μια μεγάλη ερώτηση, αλλά εδώ θα κάνουμε. Θα μεταβούμε στο VBA. ALT + F11, ALT + F11, CONTROL + G, και αυτό το όμορφο κομμάτι κώδικα εδώ. Από την επιλογή, θα αντισταθμίσουμε έναν αριθμό σειρών προς τα κάτω, έναν αριθμό στηλών πάνω και θα επιλέξουμε, εντάξει; Έτσι, κοιτάζοντας τα δεδομένα, θέλω να πάω στον Μπιλ Τζέλεν στην Ε23. Στην πραγματικότητα, θέλω να πάω στο Kuldeep στο E24, το οποίο είναι 2 σειρές. Λοιπόν, θα πω ότι ανεβαίνετε 2 σειρές, πατήστε το πλήκτρο ENTER και αυτή η επιλογή, που ήταν κάθε τρίτο κελί, θα ανεβεί τώρα.
Δεν είναι απλώς φοβερό, και, στην πραγματικότητα, έγραψα τέσσερις μικρές μακροεντολές, μία που ονομάζεται μετακίνηση προς τα πάνω, μετακίνηση προς τα κάτω, κίνηση αριστερά, μετακίνηση δεξιά, γιατί όταν έδειξα στον Kuldeep αυτήν τη μέθοδο, είναι σαν, ω, όχι, υπάρχουν 20 πράγματα έχω να κάνω. Λοιπόν, εδώ, θα κάνουμε κλικ στη μακροεντολή μετακίνησης προς τα πάνω, η οποία θα πρέπει να με μετακινήσει μέχρι τη γραμμή 23 και στη συνέχεια τη μετακίνηση δεξιά μακροεντολή, τη μετακίνηση δεξιά μακροεντολή, μετακίνηση προς τα κάτω, αριστερά, αριστερά, δεξιά; Κοιτάξτε, θα μπορούσαμε απλά … μπορούμε … μόλις φτάσουμε αυτό το πράγμα εκεί, είμαστε πραγματικά δροσεροί που μπορούμε να μεταφέρουμε τα πράγματα, ξέρετε, και στη συνέχεια, από εκεί, υπήρχε μια σειρά από άλλα πράγματα που ο Kuldeep ήθελε να κάνει . Ήθελε να αντιγράψει και να επικολλήσει (ακατανόητο - 03:14) να μεταφέρει κάπου αλλού, σωστά, και αυτό είναι όλα εύκολα πράγματα, σχετικά. Επιλέγει κάθε τρίτο κελί.
Τώρα, αυτό που θα σας δείξω εδώ - επειδή υποψιάζομαι ότι ο Kuldeep θέλει να κάνει όλα αυτά σε μια μακροεντολή και δεν θέλει να κάνει τα βήματα ξανά και ξανά και ξανά, και χαιρετίζω αυτό, αυτό είναι φοβερό - θα πω στον Kuldeep, το πρώτο πράγμα που θέλω να κάνω είναι ότι θέλω να επιλέξετε όλα τα κελιά. (Πού - 03:35) θέλετε να επιλέξετε κάθε τρίτο κελί, θέλω να επιλέξετε όλα τα κελιά έτσι, εντάξει, και στη συνέχεια θα πούμε μετρήστε πόσες στήλες έχουμε, καταλάβετε από πού ξεκινήσαμε και, στη συνέχεια, υπολογίστε από την επόμενη διαθέσιμη σειρά και χρησιμοποιώ το USEDRANGE για να βρω πού βρίσκεται η τελευταία σειρά. Προσθέτω 2 σειρές σε αυτό, και αυτό που πρέπει να κάνει είναι να βρούμε μια ωραία κενή σειρά στη σειρά 27. Ας ρίξουμε μια ματιά, και έτσι το 27 είναι μια κενή σειρά. Ο κώδικας πρόκειται να βάλει 1 στη στήλη 5 αυτής της κενής σειράς,και μετά θα αντιγράψει 3 κελιά. Έτσι, τα E, F και G βρίσκονται στα 3 κελιά που θα αντιγράψουμε εκεί και θα το αντιγράψουμε στις 1500 στήλες, οι οποίες θα δημιουργήσουν μια σειρά από 1s και κενό, κενό, 1, κενό, κενό, 1, κενό, κενό, μέχρι το τέλος των δεδομένων μας, και στη συνέχεια τα SPECIALCELLS, αυτό είναι το σπίτι, βρείτε και επιλέξτε, μεταβείτε σε ειδικά κελιά, επιλέξτε τις σταθερές,. ΕΠΙΛΕΞΤΕ.
Εντάξει, λοιπόν, τώρα, έχει επιλεγεί αυτά τα δεδομένα και, στη συνέχεια, ξέρουμε ότι θέλουμε να ανεβούμε 4 σειρές και, bam, έτσι, ανεβαίνει, στην περίπτωση αυτή στη σειρά 23. Ο Kuldeep θέλει τη σειρά 24, (προσαρμόστε τον κωδικό ένα bit - 04:43) και, στη συνέχεια, πατήστε το κάτω βέλος και είμαστε καλοί να ξεκινήσουμε.
Αυτός είναι ο καλύτερος τρόπος που πρέπει να το κάνω. Εάν κάποιος έχει μια καλύτερη μέθοδο για να επιλέξει κάθε τρίτο κελί (ακατανόητο - 04:52) δροσερό τρόπο να το κάνει αυτό ή κάθε άλλο κελί ή κάθε τέταρτο κελί, με κάθε τρόπο, αφήστε μερικά σχόλια στα σχόλια του YouTube.
Λοιπόν, γεια. Δεν έχω προωθήσει ούτε το βιβλίο Power Excel With ούτε το βιβλίο VBA με μακροεντολές. Πολλές εξαιρετικές συμβουλές και κόλπα excel σε αυτά τα βιβλία. Κάντε κλικ στο i στην επάνω δεξιά γωνία για να διαβάσετε περισσότερα για το βιβλίο.
Καλώς. Έτσι, σε αυτό το επεισόδιο, ο Kuldeep θέλει να επιλέξει κάθε τρίτο κελί για 1500 κελιά. Προσπάθησε να γράψει μια μακροεντολή για να ενώσει και τα 500 κελιά, αλλά είναι πολύ μεγάλο και προκαλεί σφάλμα μεταγλώττισης. Λοιπόν, λύση 1: δημιουργήστε μια συστοιχία 3 κυττάρων με 1, κενό, κενό. αντιγράψτε αυτά τα 3 κελιά και επικολλήστε σε 1500 κελιά. που δημιουργεί ένα εύρος 1500 κυψελών ευρείας κλίμακας με 1, κενό, κενό, 1, κενό κενό. επιλέξτε τα 1500 κελιά, βρείτε και επιλέξτε, μεταβείτε σε ειδικές, σταθερές, επιλέγει κάθε τρίτο κελί. τότε αυτή η μία γραμμή του VBA, select.offset.select, για να μετακινήσετε έναν αριθμό σειρών ή στηλών ή οτιδήποτε άλλο. και στη συνέχεια (ακατανόητο - 05:52) μια μακροεντολή VBA για να κάνουμε το όλο πράγμα.
Θέλω να ευχαριστήσω τον Kuldeep για την αποστολή της ερώτησης και θέλω να σας ευχαριστήσω που σταματήσατε. Θα σας δούμε την επόμενη φορά για ένα άλλο netcast από.
Λήψη αρχείου
Κατεβάστε το δείγμα αρχείου εδώ: Podcast2108.xlsm
