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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


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



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





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

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



06-09-2019 05:55 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 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 لتكون هي أوراق العمل المصدرة ، وستكون أوراق العمل مجمعة في مصنف واحد فقط في نفس مسار الملف الذي به الكود ...


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

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

أثارت هذه المشاركة إعجاب: ali mohamed ali، محمود ابو الدهب، الصقر،





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

أثارت هذه المشاركة إعجاب: YasserKhalil، jjebril،


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


06-09-2019 06:07 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 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
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 5-11-1991
يتابعهم : 10
يتابعونه : 0
قوة السمعة : 138
الاعجاب : 25
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
عبر نفحات النسيم وأريج الأزاهير وخيوط الأصيل أرسل شكرًا من الأعماق لك شكرًا لك من أعماق قلبي على عطائك الدائم.
تميز و ابداع 

أثارت هذه المشاركة إعجاب: YasserKhalil،


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

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

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




06-09-2019 07:00 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 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
المشاركات : 28
الجنس : ذكر
تاريخ الميلاد : 15-8-1967
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 56
الاعجاب : 23
 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 مرات التحميل :(0)
الحجم :(11.547) KB
 


أثارت هذه المشاركة إعجاب: YasserKhalil،




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

أثارت هذه المشاركة إعجاب: YasserKhalil،


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

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


07-09-2019 05:51 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 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
المشاركات : 146
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 192
الاعجاب : 12
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
بارك الله فيكم أخى وأستاذى أبو البراء
تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

أثارت هذه المشاركة إعجاب: YasserKhalil،




08-09-2019 04:14 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 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
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 164
الاعجاب : 5
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
بارك الله فيك استاذ ياسر ، تقبل وافر تقديرى واحترامى وجزاكم الله خيرا
هل ممكن استاذ ياسر جعل الكود يعمل مع اسماء الشيت مثل شيت اسمه (المعاملات) ، وليس sheet 1, sheet2 ، وهكذا ​

113


أثارت هذه المشاركة إعجاب: YasserKhalil،




09-09-2019 07:34 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 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
المشاركات : 96
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 128
الاعجاب : 37
 offline 
look/images/icons/i1.gif تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook
جزاكم الله خيرا ..

أثارت هذه المشاركة إعجاب: YasserKhalil،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حفظ الفاتورة وتصدير ورقة العمل إلى مصنف جديد Save Invoice Export ActiveSheet To New Workbook YasserKhalil
1 8 YasserKhalil
تصدير مجموعة أوراق عمل إلى العديد من المصنفات إعتمادا على عمود سعيد بيرم ابوعبدالرحمن
20 207 سعيد بيرم ابوعبدالرحمن
تصدير مجموعة أوراق عمل مع بعض الأكواد إلى مصنف واحد سعيد بيرم ابوعبدالرحمن
4 54 YasserKhalil
تصدير أوراق محددة إلى مصنف جديد سعيد بيرم ابوعبدالرحمن
7 84 YasserKhalil
تصدير ورقة عمل محددة إلى مصنف جديد Export Specific Sheet To New Workbook YasserKhalil
10 130 YasserKhalil

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


 







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



الساعة الآن 03:38 صباحا

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