Πώς να αντιγράψετε ένα κρυφό φύλλο στο 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

Σημείωση: Στον παραπάνω κώδικα, Φύλλο 12 είναι το κρυφό φύλλο που θέλετε να αντιγράψετε, αλλάξτε το ανάλογα με τις ανάγκες σας.

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

4. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί και το κρυφό φύλλο έχει αντιγραφεί ταυτόχρονα με το νέο όνομα στο ενεργό βιβλίο εργασίας.