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

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


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



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





تصدير ورقة عمل محددة إلى مصنف جديد Export Specific Sheet To New Workbook

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



30-08-2019 04:39 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 

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

أقدم لكم كود يقوم بتصدير ورقة عمل محددة إلى مصنف جديد ، ويحول المعادلات التي بورقة العمل المصدرة إلى قيم ، وتتم عملية التصدير إلى نفس مسار المصنف الحالي
في الملف المرفق مصنف يحتوي على ورقتي عمل والمطلوب تصدير ورقة العمل المسماة Data إلى مصنف جديد في نفس مسار المصنف الحالي ، أي لابد أن يكون المصنف الحالي في نفس المسار ، ويمكن التعديل في الكود بحيث يتم تغيير المسار ليلائم المستخدم.
وأخيراً إليكم الكود المستخدم :
Sub Export_Specific_Sheet_To_New_Workbook_Delete_VBA_Codes()
    Dim ws          As Worksheet
    Dim objComp     As Object
    Dim xPath       As String
    
    xPath = Application.ActiveWorkbook.Path
    Set ws = Sheets("Data")
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
        With ws
            .Copy
            Application.ActiveWorkbook.SaveAs Filename:=xPath & "" & .Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
            ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

            With ActiveWorkbook.VBProject.VBComponents(ws.CodeName).CodeModule
                .DeleteLines 1, .CountOfLines
                .InsertLines 1, "Option Explicit"
            End With
            
            For Each objComp In ActiveSheet.Parent.VBProject.VBComponents
                If (objComp.Name = ActiveSheet.CodeName) Then objComp.Name = "Sheet1"
            Next objComp
            
            ActiveSheet.Shapes("Button 1").Delete
            
            Application.ActiveWorkbook.Close True
        End With
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub


لتنفيذ الكود قم بالضغط على Alt + F8 لتفتح لك نافذة تختار منها اسم الإجراء الفرعي المسمى Export_Specific_Sheet_To_New_Workbook_Delete_VBA_Codes ثم انقر الأمر Run ، لتتم عملية تصدير ورقة العمل المطلوبة إلى مصنف جديد.
إذا كانت ورقة العمل المراد تصديرها تحتوي على كود في حدث ورقة العمل ، وأردت حذفه ، فسيقوم الكود بعمل ذلك من خلال الأسطر
            With ActiveWorkbook.VBProject.VBComponents(ws.CodeName).CodeModule
                .DeleteLines 1, .CountOfLines
                .InsertLines 1, "Option Explicit"
            End With


كما يقوم الكود بتسمية الاسم البرمجي لورقة العمل من خلال هذا الجزء
            For Each objComp In ActiveSheet.Parent.VBProject.VBComponents
                If (objComp.Name = ActiveSheet.CodeName) Then objComp.Name = "Sheet1"
            Next objComp


كما يحتوي الكود على سطر لحذف زر الأمر الموجود في ورقة العمل Data ...
ActiveSheet.Shapes("Button 1").Delete


أي أن هذا الكود يحتوي على العديد من الأجزاء التي يمكنك استخدامها في أكواد أخرى


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

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

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





31-08-2019 07:11 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1711
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17638
الاعجاب : 326
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تصدير ورقة عمل محددة إلى مصنف جديد Export Specific Sheet To New Workbook

جزاك الله خير يا غالى 142



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


توقيع :الصقر

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



