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

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


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



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





تصدير أوراق العمل المحددة أو النشطة إلى مصنف جديد Export Selected Sheets To New Workbook

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



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

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

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

4RCs0_001

بفرض أن لديك مجموعة أوراق عمل وتحتوي بعض أوراق العمل على معادلات ، وأردت على سبيل المثال تصدير ورقتي عمل من المصنف الحالي (ورقة العمل Main وورقة العمل Search) ، يمكنك تحديد ورقة العمل Main ثم الضغط على مفتاح Ctrl من لوحة المفاتيح ثم تحديد ورقة العمل Search ، ثم اضغط Alt + F8 من لوحة المفاتيح واختر الإجراء الفرعي المسمى Export_Selected_Sheets ثم انقر الأمر Run ليتم تصدير ورقتي العمل اللتين قمت بتحديدهما إلى مصنف جديد باسم Exported في نفس مسار المصنف الحالي.

وأخيراً إليكم الكود ويوضع في موديول عادي :
Sub Export_Selected_Sheets()
    Dim ws                  As Worksheet
    Dim arrSheetToCopy()    As String
    Dim n                   As Long
    Dim i                   As Long

    If MsgBox("Export Selected Sheets To New Workbook", vbYesNo, "NewCopy") = vbNo Then Exit Sub

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        n = 0
        For Each ws In ActiveWindow.SelectedSheets
            ReDim Preserve arrSheetToCopy(n)
            arrSheetToCopy(n) = ws.Name
            n = n + 1
        Next ws
        ThisWorkbook.Sheets(arrSheetToCopy(0)).Select
    
        With Workbooks.Add
            For i = (.Sheets.Count + 1) To (UBound(arrSheetToCopy) + 1)
                .Sheets.Add
            Next i
    
            For i = 0 To UBound(arrSheetToCopy)
                ThisWorkbook.Sheets(arrSheetToCopy(i)).Cells.Copy
                With .Sheets(i + 1)
                    .Cells.PasteSpecial xlPasteAll
                    .UsedRange.Value = .UsedRange.Value
                    .Name = ThisWorkbook.Sheets(arrSheetToCopy(i)).Name
                    .DisplayRightToLeft = False
                    .Select: .Range("A1").Select
                End With
            Next i
    
            .SaveAs ThisWorkbook.Path & "Exported.xlsm", xlOpenXMLWorkbookMacroEnabled
            .Close
        End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

    MsgBox "Done...", 64
End Sub



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

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


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





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

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


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


05-09-2019 09: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 Selected Sheets To New Workbook
أحسن الله إليك وغفر لك ولوالديك أخي الحبيب علي

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




05-09-2019 10:24 مساء
مشاهدة مشاركة منفردة [3]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 639
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 534
قوة السمعة : 6873
الاعجاب : 246
 offline 
look/images/icons/i1.gif تصدير أوراق العمل المحددة أو النشطة إلى مصنف جديد Export Selected Sheets To New Workbook
بارك الله فيك أخى الحبيب / ابو البراء على هذا الابداع
وإثراء للموضوع ( لا أقدم جديد )
 ولكن فى حالة إخفاء جميع أوراق العمل ( فى البرامج التى لا يحبذ فيها إظهار أوراق العمل )
فيمكن تصدير ورقة العمل النشطة فقط بالكود التالى
من خلال زر أو أمر دالخل ورقة العمل
الكود

Sub Exprt_To_Excel()
Dim xPath As String, sh As Worksheet
    Set sh = ActiveSheet
    xPath = Application.ActiveWorkbook.Path
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
'-----------------------------------------------
With sh
    .Copy
        Application.ActiveWorkbook.SaveAs Filename:=xPath & "" & "Importing My Excel File" & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
       Application.ActiveWorkbook.ActiveSheet.Cells.PasteSpecial xlPasteAll     
        ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
        '-----------------------------
            ActiveSheet.Name = "Sheet1"  'تسمية الورقة الناتجة
            Application.ActiveWorkbook.Close True
'---------------------
End With
'----------------------------------------------------------
MsgBox (" Exporting The Current File To Excel File , was Done Sucseefully " & Chr(10) & " In The Same This Program Folder "), 64, "Mohaned EL_Desouky        "
'-----------------------------------------------
 Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub


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




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

تحياتى وتقديرى لعلمكم الغزير
 

أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى،


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

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


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

بارك الله فيك أخي الحبيب محمود أبو الدهب ، وجزيت خيراً على دعواتك الطيبة ، ولك بمثل ما دعوت لنا وزيادة

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




06-09-2019 09:53 صباحا
مشاهدة مشاركة منفردة [6]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 639
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 534
قوة السمعة : 6873
الاعجاب : 246
 offline 
look/images/icons/i1.gif تصدير أوراق العمل المحددة أو النشطة إلى مصنف جديد Export Selected Sheets To New Workbook
مشكور أستاذ / محمود 
يشرفنى مروركم العطر علينا
وكلماتكم الطيبة ولكم بمثل ما دعوتم لنا وزيادة

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية بناء إجراء عام وعمل قائمة بأسماء أوراق العمل Build Public Procedure Create Sheets List YasserKhalil
16 148 YasserKhalil
إنشاء فهرس لكل أوراق العمل بشكل تلقائي Auto Generate INDEX For Sheets YasserKhalil
14 315 YasserKhalil
الحلقات التكرارية Loops مع شرح كيفية إعداد قائمة بأسماء أوراق العمل Worksheets عبدالجيد
3 816 salim
استدعاء أسماء أوراق العمل من الكمبوبوكس محمد الدسوقى
13 1188 mahmoud ayad

الكلمات الدلالية
Workbook ، Sheets ، Selected ، Export ، جديد ، مصنف ، النشطة ، المحددة ، العمل ، أوراق ، تصدير ،


 







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



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

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