Μετάβαση στο κύριο περιεχόμενο

Πώς να εντοπίσετε προηγούμενα ή εξαρτώμενα άτομα για μια σειρά / πολλαπλά κελιά στο Excel;

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

Εντοπίστε προηγούμενα για μια σειρά κελιών με βοηθητικό τύπο

Ανίχνευση εξαρτημένων για μια σειρά κελιών με κώδικα VBA

Εντοπίστε προηγούμενα ή εξαρτώμενα άτομα για μια σειρά κελιών με το Kutools για Excel


Για να εντοπίσετε προηγούμενα για πολλά κελιά, τα παρακάτω βήματα μπορούν να σας βοηθήσουν:

1. Εισαγάγετε ίσο σύμβολο = σε ένα κενό κελί και, στη συνέχεια, κάντε κλικ στην επάνω αριστερή γωνία του φύλλου εργασίας για να επιλέξετε ολόκληρο το φύλλο, δείτε το στιγμιότυπο οθόνης:

εξαρτώμενο από το ίχνος εγγράφων 1

2. Στη συνέχεια πατήστε εισάγετε κλειδί και θα εμφανιστεί ένα προειδοποιητικό μήνυμα, δείτε το στιγμιότυπο οθόνης:

εξαρτώμενο από το ίχνος εγγράφων 2

3. και κάντε κλικ OK για να το κλείσετε και ένα 0 εμφανίζεται στο κελί, επιλέξτε το και μετά κάντε κλικ στο κουμπί ΜΑΘΗΜΑΤΙΚΟΙ τυποι και κάντε κλικ στο κουμπί Ανίχνευση προηγούμενων δύο φορές, όλα τα προηγούμενα των αντίστοιχων κελιών έχουν εντοπιστεί ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:

εξαρτώμενο από το ίχνος εγγράφων 3

4. Επιτέλους, μπορείτε να διαγράψετε τον τύπο βοηθού όπως χρειάζεστε.


Για να εντοπίσετε τα εξαρτώμενα άτομα για πολλά κελιά, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει, κάντε τα εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Ανίχνευση εξαρτημένων για μια σειρά κελιών:

Sub TraceDependents()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Union(xRg, ActiveSheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        xCell.ShowDependents
    Next
End Sub

3. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε το εύρος που θέλετε να χρησιμοποιήσετε, δείτε το στιγμιότυπο οθόνης:

εξαρτώμενο από το ίχνος εγγράφων 4

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, όλα τα εξαρτώμενα κελιά εντοπίζονται ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:

εξαρτώμενο από το ίχνος εγγράφων 5


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

Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες

Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:

1. Επιλέξτε το εύρος δεδομένων που θέλετε να εντοπίσετε τα προηγούμενα ή εξαρτώμενα άτομα.

2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Περισσότερες > Παρακολούθηση προηγούμενων σειρών / Παρακολούθηση εξαρτημένων από εύρη, δείτε το στιγμιότυπο οθόνης:

3. Εντοπισμός των προηγούμενων κελιών, επιλέξτε Παρακολουθήστε τα προηγούμενα των σειρών για να λάβετε το ακόλουθο αποτέλεσμα:

εξαρτώμενο από το ίχνος εγγράφων 7

Εντοπισμός των εξαρτημένων κελιών, επιλέξτε Παρακολούθηση εξαρτημένων από εύρη για να λάβετε το ακόλουθο αποτέλεσμα:

εξαρτώμενο από το ίχνος εγγράφων 8

:

1. Αυτή η δυνατότητα είναι δυναμική, θα αλλάξει ανάλογα με την επιλογή σας.

2. Μπορείτε επίσης να εφαρμόσετε αυτήν τη δυνατότητα κάνοντας κλικ Kutools Plus > Σχεδιασμός φύλλου εργασίας, Σύμφωνα με το Υπηρεσίες κάντε κλικ στην καρτέλα Παρακολούθηση Προηγούμενα και εξαρτώμενα

3. Απλώς πρέπει να κάνετε ξανά κλικ στο βοηθητικό πρόγραμμα για να απενεργοποιήσετε την ανίχνευση.

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!


Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The reason that Excel hangs is due to the time. There is an error in the macro. It is showing application.union but what it should be doing is using application.intersect. The reason it's hanging is because it's working to trace dependents on the entire worksheet instead of the specified area.
This comment was minimized by the moderator on the site
Hi, jchumley,Yes, as you said, the code works for entire worksheet, if you need the code works for a selected range, please apply the below code:<div data-tag="code">Sub TraceDependents()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
xCell.ShowDependents
Next
End SubPlease try, hope it can help you!
This comment was minimized by the moderator on the site
I've found this macro very useful, thank you. I do have one rather large issue - the macro will cause excel to stop responding and I have to close out and restart the program each time I run it. Any fixes/recommendations? Thank you!
This comment was minimized by the moderator on the site
When running the macro version, it causes excel to stop responding. I then have to restart excel. Has anyone else encountered this and have a fix? This is a very helpful macro, thank you. Hoping I can resolve this issue.
This comment was minimized by the moderator on the site
Thank you very much!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations