Alttear قام بنشر فبراير 21, 2017 مشاركة قام بنشر فبراير 21, 2017 السلام عليكم لدي الكود التالي اقوم باستخدتمه لتشغيل اكثر من كود في نفس الوقت Sub new_Change() Application.DisplayAlerts = False Application.ScreenUpdating = False pt = ActiveWorkbook.Path NextFile = Dir(pt & "\") Do While NextFile <> "" If NextFile = "M.xlsb" Then GoTo 10 Workbooks.Open Filename:=pt & "\" & NextFile Application.Run ("Macro01") Application.Run ("Macro1") Application.Run ("Macro2") Application.Run ("Macro3") Application.Run ("Macro4") Application.Run ("Macro5") Application.Run ("Macro6") Application.Run ("Macro7") Application.Run ("Macro8") Application.Run ("Macro9") Application.Run ("Macro10") Application.Run ("Macro11") Application.Run ("Macro12") Application.Run ("Macro13") Application.Run ("Macro14") Application.Run ("Macro15") Application.Run ("Macro16") Application.Run ("Macro17") Application.Run ("Macro18") Application.Run ("Macro19") Application.Run ("Macro20") Application.Run ("Macro21") Application.Run ("Macro22") Application.Run ("Macro23") Application.Run ("Macro24") Application.Run ("Macro25") Application.Run ("Macro26") Application.Run ("Macro27") Application.Run ("Macro28") Application.Run ("Macro29") Application.Run ("Macro30") Application.Run ("Macro31") Application.Run ("Macro32") Application.Run ("Macro33") Application.Run ("Macro34") Application.Run ("Macro35") Application.Run ("Macro36") Application.Run ("Macro37") Application.Run ("Macro38") Application.Run ("Macro39") '========================= ActiveWorkbook.Save ActiveWorkbook.Close 10 NextFile = Dir() Loop Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub العملية باكملها تاخذ كثيرا من الوقت و عندما اقوم بتشغيل الاكواد يدويا واحدا تلو الاخر تصبح العملية اسرع فهل من خطا معين في الكود او من طريقة تقوم بتفريغ الرامات عند تشغيل الكود التالي ,, حيث ان الاكواد ليست مرتبطة ببعضها رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 22, 2017 مشاركة قام بنشر فبراير 22, 2017 هذين السطرين يقعان داخل حلقة تكرراية .. وهذا يسبب المشكلة التي تعاني منها حيث يقوم الكود في كل مرة بحفظ المصنف الحالي ثم إغلاقه ActiveWorkbook.Save ActiveWorkbook.Close رابط هذا التعليق شارك More sharing options...
Alttear قام بنشر فبراير 22, 2017 الكاتب مشاركة قام بنشر فبراير 22, 2017 صحيح استاذي العزيز الملف M هو ملف الكود فقط و يقوم بقرائة الملفات الاخرى و تشغيل الماكرو عليها و عند الانتهاء من كل ملف يجب حفظه و اغلاقه ثم تشغيل الكرة من جديد و لكن على ملف مختلف السطرين في مكانهم الصحيح .. اليس كذلك ؟ و هل من اكواد اضافية تساعد في تسريع عمل الملف ؟ شكرا رابط هذا التعليق شارك More sharing options...
Alttear قام بنشر فبراير 23, 2017 الكاتب مشاركة قام بنشر فبراير 23, 2017 في 22.02.2017 at 17:33, Alttear said: صحيح استاذي العزيز الملف M هو ملف الكود فقط و يقوم بقرائة الملفات الاخرى و تشغيل الماكرو عليها و عند الانتهاء من كل ملف يجب حفظه و اغلاقه ثم تشغيل الكرة من جديد و لكن على ملف مختلف السطرين في مكانهم الصحيح .. اليس كذلك ؟ و هل من اكواد اضافية تساعد في تسريع عمل الملف ؟ شكرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.