أكاديمية الصقر للتدريب
FBConnect

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل عرض الأرقام كنسبة مئوية بالليست بوكس داخل الفورم اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .

Preview




تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله قدمت من قبل موضوعات تخص تصدير ورقة عمل محددة إلى مصنف جديد ، وك ..



06-09-2019 05:55 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9005
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26694
الاعجاب : 680
 offline 
السلام عليكم ورحمة الله وبركاته

إخواني وأحبابي في الله

قدمت من قبل موضوعات تخص تصدير ورقة عمل محددة إلى مصنف جديد ، وكذلك موضوع آخر تصدير مجموعة أوراق عمل بحيث كل ورقة عمل تكون في مصنف مستقل

اليوم نقدم موضوع مرتبط بهذه الموضوعات لكن المخرج مختلف ، حيث سيقوم الكود بتصدير أوراق عمل محددة إلى مصنف واحد فقط (يتم تحديد أوراق العمل المراد تصديرها من خلال مصفوفة أحادية) .. أي أن الأوراق التي سيتم تصديرها ستكون في ملف واحد مجمع

أترككم مع الكود المستخدم في الملف المرفق
Sub Export_Specific_Sheets_To_One_Workbook_Using_Arrays()
    Dim ws          As Worksheet
    Dim sSheets()   As String
    Dim n           As Long

    Application.ScreenUpdating = False
        For Each ws In Worksheets(Array("Sheet1", "Sheet4"))
            n = n + 1
            ReDim Preserve sSheets(1 To n)
            sSheets(n) = ws.Name
        Next ws
    
        Worksheets(sSheets).Copy
        Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "Output", FileFormat:=51
        Application.DisplayAlerts = True
    
        For Each ws In ActiveWorkbook.Worksheets
            ws.UsedRange.Value = ws.UsedRange.Value
        Next ws
    
        ActiveWorkbook.Close True
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub


يوجد سطر بالكود من خلاله يمكنك إضافة أو حذف أوراق العمل المطلوب تصديرها ، وهذا هو السطر الذي يمكنك من خلاله تغيير أوراق العمل
For Each ws In Worksheets(Array("Sheet1", "Sheet4"))


نلاحظ هنا أنه تم تعيين ورقة العمل Sheet1 و Sheet4 لتكون هي أوراق العمل المصدرة ، وستكون أوراق العمل مجمعة في مصنف واحد فقط في نفس مسار الملف الذي به الكود ...


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

إعداد وتقديم / ياسر خليل أبو البراء

أثارت هذه المشاركة إعجاب: عبدالله فتحى،



06-09-2019 05:58 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1543
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 65
قوة السمعة : 7182
الاعجاب : 148
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
أحسنت استاذ ياسر عمل ممتاز جزاك الله كل خير

أثارت هذه المشاركة إعجاب: عبدالله فتحى،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

06-09-2019 06:07 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9005
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26694
الاعجاب : 680
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
بارك الله فيك أخي العزيز علي ويسعدني أنك أول من ترد على موضوعاتي دائماً
جزاك الله خيراً

أثارت هذه المشاركة إعجاب: عبدالله فتحى،



06-09-2019 06:31 مساء
مشاهدة مشاركة منفردة [3]
كريم نظيم
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 06-01-2019
رقم العضوية : 10846
المشاركات : 96
الجنس : ذكر
تاريخ الميلاد : 5-11-1991
يتابعهم : 10
يتابعونه : 0
قوة السمعة : 152
الاعجاب : 3
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
عبر نفحات النسيم وأريج الأزاهير وخيوط الأصيل أرسل شكرًا من الأعماق لك شكرًا لك من أعماق قلبي على عطائك الدائم.
تميز و ابداع 

أثارت هذه المشاركة إعجاب: عبدالله فتحى،


توقيع :كريم نظيم

سبحــآآن آللـہ ۆ بحمده سبحــآآن آللـہ آلعظيّـم

