كيفية نسخ ورقة عمل مخفية في Excel؟

في Excel، يمكننا نقل ونسخ ورقة عمل إلى المصنف الحالي أو إلى مصنف آخر بسرعة وسهولة، ولكن هل سبق لك أن حاولت نسخ ورقة عمل مخفية إلى المصنف النشط؟ في هذه المقالة، سأقدم لك كود VBA لمساعدتك على نسخ ورقة عمل مخفية معينة إلى ملف Excel النشط.

نسخ ورقة عمل مخفية إلى المصنف النشط باستخدام كود VBA

نسخ ورقة عمل مخفية إلى المصنف النشط باستخدام كود VBA

لنسخ ورقة عمل مخفية من مصنف وإعطائها اسمًا جديدًا، يمكن للكود التالي في VBA مساعدتك في ذلك:

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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. بعد ذلك، انقر فوق زر موافق، وسيتم نسخ الورقة المخفية باسم جديد في المصنف النشط فورًا.