كيفية نسخ ورقة مخفية في Excel؟
في Excel ، يمكننا نقل ورقة إلى مصنف حالي أو مصنف آخر ونسخها بسرعة وسهولة ، ولكن هل سبق لك أن حاولت نسخ ورقة مخفية إلى مصنف نشط؟ في هذه المقالة ، سأقدم لك رمز VBA لنسخ ورقة مخفية محددة إلى ملف Excel النشط.
انسخ ورقة عمل مخفية إلى مصنف نشط برمز VBA
انسخ ورقة عمل مخفية إلى مصنف نشط برمز VBA
لنسخ ورقة مخفية من مصنف ، ومنحها اسمًا ، يمكن أن تقدم لك تعليمات VBA البرمجية التالية:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: انسخ ورقة عمل مخفية إلى مصنف نشط:
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 ، والورقة المخفية تم نسخها بالاسم الجديد في المصنف النشط مرة واحدة.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!