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

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


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



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





تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد

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



01-03-2019 11:20 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 

السلام عليكم ورحمة الله وبركاته

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

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

الشرح داخل الكود لكل سطر لمن أراد أن يستفيد ويتعلم
Option Explicit

Sub Test()
    'إلغاء خاصية اهتزاز الشاشة
    Application.ScreenUpdating = False
    
        'تصدير ورقة العمل إلى مصنف جديد عن طريق إجراء عام
        CopySheet Worksheets("Sheet1")
        
    'إعادة خاصية اهتزاز الشاشة
    Application.ScreenUpdating = True
End Sub

Private Sub CopySheet(ws As Worksheet)
    Dim wb          As Workbook
    Dim sFile       As String
    
    'متغير نصي يخزن فيه مسار المصنف الجديد في نفس مسار المصنف الحالي مع وضع التاريخ واسم المصنف
    sFile = ws.Parent.Path & Application.PathSeparator & Format(Date, "yyyy-mm") & " " & "New Workbook"

    'نسخ ورقة العمل إلى ملف جديد
    ws.Copy
    
    'تعيين المتغير ليعبر عن المصنف النشط
    Set wb = ActiveWorkbook

    'حفظ المصنف الجديد في المسار المحدد مسبقاً
    wb.SaveAs sFile, xlOpenXMLWorkbook
    
    'إغلاق المصنف
    wb.Close
    
    'تنشيط المصنف الحالي
    ThisWorkbook.Activate
End Sub


إليكم الملف المرفق مطبق فيه الكود

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

أرجو الله أن تستفيدوا من الموضوعات التي تطرح لكم ، وفقني الله وإياكم لكل خير
كان معكم أخوكم في الله / ياسر خليل أبو البراء
تقبلوا وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: ali mohamed ali، mohamed omar، Eslam Abdullah، حسين مامون،





02-03-2019 01:55 صباحا
مشاهدة مشاركة منفردة [1]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 639
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 534
قوة السمعة : 6873
الاعجاب : 246
 offline 
look/images/icons/i1.gif تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد
بارك الله فيك أخى الحبيب / أبو البراء 
على كل ما تقدمه من أعمال رائعة نافعة
وأسأل الله القدير أن يديم عليك نعمة العلم والعطاء
ويجزيك عنا خيرا إنه ولى ذلك والقادر عليه 





02-03-2019 06:21 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد
بارك الله فيك أخي الحبيب محمد الدسوقي وجزيت خيراً على كلماتك الطيبة ومرورك المشرف





02-03-2019 06:32 صباحا
مشاهدة مشاركة منفردة [3]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1712
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17640
الاعجاب : 327
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد

جزاكم الله خيرا يابوبراء
3





توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



02-03-2019 06:52 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد
وجزيت خيراً أخي الغالي حسام .. مشكور على مرورك العطر





02-03-2019 07:55 صباحا
مشاهدة مشاركة منفردة [5]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1194
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 600
قوة السمعة : 8656
الاعجاب : 465
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد
جزاك الله خيرا ياغالي
اطرح مواضيعك ياغالي حتى لو مجبتش اقبال ابقي اجمعها 121
142



توقيع :Yasser Elaraby
663013020



02-03-2019 08:08 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد
بارك الله فيك أخي الغالي ياسر العربي ومشكور على مرورك العطر

ولو مقدرتش أجمعها ممكن أضربها (بس الوزارة مانعة الضرب) .. أو أبلها وأشربها smile





02-03-2019 08:10 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد
الغريب في الموضوع إن فيه ردود وعدد التحميلات صفر .. سبحان الله 
g





02-03-2019 08:44 صباحا
مشاهدة مشاركة منفردة [8]
OmarGad
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-08-2018
رقم العضوية : 7616
المشاركات : 114
الجنس : ذكر
تاريخ الميلاد : 11-5-1992
الدعوات : 2
يتابعهم : 10
يتابعونه : 5
قوة السمعة : 318
الاعجاب : 25
 offline 
look/images/icons/i1.gif تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد
المشاركة الأصلية كتبت بواسطة: YasserKhalil
الغريب في الموضوع إن فيه ردود وعدد التحميلات صفر .. سبحان الله 
g

ليه  مفيش تحميلات بس انا حملته والله يااستاذ ياسر المهم متزعلش 😃والله روعة ربنا يزيدك ⁦♥️⁩ وياريت تستمر ولاتنقطع انت كدة كدة مش خسران كسبان كسبان ان شاءالله (وماتقدموا لأنفسكم من خير تجدوه عند الله هو خيرا واعظم اجر)





02-03-2019 08:59 صباحا
مشاهدة مشاركة منفردة [9]
teguera
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-02-2019
رقم العضوية : 11342
المشاركات : 104
الدولة : Burkina Faso
الجنس : ذكر
تاريخ الميلاد : 14-1-1989
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 100
الاعجاب : 6
 offline 
look/images/icons/i1.gif تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد
لا تحقر من المعروف شيئا..................
جزاكم الله خيرا وأحسن الله إليكم
مبارك.....





02-03-2019 09:42 صباحا
مشاهدة مشاركة منفردة [10]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1212
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5719
الاعجاب : 716
 Online 
look/images/icons/i1.gif تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد
أحسنت استاذ ياسر بارك الله فيك وجزاك الله كل خير



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


02-03-2019 03:40 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد
أحسن الله إليكم إخواني وجزاكم الله خير الجزاء
أسعدني مروركم العطر بالموضوع






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حفظ الفاتورة وتصدير ورقة العمل إلى مصنف جديد Save Invoice Export ActiveSheet To New Workbook YasserKhalil
6 64 hassona229
استخراج صورة الخلفية من ورقة العمل وإدراج صورة كخلفية Extract And Insert Background YasserKhalil
2 65 YasserKhalil
اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed YasserKhalil
13 138 YasserKhalil
ترحيل بيانات من ورقة عمل لورقة عمل أخرى (سلسلة تعليمية) Transfer Data From Worksheet To Another YasserKhalil
39 1635 YasserKhalil
تصدير ورقة عمل إلى ملف بي دي إف محمي Export Sheet As Password Protected PDF File YasserKhalil
14 175 YasserKhalil

الكلمات الدلالية
تصدير ، ورقة ، مصنف ، جديد ، وحفظها ، باسم ، محدد ،


 







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



الساعة الآن 10:25 مساء

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