تفضل : لدمج كودين أو أكثر في كود واحد

[أبو عبدالإله]

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

 

كل عام وأنتم بخير ، وأسأل الله سبحانه وتعالي أن تكونوا بأفضل حال .

قد يرغب بعضنا في تفعيل أكثر من كود مرة واحد من خلال ضغطة زر ، بمعني دمج أكودين أو أكثر في كود واحد 

ولتفعيل ذلك فهذا كود لدمج أكثر من كود في كود واحد : فإذا تم الضغط على الزر المرتبط بهذا المايكرو سينفذ الأكواد المرتبطة به مباشرة سواء في نفس الشيت أو في المصنف بأكلمه :

Sub abuabood()
        Application.Run "name"
        Application.Run "name"
            
End Sub

 

يجب أن يتم تغيير كلمة ( name ) إلى اسم الكود الخاص الذي تريد إضافته

ملاحظة :

في الكود السابق يتم تفعيل كودين مع بعض مباشرة ، وإن رغبت بإضافة كود ثالث أضف :         "Application.Run "name"  

وهكذا ..

 

 

قد يكون هناك حل أكثر تطورا لخبرائنا في المنتدى ، ولكن هذا قد يفيد المبتدئين أمثالي 

 

تحيتي للجميع وللأخ الغالي ياسر أبو البراء 

 

 

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم أبو عبد الإله وجزيت خيراً على الموضوع وعلى المعلومة القيمة

يمكن أن يتم كتابة اسم الإجراء الفرعي بشكل مباشر

أو يمكن استخدام كلمة Call قبل اسم الإجراء الفرعي

كل السبل تؤدي إلى روما

تقبل تحياتي

[أبو عبدالإله]

حياك الله أستاذنا الغالي ياسر

سعدت بمرورك وبإضافتك الرائعة .

لانستغني أبدا عن الخبراء أمثالكم رعاك الله .

[ناصر سعيد]

جزاك ربي خير ا وبارك الله فيك