Πώς να αντιγράψετε ένα κρυφό φύλλο στο Excel;
Στο Excel, μπορούμε να μετακινήσουμε και να αντιγράψουμε ένα φύλλο στο τρέχον ή άλλο βιβλίο εργασίας γρήγορα και εύκολα, αλλά έχετε προσπαθήσει ποτέ να αντιγράψετε ένα κρυφό φύλλο σε ενεργό βιβλίο εργασίας; Αυτό το άρθρο, θα εισαγάγω έναν κωδικό VBA για να αντιγράψετε ένα συγκεκριμένο κρυφό φύλλο σε ενεργό αρχείο Excel.
Αντιγράψτε ένα κρυφό φύλλο εργασίας σε ενεργό βιβλίο εργασίας με κωδικό VBA
Αντιγράψτε ένα κρυφό φύλλο εργασίας σε ενεργό βιβλίο εργασίας με κωδικό VBA
Για να αντιγράψετε ένα κρυφό φύλλο από ένα βιβλίο εργασίας και να του δώσετε ένα όνομα, ο ακόλουθος κωδικός VBA μπορεί να σας βοηθήσει:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Αντιγράψτε ένα κρυφό φύλλο εργασίας στο ενεργό βιβλίο εργασίας:
Sub DupSheet()
'Updateby Extendoffice 20161109
Dim Actsheet As String
Application.ScreenUpdating = False
On Error Resume Next
ActiveWorkbook.Sheets("Sheet12").Visible = True
ActiveWorkbook.Sheets("Sheet12").Copy _
after:=ActiveWorkbook.Sheets("Sheet12")
ActNm = ActiveSheet.Name
ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
Sheets(ActiveSheet.Name).Visible = True
ActiveWorkbook.Sheets("Sheet12").Visible = False
Application.ScreenUpdating = True
End Sub
Note: Στον παραπάνω κώδικα, Φύλλο 12 είναι το κρυφό φύλλο που θέλετε να αντιγράψετε, αλλάξτε το ανάλογα με τις ανάγκες σας.
3. Και στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει να ορίσετε ένα όνομα για το νέο αντίγραφο του κρυφού φύλλου εργασίας, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί και το κρυφό φύλλο έχει αντιγραφεί ταυτόχρονα με το νέο όνομα στο ενεργό βιβλίο εργασίας.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
