Πώς να Απόκρυψη Καρτέλες φύλλου εργασίας χρησιμοποιώντας VBA

Στο Microsoft Excel , μπορείτε να χρησιμοποιήσετε το Visual Basic for Applications για να συνεργαστεί με τα φύλλα εργασίας . Μπορείτε να δημιουργήσετε, να αντιγράψετε , να μετακινήσετε , να διαγράψετε , κλείδωμα και απόκρυψη φύλλων εργασίας με λίγες γραμμές κώδικα . Συχνά , θα θέλετε να αποκρύψετε ορισμένα φύλλα στο βιβλίο εργασίας σας, ιδιαίτερα εκείνα που περιέχουν μορφοποιημένο ανεπεξέργαστα δεδομένα και τους υπολογισμούς . Για να αποκρύψετε ένα φύλλο εργασίας με το χέρι και χωρίς τη χρήση των μακροεντολών , μπορείτε να κάντε δεξί κλικ στην καρτέλα και επιλέξτε " Απόκρυψη" από το μενού . Μια απλή εναλλαγή μακροεντολή μπορεί να σας βοηθήσει να αυτοματοποιήσετε αυτό το έργο , ειδικά αν έχετε να ασχοληθεί με πολλά φύλλα εργασίας . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Excel . Πατήστε το πλήκτρο " CTRL + O ", επιλέξτε το βιβλίο εργασίας που περιέχει τα φύλλα που θέλετε να αποκρύψετε και στη συνέχεια κάντε κλικ στο "Άνοιγμα ". 2

Πατήστε " ALT + F8 " για να ανοίξει το " Μακροεντολές " παράθυρο. Πληκτρολογήστε " HideSheets " στο πλαίσιο " Όνομα μακροεντολής " και στη συνέχεια κάντε κλικ στο " Δημιουργία ". Αυτό ανοίγει το πρόγραμμα επεξεργασίας VBA .
Εικόνων 3

Πληκτρολογήστε τον ακόλουθο κώδικα στο πρόγραμμα επεξεργασίας VBA .

Sub HideSheets ( )

wSheets = Array ( "Sheet1 " , " Sheet2 " , " Φύλλο3 " )

wsstat = Φύλλα εργασίας ( wSheets ( 0 ) ) . Ορατό

Αν wsstat = xlSheetVisible τότε

wsstat = xlSheetHidden

Αλλιώς

wsstat = xlSheetVisible

End If

Για n = 0 να UBound ( wSheets )

Φύλλα εργασίας ( wSheets (n ) ) . Visible = wsstat

Επόμενο n

End Sub
Η 4

Αντικατάσταση " Φύλλο1 ", " Sheet2 " και " Sheet3 » με τα ονόματα των φύλλων που θέλετε να διαγράψετε. Μπορείτε να προσθέσετε ένα άλλο φύλλο στη λίστα προσαρτώντας το όνομά του μέσα σε εισαγωγικά και μετά από κόμμα .
Η
εικόνων