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

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


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


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





كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده

السلام عليكم ورحمة الله وبركاته عندى كود (وليس بموديل ) واريد اضافته لمجموعه ملفات اكسل كيف السبيل إلى ذلك اوتوماتيكيا ..



27-01-2020 07:14 مساء
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 206
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 501
الاعجاب : 62
 offline 
السلام عليكم ورحمة الله وبركاته 

عندى كود (وليس بموديل ) واريد اضافته لمجموعه ملفات اكسل كيف السبيل إلى ذلك اوتوماتيكيا
الكود سوف يتم وضعه فى حدث كل شيت (وليس فى موديل )
صورة لتوضيح المطلوب ومرفق ملف به الكود المطلوب اضافته
u9257_5854639848_th
 
 
 
  test.zip   تحميل zip مرات التحميل :(10)
الحجم :(13.674) KB





27-01-2020 08:09 مساء
مشاهدة مشاركة منفردة [1]
حسين مامون
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 116
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
قوة السمعة : 413
الاعجاب : 17
 offline 
look/images/icons/i1.gif كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده
 
 
  test.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(18.048) KB





27-01-2020 08:42 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده
وعليكم السلام أخي العزيز حسونة
تفضل الكود التالي عله يفي بالغرض إن شاء الله

homoluath.com/eoH




27-01-2020 10:28 مساء
مشاهدة مشاركة منفردة [3]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 206
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 501
الاعجاب : 62
 offline 
look/images/icons/i1.gif كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده
جزاكم الله خيرا استاذنا الغالى حسين مأمون كود ما شاء الله 
وجزاكم الله خيرا اخى الحبيب ابو البراء الغالى كود ما شاء الله 
التليفون بس فصل شحن فقلت اشحنه شويه وارجع اشكر الاساتذه على ابداعهم
استاذنا الحبيب ابو البراء
الكود يضاف في صفحة واحده من صفحات الملف
كيف السبيل الى جعله في كل الصفحات وليس صفحه واحده حاولت عمل حلقه تكراريه لكل اوراق العمل ولكن بائت المحاولات بالفشل
وجزاكم الله خيرا




28-01-2020 03:56 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده
بارك الله فيك أخي العزيز حسونة
ضع الكود الذي حاولت فيه للإطلاع عليه ومعرفة سبب الفشل واعلم أن الفشل سبيل الوصول ..




28-01-2020 01:16 مساء
مشاهدة مشاركة منفردة [5]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 206
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 501
الاعجاب : 62
 offline 
look/images/icons/i1.gif كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده
السلام عليكم ورحمه الله وبركاته
هذا هو الكود ولكن كل المحاولات بائت بالفشل
Sub Copy_Worksheet_Module_To_Multiple_Closed_Workbooks()
    Dim src, dest, wb As Workbook, strFolder As String, strFile As String, i As Integer
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
        'Change Sheet1 With Source Worksheet Name
        Set src = ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule
        strFolder = ThisWorkbook.Path & "new"
        strFile = Dir(PathName:=strFolder & "*.xls*")
           
        Do While strFile <> ""
            Set wb = Workbooks.Open(Filename:=strFolder & strFile)
               
                For i = 1 To wb.Worksheets.Count
                    'Change Sheet1 With Target Worksheet Name
                    Set dest = wb.VBProject.VBComponents(i).CodeModule
                    Do While dest <> "module1" And dest <> "ThisWorkbook"
                    dest.DeleteLines 1, dest.CountOfLines
                    dest.AddFromString src.Lines(1, src.CountOfLines)
                   Loop
                Next i
                
           wb.Close SaveChanges:=True
            strFile = Dir
        Loop
    Application.EnableEvents = True
    Application.ScreenUpdating = True
   
    MsgBox "Done...", 64
End Sub





29-01-2020 01:05 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده
حاول الاستفادة من هذا الجزء
wb.Worksheets(i).Name

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




29-01-2020 03:07 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده
تم التعديل في الكود ليعمل على جميع أوراق العمل ..أرجو أن يفي بالغرض إن شاء الله




29-01-2020 05:52 مساء
مشاهدة مشاركة منفردة [8]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 206
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 501
الاعجاب : 62
 offline 
look/images/icons/i1.gif كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده
جزاكم الله خيرا استاذنا الغالى ابوالبراء لكن الكود يقف ويعطى رساله الخطأ

u9257_2131027407




30-01-2020 01:26 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده
جرب وضع جملة 
On Error Resume Next
في بداية الكود






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية البحث في الشيتات الموجودة داخل ملف الاكسل بدلالة عدة شروط مع كتابة اسم الشيت في خانة العميل alhady
1 822 alhady
سؤال كيفية حماية الشيت مع تفعيل تكست بوكس ادفانس فلتر OmarGad
5 677 OmarGad
كيفية اضافة عدد محدد من الشيتات الى الكومب بوكس abushuber
4 620 YasserKhalil

الكلمات الدلالية
اضافه ، الشيت ، جميع ، ملفات ، الاكسل ، دفعه ، واحده ،


 







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

الساعة الآن 09:29 صباحا

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