ياسر خليل أبو البراء قام بنشر أبريل 28, 2015 مشاركة قام بنشر أبريل 28, 2015 السلام عليكم ورحمة الله وبركاته إخواني الأحباب في المنتدى الغالي هل فكرت يوماً ؟ إذاً أنت موجود .. لأن الحكمة بتقول : أنا أفكر إذاً أنا موجود ، وبتعديل بسيط ممكن نقول : أنا أؤمن بالله إذاً فالله موجود وأنا حي القلب قبل حياة الجسد سرحت اعذروني أقدم لكم اليوم كود جديد ، يقوم الكود كما هو موضح بالعنوان (والموضوع بيبان من عنوانه ..فمحدش يتوه مني عشان أنا متعمد أتوهكم) ..كما هو موضح يقوم الكود بتنفيذ الماكرو أو الإجراء الفرعي عدد معين من المرات ، يمكنك أن تحدد عدد المرات في الملف المرفق قمت بوضع عدد المرات في الخلية C3 ويمكن تغييره بالطبع ، كما يمكن أيضاً (عشان الناس متقولش إني بخلان عليكم بمعلومة) ممكن أن تغير في الكود لتضع عدد مرات التكرار الذي ترغبه داخل الكود ، وذلك من خلال تغيير هذا السطر nTimes = Range("C3").Value إلى هذا السطر nTimes = 3 إذاً فأنت حر في اختيارك لطريقة وضع قيمة المتغير المرتبط بعدد مرات التكرار وإليكم الكود بالشكل الكامل (والكمال لله وحده) 'تعريف المتغير الذي يمثل عداد لعدد مرات تنفيذ الماكرو Dim I As Integer Sub RunMacroNTimes() 'تعريف المتغير الذي يمثل عدد مرات تنفيذ الماكرو Dim nTimes As Integer 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'وضع القيمة صفر للعداد I = 0 '[C3] ليساوي قيمة الخلية [nTimes] تعيين قيمة للمتغير nTimes = Range("C3").Value 'حلقة تكرارية لتكرار تنفيذ الماكرو طبقاً لقيمة الخلية Do While I < nTimes 'زيادة قيمة العداد بمقدار واحد في كل حلقة تكرارية I = I + 1 'استدعاء الماكرو المراد تنفيذه Call Test 'الانتقال داخل الحلقة التكرارية إلى أن تساوي قيمة العداد قيمة الخلية Loop 'إظهار رسالة تفيد بعدد مرات تنفيذ الماكرو MsgBox "تم تنفيذ الماكرو " & I & " مرات" 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub Sub Test() MsgBox "مرحباً بكم إخواني .. الترحيب رقم " & I End Sub وعشان خاطر عيون حبايبي اللي زعلانين مني (وهما عارفين مين .. وكل لبيب بالإشارة يفهم .. ومش عايز حد يكون ساخـ (هـ) ـــر مني) قمت بشرح أسطر الكود للاستفادة منه في أكواد أخرى كما أقدم لكم ملف مرفق للإطلاع عليه (ودا عشان الناس الكسلانة .. شايف مختار بيحمل الملف المرفق .. لا إنت لا إنت طبقه بنفسك) وأخيراً تقبلوا تحياتي ودمتم في رعاية الله Run Macro Number Of Times YasserKhalil.rar 7 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر أبريل 28, 2015 مشاركة قام بنشر أبريل 28, 2015 (معدل) بسم الله ما شاء الله ولا حول ولا قوة الا بالله جازاكم الله خيرا أراك اليومين الأخيرين شعلة نشاط اللهم لا حسد ولكن غبطة حتى شوف :wink2: ألف مبروك على المشاركة 5000 عقبال المليون تم تعديل أبريل 28, 2015 بواسطه مختار حسين محمود 2 رابط هذا التعليق شارك More sharing options...
ابوحمزه المصرى قام بنشر أبريل 28, 2015 مشاركة قام بنشر أبريل 28, 2015 ما شاء الله زادك الله علماً نافعاً أخى الفاضل ياسر رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 28, 2015 الكاتب مشاركة قام بنشر أبريل 28, 2015 الأخ الحبيب الغالي مختار مشكور على مرورك العطر وعلى تهنئتك لي بمناسبة الـ 5000 مشاركة .. أما بالنسبة للمليون فدا صعب شوية ، بس مش هقولك مستحيل عشان معرفش المستحيل هههههههههههه الأخ الحبيب صلاح الدين الأيوبي مشكور على كلماتك الرقيقة ودعائك الطيب ..بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر أبريل 28, 2015 مشاركة قام بنشر أبريل 28, 2015 رائـــــــــــــــــــــــــــــــــــــع أخى الحبيب ياسر خليل وربنا يديك طولة العمر وتبقى عدد المشاركات مليون على رأى أ/ مختار 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 28, 2015 الكاتب مشاركة قام بنشر أبريل 28, 2015 مشكور على مرورك العطر يا باشمهندس ربنا يديك الصحة وطولة العمر ويبارك فيك ويجازيك خير 1 رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر أبريل 28, 2015 مشاركة قام بنشر أبريل 28, 2015 استاذ ياسر بارك الله بك ومبارك عملك وجعله في ميزان عمالك لدي سؤال عن الموضوع كيف وأين يمكن الاستفادة من تكرار الماكرو أكثر من مرة وشكرا لك مقدما رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 28, 2015 الكاتب مشاركة قام بنشر أبريل 28, 2015 الاخ الفاضل محيي الدين يارك الله فيك وجزاك الله خير الجزاء صراحة لم يصادفني أن احتجت لمثل هذا الامر ، لكنه قد ينفع في شيء ما .. والهدف من وراء الموضوع توسيع مدارك الأعضاء للإمكانيات الجبارة التي يمكن أن تتعلمها في لغة البرمجة VBA فهي مترامية الأطراف ولا منتهية 2 رابط هذا التعليق شارك More sharing options...
هاني بدر قام بنشر مايو 9, 2015 مشاركة قام بنشر مايو 9, 2015 السلام عليكم ورحمة الله وبركاته بارك الله فيك اخي الكريم استاذ ياسر ودائماً الى الامام بكل ماهو جديد ومميز واسمح لي ان اوضح لاخونا السائل الاستاذ محيي الدين عن اول ما جال بخاطري عن هذا الكود احيانا قد نحتاج الى عرض تقرير معين لحساب معين باكثر من متغير كالتاريخ او اسم من قام بتسجيل البيان او ... او ... الخ وهو امر سهل وبسيط ومتعارف عليه ولكن ماذا لو كان المطلوب هو تقرير معين لاكثر من حساب وبمتغيرات محددة ؟؟؟ وهنا تبرز فائدة الكود وللتوضيح اكثر لنفترض ان لدينا قاعدة حفظ بيانات ( عبارة عن قيود يومية ) ولنفترض انني اريد عمل تقرير لمجموعة حسابات منتقاة كل حسب كوده في دليل الحسابات وذلك خلال فترة معينة لنوعية القيود التي تحمل النوع PAYABLES وتم اختيار ارقام الحسابات عن طريق ليست بوكس MULTI SELECTION وتم وضع هذه الارقام في صفحة محددة بشكل عمودي ولتكن صفحة بمسمى مؤقت وبتنفيذ الكود بالشكل التالي نحصل على المطلوب اولا : عمل تقرير لآخر رقم حساب في صفحة مؤقت وادراجه في صفحة التقارير ثانياً : حذف آخر سطر من صفحة مؤقت ثم تكرار الكود بنفس الخطوات مع مراعاة لصق النتائج الجديدة في آخر سطر بصفحة التقارير حتى يتم حذف كل ماهو موجود في صفحة مؤقت وبذلك نكون قد حصلنا على تقرير لاكثر من حساب مختار وباكثر من متغير ارجو ان تكون الفكرة واضحة تحياتي للجميع 2 رابط هذا التعليق شارك More sharing options...
هاني بدر قام بنشر مايو 10, 2015 مشاركة قام بنشر مايو 10, 2015 (معدل) السلام عليكم ورحمة الله وبركاته في المشاركة السابقة nTimes هتكون هي count لعمود ارقام الحسابات في صفحة مؤقت واقوللك على مثل اقرب لو انت بتستخدم اليومية الانجليزية فاحيانا تجد السند الواحد يحتوي على اكثر من بيان يحتاج الى تبويبه لحسابات مختلفة وهنا تكرار البيان الواحد مطلوب نسخه لاكثر من مرة حسب عدد مرات التبويب وكمثال عند اجراء تسوية مستحقات موظف بمناسبة نهاية عقده فستجد السند الواحد يحتوي على بيانات كالتالي عدد ايام التشغيل رصيد اجازات مستحقة مكافئة نهاية الخدمة اضافات اخرى جزاءات تامينات مستحقة على الموظف ضرائب كسب عمل مستحقة استقطاعات اخرى كل هذه التبويبات ستحمل في البيان وصف واحد وهو تسوية مستحقات العامل س بقسم ص تحياتي للجميع تم تعديل مايو 10, 2015 بواسطه هاني بدر 1 رابط هذا التعليق شارك More sharing options...
الســـــــاهر قام بنشر نوفمبر 9, 2015 مشاركة قام بنشر نوفمبر 9, 2015 السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل يـاسر خليل تقبل احترامي وتقديري وشكري كود رائع ولفتة رائعة من انسان رائع جزاك الله خير ( يسلمووووو ) 1437/01/27 (هـ) 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 9, 2015 الكاتب مشاركة قام بنشر نوفمبر 9, 2015 وعليكم السلام ورحمة الله وبركاته أخي الغالي الساهر الغائب مشكور على مرورك العطر بالموضوع ..تقبل وافر تقديري واحترامي رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر نوفمبر 9, 2015 مشاركة قام بنشر نوفمبر 9, 2015 السّلام عليكم و رحمة الله و بركاته ما أحلى الرّجوع إل .......ــى أكوادك لا تنتبه لأكواد ياسر خليل أبو البراء .. إذن فأنت غير موجود .. و أنا بصراحة لم أنتبه تسلم الأيادي ..بارك الله فيك أستاذنا القدير جزاك الله خيرًا و زادها بميزان حسناتك فائق إحتراماتي 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 9, 2015 الكاتب مشاركة قام بنشر نوفمبر 9, 2015 مشكور على مرورك العطر يالموضوع أخي وحبيبي في الله أبو دوسة تقبل وافر تقديري واحترامي رابط هذا التعليق شارك 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.