Εάν εργάζεστε σε πολλά βιβλία εργασίας ταυτόχρονα και χρειάζεστε μια μακροεντολή που θα σας βοηθήσει να αποκρύψετε όλα τα ανενεργά βιβλία εργασίας, τότε αυτό το άρθρο σίγουρα θα σας βοηθήσει.
Σε αυτό το άρθρο, θα εστιάσουμε στον τρόπο με τον οποίο μπορούμε να αποκρύψουμε πολλά βιβλία εργασίας που δεν χρησιμοποιείτε αυτήν τη στιγμή.
Ερώτηση: Πρέπει να κρύψω γρήγορα όλα τα αρχεία excel εκτός από αυτό που χρησιμοποιώ αυτήν τη στιγμή, ώστε να μπορώ να κάνω εναλλαγή μεταξύ άλλων εφαρμογών ομαλά. Θα ήθελα να αναζητήσω κώδικα VBA για αυτή τη μοναδική απαίτησή μου.
Για να λάβουμε τον κώδικα για την απόκρυψη όλων των ανενεργών βιβλίων εργασίας, πρέπει να ακολουθήσουμε τα παρακάτω βήματα για να ξεκινήσουμε τον επεξεργαστή VB
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κώδικα επιλέξτε Visual Basic
- Αντιγράψτε τον ακόλουθο κώδικα στην ενότητα φύλλου εργασίας
Sub HideInactiveExcelWorkbooks () Application.ScreenUpdating = False Dim aWin As Window Set aWin = ActiveWindow Dim win As Window For every win In Application.Windows win.Visible = False Next win aWin.Visible = True Application.ScreenUpdating = True End Sub
- Ο παραπάνω κώδικας θα αποκρύψει αμέσως όλα τα ανενεργά βιβλία εργασίας
Σημείωση: η παραπάνω μακροεντολή δεν θα αποκρύψει το ενεργό βιβλίο εργασίας.
Για να αποκρύψετε όλα τα βιβλία εργασίας, πρέπει να ακολουθήσετε τα παρακάτω βήματα:
- Κάντε κλικ στην καρτέλα Προβολή
- Κάντε κλικ στην επιλογή Απόκρυψη
- Αυτό θα εμφανίσει τα απόκρυψη βιβλίων εργασίας
- Επιλέγοντας το καθένα και κάνοντας κλικ στο κουμπί Ok θα εμφανιστεί το βιβλίο εργασίας
Συμπέρασμα: Μπορούμε να κρύψουμε εκατοντάδες βιβλία εργασίας που δεν είναι ενεργά με ένα μόνο κλικ χρησιμοποιώντας τον παραπάνω κώδικα μακροεντολής.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email