31-08-2019 07:12 صباحا
مشاهدة مشاركة منفردة [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 Sheet To New Workbook
وجزيت خيراً أيها الصقر المقدام بمثل ما دعوت لي





05-09-2019 11:24 مساء
مشاهدة مشاركة منفردة [3]
سعيد بيرم ابوعبدالرحمن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 146
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 192
الاعجاب : 12
 offline 
look/images/icons/i1.gif تصدير ورقة عمل محددة إلى مصنف جديد Export Specific Sheet To New Workbook
أخى واستاذى الفاضل // أبو البراء
السلام عليكم ورحمة الله وبركاته
دائما ماتمتعنا بهذه الأعمال القيمة التى هى فى المقام الأول فى ميزان حسناتكم  بإذن الله تعالى
سؤالى إليك أخى أبو البراء ماذا لو أردنا تصدير أكثر من ورقة عمل بحيث نتمكن من تحديدهامن داخل الكود كمصفوفة
أرجو الافادة وجزاكم الله خيرا ولا حرمنا الله منك 
 

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




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

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


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


06-09-2019 06:18 صباحا
مشاهدة مشاركة منفردة [5]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 707
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 845
الاعجاب : 68
 offline 
look/images/icons/i1.gif تصدير ورقة عمل محددة إلى مصنف جديد Export Specific Sheet To New Workbook
استاذ ياسر هل تصدير الملف يختلف عن ترحيلة 
وماذا تعني بتصدير الورقة الة مصنف جديد





06-09-2019 06:22 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif تصدير ورقة عمل محددة إلى مصنف جديد Export Specific Sheet To New Workbook
بارك الله فيك أخي الحبيب علي ومشكور على مرورك العطر

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

حيث يمكنك تحديد ورقة عمل واحدة أو أكثر وتصديرها ، كل ما عليك أن تقوم بتحديد أوراق العمل المطلوب تصديرها





06-09-2019 11:52 صباحا
مشاهدة مشاركة منفردة [7]
سعيد بيرم ابوعبدالرحمن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 146
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 192
الاعجاب : 12
 offline 
look/images/icons/i1.gif تصدير ورقة عمل محددة إلى مصنف جديد Export Specific Sheet To New Workbook
وبارك فيكم أخى وحبيبى أبو البراء ** فعلا طالت غيبتى نظرا لوعكات صحية متتاليه
أما الأن فنشكر الله عز وجل وأحمده على كل حال *** أما عن سؤالى فقد أمضيت سهرة ممتعه من خلال موقعكم الموقر
فى البحث عن هذا الموضوع وقد إطلعت على جميع الموضوعات ذات الصله بما فيهم الموضوع المشار اليه بعاليه
لكنى وبأمانه لم أتمكن من تحميل ملف من خلال الروابط المٍعلن عنها لصعوبتها أما عن باقى الروابط فهى سهلة بالنسبة لى
ومن ضمن الموضوعات حصلت على هذا الرابط لتصدير ورقة محددة الى مصنف جديد

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
حيث أرغب بتعيين مصفوفة بأسماء الأوراق المراد تصديرها بدلا من تعيين ورقة واحدة دون الرجوع 
الى تحديد الاوراق من خلال الضغط على مفتاح Ctrl من لوحة المفاتيح 
خاصة ان عدد الاوراق المراد
تصديرها قد يصل الى ثمانية أوراق وربما أكثر *** أُدرك إننى أثقلت عليك بمشاركتى هذه لكن يشهد الله تعالى إنى أُحبكم فى الله
إليك المرفق التالى المراد التعديل عليه إذا سمح وقتكم بذلك

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
تقبل الله منا ومنكم صالح الاعمال *** وإلى صلاة الجمعه **** تقبل وافر تقديرى وإحترامى وجزاكم الله خيرا 




 
 
  Export Specific Sheet To New Workbook YasserKhalil Excel-Egy.rar   تحميل rar مرات التحميل :(5)
الحجم :(23.632) KB






06-09-2019 01:39 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif تصدير ورقة عمل محددة إلى مصنف جديد Export Specific Sheet To New Workbook
شفاك الله وعافاك أخي العزيز أبو عبد الرحمن

*** يفضل دائماً أن تكون الطلبات في موضوعات مستقلة ..لكن سأتغاضى عن هذه النقطة هذه المرة فقط (فالأفضل دائمأ طرح موضوع جديد لأي مشكلة لتمام الاستفادة ..)

جرب التعديل التالي على الكود الموجود في الملف المرفق
Sub NewTest()
    Dim ws          As Worksheet
    Dim objComp     As Object
    Dim xPath       As String
    
    xPath = Application.ActiveWorkbook.Path
    
    '------------------------------
    'New Lines
    Dim aWorksheets, e
    aWorksheets = Array("Data", "Main") '>> Put Sheet Names Here
    '------------------------------
    
    '''Set ws = Sheets("Data")
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    
        '-----------------------------
        'New Loop
        For Each e In aWorksheets
        
            'Assign The Worksheet
            Set ws = ThisWorkbook.Worksheets(e)
            '---------------------------
            
            With ws
                .Copy
                Application.ActiveWorkbook.SaveAs Filename:=xPath & "" & .Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
                ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
    
                With ActiveWorkbook.VBProject.VBComponents(ws.CodeName).CodeModule
                    .DeleteLines 1, .CountOfLines
                    .InsertLines 1, "Option Explicit"
                End With
                
                For Each objComp In ActiveSheet.Parent.VBProject.VBComponents
                    If (objComp.Name = ActiveSheet.CodeName) Then objComp.Name = "Sheet1"
                Next objComp
                
                On Error Resume Next
                    ActiveSheet.Shapes("Button 1").Delete
                On Error GoTo 0
                
                Application.ActiveWorkbook.Close True
            End With
            
        '---------------------------
        'Related To New Loop
        Next e
        '---------------------------
        
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub


يوجد تعليقات على الأسطر التي تمت إضافتها .. أرجو أن تفي بالغرض





06-09-2019 02:57 مساء
مشاهدة مشاركة منفردة [9]
سعيد بيرم ابوعبدالرحمن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 146
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 192
الاعجاب : 12
 offline 
look/images/icons/i1.gif تصدير ورقة عمل محددة إلى مصنف جديد Export Specific Sheet To New Workbook
بارك الله فيكم أخى أبو البراء
سأوضح ما أريد الوصول اليه
ما أريده هو تصدير تلك الاوراق مُجتمعين لا مُنفصلين وفى نفس مسار الملف الذى يتم التصدير من خلاله
مع تحديد إسم لهذا الملف الجديد وليكن تحت إسم أكاديمية الصقر
أرجو ان أكون وضحت الفكرة من سؤالى نظرا لان الملف الاصلى يحتوى على أكثر من 30 ورقة
أما عن سؤالى الاخير سيتم بحول الله تعالى رفع موضوع منفصل لعموم الفائدة
بارك الله فيكم جميعا **** تقبل وافر تقديرى وإحترامى وجزاكم الله خيرا

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




06-09-2019 04:02 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif تصدير ورقة عمل محددة إلى مصنف جديد Export Specific Sheet To New Workbook
بارك الله فيك أخي أبو عبد الرحمن
في انتظار رفعك لموضوع جديد ولا تنسى ملف مرفق للعمل عليه ، وربنا ييسر الأمور






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حفظ الفاتورة وتصدير ورقة العمل إلى مصنف جديد Save Invoice Export ActiveSheet To New Workbook YasserKhalil
1 8 YasserKhalil
اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed YasserKhalil
12 120 أباالحسن
ترحيل بيانات من ورقة عمل لورقة عمل أخرى (سلسلة تعليمية) Transfer Data From Worksheet To Another YasserKhalil
39 1631 YasserKhalil
تصدير ورقة عمل إلى ملف بي دي إف محمي Export Sheet As Password Protected PDF File YasserKhalil
14 167 YasserKhalil
كيفية نقل أو نسخ ورقة الى ملف اخر - حسام خطاب الصقر
19 1284 Ahmed Samir

الكلمات الدلالية
Workbook ، Sheet ، Specific ، Export ، جديد ، مصنف ، محددة ، ورقة ، تصدير ،


 







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



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

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