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

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


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



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





فصل أوراق مصنف وحفضها بمصنف منفرد يحمل إسم الورقة ذاتها

السلام عليكم ورحمة الله وبركاته فضلا ممكن مساعدة أحسن الله إليكم ؛ عندي (woorkbook excel) يحوي 50 (sheets) كل sheet لها ..



27-10-2019 05:28 مساء
hadjadj youcef
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 333
المشاركات : 16
الجنس : ذكر
تاريخ الميلاد : 21-10-1978
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 40
الاعجاب : 1
 offline 

السلام عليكم ورحمة الله وبركاته فضلا ممكن مساعدة أحسن الله إليكم ؛ عندي (woorkbook excel) يحوي 50 (sheets) كل sheet لها إسم معين . المطلوب أريد أن أفصل كل (sheet)
لــ ( woorkbook) منفصل ويحفظ بإسم الشيت نفسه . هل يوجد كود ماكرو معين يفي بالغرض المطلوب جعلها الله بميزان حسناتك.






27-10-2019 05:38 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1396
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6337
الاعجاب : 963
 Online 
look/images/icons/i1.gif فصل أوراق مصنف وحفضها بمصنف منفرد يحمل إسم الورقة ذاتها
وعليكم السلام ,اخى الكريم دائماً وابداً ننوه لنجاح اى مشاركة لابد من رفع الملف وشرح المطلوب عليه بكل دقة وذلك لتجنب اهدار وقت الأساتذة
ولكن يمكن عمل ذلك بهذا الكود
Option Explicit
Sub Treat()
Dim WkPath As String
Dim Ws  As Worksheet
    WkPath = ActiveWorkbook.Path
     For Each Ws In Sheets
        Workbooks.Add
        Ws.UsedRange.Copy Destination:=Cells(1, 1)
        ActiveWorkbook.SaveAs WkPath & "\" & Ws.Name
        ActiveWorkbook.Close
    Next Ws

End Sub

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


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


29-10-2019 10:27 صباحا
مشاهدة مشاركة منفردة [2]
hadjadj youcef
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 333
المشاركات : 16
الجنس : ذكر
تاريخ الميلاد : 21-10-1978
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 40
الاعجاب : 1
 offline 
look/images/icons/i1.gif فصل أوراق مصنف وحفضها بمصنف منفرد يحمل إسم الورقة ذاتها
السلام عليكم ورحمة الله وبركاته
أولا جزاكم الله خيرا ونفع بكم ، لكن حبذا لو توجد إضافة للكود السابق ليتغير حتى إسم الشيت وفقا لإسم المصنف

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




29-10-2019 05:40 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23795
الاعجاب : 2467
 offline 
look/images/icons/i1.gif فصل أوراق مصنف وحفضها بمصنف منفرد يحمل إسم الورقة ذاتها
لم أفهم مقصدك أخي الكريم
هلا وضحت تلك النقطة بمثال ...





30-10-2019 02:00 مساء
مشاهدة مشاركة منفردة [4]
hadjadj youcef
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 333
المشاركات : 16
الجنس : ذكر
تاريخ الميلاد : 21-10-1978
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 40
الاعجاب : 1
 offline 
look/images/icons/i1.gif فصل أوراق مصنف وحفضها بمصنف منفرد يحمل إسم الورقة ذاتها
السلام عليكم ورحمة الله وبركاته 
طبتم وطاب ممشاكم ووفقكم لكل ما فيه من خيري الدارين الدنيا والآخرة
المطلوب موضح في الملف المرفق وجزاكم الله خيرا .
 
 
  طلب إحصائيات من المؤسسة.xlsx   تحميل xlsx مرات التحميل :(5)
الحجم :(412.198) KB






30-10-2019 03:07 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23795
الاعجاب : 2467
 offline 
look/images/icons/i1.gif فصل أوراق مصنف وحفضها بمصنف منفرد يحمل إسم الورقة ذاتها
أعتقد أن الموضوع ما زال يحتاج لبعض التفاصيل الأخرى 
مثل تلك النقطة المشار إليها : الخلية (F4) = الخلية (F16) من شيت "التنطيم التربوي" ، وهكذا تباعا لكل عمود الأفواج
هل ستكون القيم ثابتة في المصنف الذي سيتم تصديره؟ وهل يوجد أوراق عمل أخرى ستصدر مع ورقة العمل المعنية أم أنها ستصدر وحدها؟

ارفق نموذج واحد كمثال لشكل النتائج المتوقعة






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook YasserKhalil
24 702 YasserKhalil
تصدير مجموعة أوراق عمل إلى العديد من المصنفات إعتمادا على عمود سعيد بيرم ابوعبدالرحمن
20 389 سعيد بيرم ابوعبدالرحمن
جلب بيانات من جميع أوراق مصنف مغلق محمد أبو عبدو
26 493 YasserKhalil
تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook YasserKhalil
13 285 YasserKhalil
تصدير مجموعة أوراق عمل مع بعض الأكواد إلى مصنف واحد سعيد بيرم ابوعبدالرحمن
4 152 YasserKhalil

الكلمات الدلالية
أوراق ، مصنف ، وحفضها ، بمصنف ، منفرد ، يحمل ، الورقة ، ذاتها ،


 







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



الساعة الآن 11:11 صباحا

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