Ταξινομήστε μια περιοχή εύρους στο διπλό κλικ

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

Μπορείτε να κατεβάσετε ένα λειτουργικό παράδειγμα αυτής της τεχνικής διπλού κλικ στο Excel.

Πώς λειτουργεί η μακροεντολή

Σε αυτήν τη μακροεντολή, βρίσκετε πρώτα την τελευταία μη γραμμική γραμμή. Στη συνέχεια, χρησιμοποιείτε αυτόν τον αριθμό σειράς για να ορίσετε το εύρος στόχου των γραμμών που πρέπει να ταξινομήσετε. Χρησιμοποιώντας τη μέθοδο ταξινόμησης, ταξινομείτε τις σειρές προορισμού από τη στήλη που κάνατε διπλό κλικ.

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Ακύρωση ως Boolean) 'Βήμα 1: Δηλώστε τις μεταβλητές σας Dim LastRow As Long' Βήμα 2: Βρείτε την τελευταία μη κενή σειρά LastRow =, 1). Τέλος (xlUp). Γραμμή "Βήμα 3: Ταξινόμηση αύξουσας σε στήλες με διπλό κλικ (" 6: "& LastRow). Ταξινόμηση _ Key1: = Κύτταρα (6, ActiveCell, Στήλη), Order1: = xlAscending End Sub

Στο βήμα 1, δηλώνετε μια μεταβλητή Long Integer που ονομάζεται LastRow για να κρατήσετε τον αριθμό σειράς της τελευταίας nonempty γραμμής.

Σημειώστε ότι πρέπει να αλλάξετε τον αριθμό της στήλης σε αυτό το κελί σε εκείνο που είναι κατάλληλο για το σύνολο δεδομένων σας. Για παράδειγμα, εάν ο πίνακας σας ξεκινά από τη στήλη J, πρέπει να αλλάξετε τη δήλωση στο βήμα 2 σε κελιά (σειρές, Count, 10). Τέλος (xlUp). Γραμμή επειδή η στήλη J είναι η 10η στήλη στο φύλλο εργασίας.

Στο Βήμα 3, ορίζετε το συνολικό εύρος σειράς για τα δεδομένα σας. Λάβετε υπόψη ότι το εύρος γραμμών πρέπει να ξεκινά με την πρώτη σειρά δεδομένων (εξαιρουμένων των κεφαλίδων) και να τελειώνει με την τελευταία μη γραμμική γραμμή. Σε αυτή την περίπτωση, το σύνολο δεδομένων σας ξεκινά στη σειρά 6, οπότε χρησιμοποιείτε τη μέθοδο Ταξινόμηση στις σειρές ("6:" & LastRow).

Το παράθυρο του κλειδιού λέει στο Excel ποια είναι η σειρά ταξινόμησης. Και πάλι, θα θέλετε να βεβαιωθείτε ότι η περιοχή που χρησιμοποιείτε αρχίζει με την πρώτη σειρά δεδομένων (εξαιρώντας τις κεφαλίδες).

Πώς να χρησιμοποιήσετε τη μακροεντολή

Για να εφαρμόσετε αυτήν τη μακροεντολή, πρέπει να αντιγράψετε και να την επικολλήσετε στο παράθυρο κώδικα συμβάντος Worksheet_BeforeDoubleClick. Η τοποθέτηση της μακροεντολής δίνει τη δυνατότητα να εκτελείται κάθε φορά που κάνετε διπλό κλικ στο φύλλο:

Ενεργοποιήστε τον επεξεργαστή της Visual Basic πατώντας τα πλήκτρα ALT + F11.

1. Στο παράθυρο Project, βρείτε το όνομα του έργου / βιβλίου εργασίας σας και κάντε κλικ στο σύμβολο συν δίπλα του για να δείτε όλα τα φύλλα.

2. Κάντε κλικ στο φύλλο από το οποίο θέλετε να ενεργοποιήσετε τον κώδικα.

3. Στο αναπτυσσόμενο πλαίσιο Εκδήλωση, επιλέξτε το γεγονός BeforeDoubleClick.

4. Πληκτρολογήστε ή επικολλήστε τον κώδικα.