سُبْحَانَ اللَّهِ وَبِحَمْدِهِ عَدَدَ خَلْقِهِ وَرِضَا نَفْسِهِ وَزِنَةَ عَرْشِهِ وَمِدَادَ كَلِمَاتِهِ



06-09-2019 07:00 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9005
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26694
الاعجاب : 680
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
بارك الله فيك أخي الكريم كريم ومشكور على مرورك العطر الذي ملأ أجواء الموضوع بروائح وأزهاير مزهرة .. بحاول أقلدك بس مش عارف

أثارت هذه المشاركة إعجاب: عبدالله فتحى،



06-09-2019 11:41 مساء
مشاهدة مشاركة منفردة [5]
sobhi67
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-05-2019
رقم العضوية : 13123
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 15-8-1967
يتابعهم : 11
يتابعونه : 0
قوة السمعة : 76
الاعجاب : 0
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
NDgyNzE2MQ1515%D8%A7%D9%84%D9%84%D9%87%20%D9%8A%D8%AD%D9%81%D8%B8%D9%83%D9%85%20%D9%85%D9%86%20%D9%83%D9%84%20%20%D8%B3%D9%88%D8%A1
 
  الله يحفظكم من كل سوء.jpg   تحميل jpg الله يحفظكم من كل  سوء.jpg مرات التحميل :(6)
الحجم :(11.547) KB
 





06-09-2019 11:53 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 240
قوة السمعة : 4322
الاعجاب : 6
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
بارك الله فيك استاذ ياسر وعمل اكثر اكثر من رائع
 



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

07-09-2019 05:51 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9005
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26694
الاعجاب : 680
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
أخي الكريم صبحي
أخي الكريم محمود
بارك الله فيكما وحفظكما من كل سوء ومشكور على مروركما العطر




08-09-2019 03:10 مساء
مشاهدة مشاركة منفردة [8]
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 189
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 264
الاعجاب : 29
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
بارك الله فيكم أخى وأستاذى أبو البراء
تقبل وافر تقديرى واحترامى وجزاكم الله خيرا




08-09-2019 04:14 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9005
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26694
الاعجاب : 680
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
تسلم أخي أبو عبد الرحمن
ومشكور على مرورك العطر




08-09-2019 10:15 مساء
مشاهدة مشاركة منفردة [10]
jjebril
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 86
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 170
الاعجاب : 3
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
بارك الله فيك استاذ ياسر ، تقبل وافر تقديرى واحترامى وجزاكم الله خيرا
هل ممكن استاذ ياسر جعل الكود يعمل مع اسماء الشيت مثل شيت اسمه (المعاملات) ، وليس sheet 1, sheet2 ، وهكذا ​

113





09-09-2019 07:34 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9005
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26694
الاعجاب : 680
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
بارك الله فيك أخي جبريل
الكود بالفعل يتعامل مع أسماء أوراق العمل وليست الأسماء البرمجية لأوراق العمل
لذا يمكن استخدام اسم الشيت "المعاملات" في المصفوفة المشار إليها في الشرح




09-09-2019 07:43 صباحا
مشاهدة مشاركة منفردة [12]
عبدالرحمن صبحى
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 113
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 153
الاعجاب : 1
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
جزاكم الله خيرا ..






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد YasserKhalil
13 1024 YasserKhalil
حفظ الفاتورة وتصدير ورقة العمل إلى مصنف جديد Save Invoice Export ActiveSheet To New Workbook YasserKhalil
9 831 YasserKhalil
تصدير مجموعة أوراق عمل إلى العديد من المصنفات إعتمادا على عمود أبو سجده
20 835 أبو سجده
تصدير مجموعة أوراق عمل مع بعض الأكواد إلى مصنف واحد أبو سجده
4 371 YasserKhalil
تصدير أوراق محددة إلى مصنف جديد أبو سجده
7 473 YasserKhalil

الكلمات الدلالية
Workbook ، Sheets ، Specific ، Export ، المصفوفات ، باستخدام ، واحد ، مصنف ، أوراق ، مجموعة ، تصدير ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:32 صباحا

أعلن هنا
أعلن هنا
أعلن هنا