logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



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




موضوع مغلق


  • تمت الإجابة
27-01-2020 07:14 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 802
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3941
الاعجاب : 23
السلام عليكم ورحمة الله وبركاته

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





look/images/icons/i1.gif كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده
  27-01-2020 08:09 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 164
الجنس :
تاريخ الميلاد : 1-1-1982
الدعوات : 1
قوة السمعة : 867
الاعجاب : 0
نقلت الكود الى حدث Thisworkbook
test.xlsm
 
 
  test.xlsm   تحميل xlsm مرات التحميل :(10)
الحجم :(18.048) KB


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



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

CODE
homoluath.com/eoH




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




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




look/images/icons/i1.gif كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده
  28-01-2020 01:16 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 802
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3941
الاعجاب : 23
السلام عليكم ورحمه الله وبركاته
هذا هو الكود ولكن كل المحاولات بائت بالفشل
CODE
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





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

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




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

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



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

u9257_2131027407




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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية الكتابة باللغة العربية في الشيت باستخدام كود بسيط mmagedmemo
4 1315 ابو طيبه
كيفية اخفاء الشيتات بدون استخدام ال VBA mmagedmemo
5 1231 mmagedmemo
كيفية التنقل بين الشيتات من خلال الهيبرلينك mmagedmemo
4 937 mmagedmemo
سؤال كيفية حماية الشيت مع تفعيل تكست بوكس ادفانس فلتر OmarGad
5 1699 OmarGad
كيفية اضافة عدد محدد من الشيتات الى الكومب بوكس abushuber
4 1543 YasserKhalil

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









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

الساعة الآن 09:48 AM