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

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


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





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

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


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


27-01-2020 07:14 مساء
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 

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

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



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي العزيز حسونة
تفضل الكود التالي عله يفي بالغرض إن شاء الله

homoluath.com/eoH
عرض الإجابة




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


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

homoluath.com/eoH

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

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

28-01-2020 01:16 مساء
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 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
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده
حاول الاستفادة من هذا الجزء
wb.Worksheets(i).Name

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


الصفحة 1 من 2 < 1 2 > الأخيرة »


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


 










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

الساعة الآن 07:37 صباحا