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

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

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




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





طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات

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



08-08-2018 07:43 مساء
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 396
الاعجاب : 71
 offline 

السلام عليكم
اريد كود لنسخ الورقة 1 و 2 و 3 الى مصنف جديد بدون المعادلات التي تحتويها و بدون الماكرو ووضعهم في مصنف محدد داخل الكود






08-08-2018 08:07 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 644
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 3204
الاعجاب : 1028
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
وعليكم السلام اخى الكريم --أين الملف ؟



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


08-08-2018 09:08 مساء
مشاهدة مشاركة منفردة [2]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 396
الاعجاب : 71
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
استاذي الغالي اليكم الملف
بحيث اريد كل صفحة يتم نسخها في ملف ووضعها في مجلد اين يوجد الملف الرئيسي
 
 
 
  معادلة.rar   تحميل rar مرات التحميل :(7)
الحجم :(25.8) KB






08-08-2018 10:09 مساء
مشاهدة مشاركة منفردة [3]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 396
الاعجاب : 71
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
Private Sub CommandButton51_Click()
    Dim Ws As Worksheet
    For Each Ws In ActiveWorkbook.Worksheets
        On Error Resume Next
        Fname = ThisWorkbook.Path & "الملفالملف" & Ws.Name
        Ws.ExportAsFixedFormat Type:=xlsx, Filename:=Fname
    Next Ws
    MsgBox "Êã ÇáÍÝÙ ÈäÌÇÍ...", 64
End Sub

لقد قمت بمحاولة تعديل هذا الكود لكنه ينقل الى نسخة pdf لم اتمكن من الوصول الى نتيجة
 





08-08-2018 10:46 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14752
الاعجاب : 5507
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
أخي الكريم زياد
جرب الكود التالي عله يفي بالغرض إن شاء الله
* قم بإنشاء مجلد باسم Output في نفس مسار المصنف الحالي

Private Sub CommandButton1_Click()
    Dim wb          As Workbook
    Dim ws          As Worksheet
    Dim sPth        As String

sPth = ThisWorkbook.Path & "\Output\"

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        For Each ws In ActiveWorkbook.Worksheets
            ws.Copy
            Set wb = ActiveWorkbook
            ActiveWorkbook.Worksheets(1).UsedRange.Value = ActiveWorkbook.Worksheets(1).UsedRange.Value
            wb.SaveAs Filename:=sPth & ws.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
            wb.Close
        Next ws
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

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




08-08-2018 11:00 مساء
مشاهدة مشاركة منفردة [5]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 396
الاعجاب : 71
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
استاذ ياسر الكود يعمل بشكل جيد لكن هناك خلل بسيط لقد قمت بوضع الملف الرئيسي داخل مجلد و داخل نفس المجل قمت بانشاء مجلد output الى ان الاوراق المستخرجة لا تدخل داخل المجلد output وانما تظهر خارج المجلد مع المصنف الرئيسي اتمنى ان تكون الاوراق داخل مجلد وليست مبعثرة مع الملف الرئيسي و لك مني جزيل الشكر





08-08-2018 11:03 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14752
الاعجاب : 5507
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
يوجد قبل اسم المجلد Output باك سلاش وكذلك بعده ، ولكن لا أدري سبب عدم ظهور الباك سلاش في الكود ..
أرجو من الأخ ياسر العربي معرفة السبب ومعالجة الأمر لأنني لاحظت الأمر مراراً  ......

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




08-08-2018 11:46 مساء
مشاهدة مشاركة منفردة [7]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 396
الاعجاب : 71
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
اعتقد انني وجدت الحل ولقد جربته و نجح اليكم الكود مع التعديل
    Dim wb          As Workbook
    Dim Ws          As Worksheet
    Dim sPth        As String
        Dim Fname As String
    For Each Ws In ActiveWorkbook.Worksheets
    
 Fname = ThisWorkbook.Path & "\ziyad\"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
            Ws.Copy
            Set wb = ActiveWorkbook
            ActiveWorkbook.Worksheets(1).UsedRange.Value = ActiveWorkbook.Worksheets(1).UsedRange.Value
            wb.SaveAs Filename:=Fname & Ws.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook

            wb.Close
        Next Ws
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

شكرا للاستاذ ياسر على مساعدته و شكرا للجميع

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




09-08-2018 12:02 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14752
الاعجاب : 5507
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
بارك الله فيك أخي الكريم زياد
بعد الإطلاع على كودك لم ألحظ تعديل سوى أنك غيرت اسم المتغير فقط sPth إلى FName .. ووضعت الباك سلاش كما أشرت إليك

عموماً الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
النسخة الحديثة و العجيبة من Internet.Download.Manager.v6.30.10 stenour
12 605 moustafa4040
مشكلة لدي عند النسخ واللصق في الاكسل 2016 عبد الله السعيد
2 45 عبد الله السعيد
حقوق النشر و حماية الاكسل من النسخ محمد النيل
5 113 YasserKhalil
Excel-VBA لنسخ سطر تحت سطر معين بعد إضافة محتوى لخلية فارغة من ضمن مجموعة معينة Ahmed ElGammal
1 98 Ahmed ElGammal
اريد التعديل على كود اختيار الطابعات وعدد النسخ malik
2 381 malik

الكلمات الدلالية
لنسخ ، اوراق ، العمل ، ووضعهم ، بدون ، الماكرو ، المعادلات ،


 







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



الساعة الآن 03:45 مساء

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