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

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


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


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





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

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



06-09-2019 05:55 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 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
المشاركات : 1496
الدولة : مصر
الجنس : ذكر
الدعوات : 1
قوة السمعة : 6946
الاعجاب : 49
 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
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 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
المشاركات : 95
الجنس : ذكر
تاريخ الميلاد : 5-11-1991
قوة السمعة : 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
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 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
قوة السمعة : 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 مرات التحميل :(4)
الحجم :(11.547) KB
 





06-09-2019 11:53 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4314
الاعجاب : 2
موقعي : زيارة موقعي
 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
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 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
المشاركات : 169
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
قوة السمعة : 222
الاعجاب : 11
 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
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 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
المشاركات : 78
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
قوة السمعة : 164
الاعجاب : 0
 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
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 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
قوة السمعة : 153
الاعجاب : 1
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
جزاكم الله خيرا ..






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حفظ الفاتورة وتصدير ورقة العمل إلى مصنف جديد Save Invoice Export ActiveSheet To New Workbook YasserKhalil
9 681 YasserKhalil
تصدير مجموعة أوراق عمل إلى العديد من المصنفات إعتمادا على عمود أبو سجده
20 709 أبو سجده
تصدير مجموعة أوراق عمل مع بعض الأكواد إلى مصنف واحد أبو سجده
4 294 YasserKhalil
تصدير أوراق محددة إلى مصنف جديد أبو سجده
7 405 YasserKhalil
تصدير ورقة عمل محددة إلى مصنف جديد Export Specific Sheet To New Workbook YasserKhalil
10 418 YasserKhalil

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


 







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

الساعة الآن 06:07 مساء

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