كيف ادمج كودين مع بعض في كود برمجي واحد

[ابوسلماان]

السلام عليكم 

ماذا لو كان لديك اكثر من كود برمجي وتحتاج الى تنفيذهم وراء بعض. للتسهيل في عملية التنفيذ ،،  فبدلا من ان يكون عندك اكثر من مايكرو للتنفيذ ،، يكون لديك مايكرو واحد ينفذ عدة كودات.

 

هل هناك علامة تفصل بين الكود الاول والثاني والثالث ..الخ  ،، وهل هناك من نصائح لهذا الموضوع.

 

ولكم خالص التقدير،،،

[عبدالسلام ابوالعوافي]

Sub Code1()
' your code
End Sub
Sub Code2()
' your code
End Sub
Sub Code3()
' your code
End Sub
Sub Code4()
' your code
End Sub

Sub MainCode()
    Code1
    Code2
    Code3
    Code4
End Sub

 

[ابوسلماان]

تسلم باش مهندس 

 

بس ممكن تشرح لماذا هذا الكود ا للي في الاخير؟  لو تكرمت

 

Sub MainCode()
    Code1
    Code2
    Code3
    Code4
End Sub

 

وشكرا

[عبدالسلام ابوالعوافي]

الكود الاخير ينفد الاكواد السابقة بالترتيب

Sub Code1()
    MsgBox 1
End Sub
Sub Code2()
    MsgBox 2
End Sub
Sub Code3()
    MsgBox 3
End Sub
Sub Code4()
    MsgBox 4
End Sub

Sub MainCode()
    Code1
    Code2
    Code3
    Code4
End Sub

جرب تنفد الكود الاخير وسوف تحصل علي مسجات متتالية

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

أخي الكريم أبو سلمان

يمكن ببساطة كتابة إجراء فرعي (ماكرو) جديد يتم من خلاله استدعاء بقية الإجراءات المطلوب تنفيذها تباعاً

لنفترض أن لديك ماكرو باسم Test1 وآخر باسم Test2 وآخر باسم Test3

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

ليصبح الماكرو الجديد بهذا الشكل

Sub ExecuteAll()
    Call Test1
    Call Test2
    Call Test3
End Sub

 

أخي الحبيب عبد السلام

أعتذر إليك .. لم أرى مشاركتك إلا الآن لأنني لم أحدث الصفحة منذ وقت ليس بالقليل

تقبل وافر تقديري واحترامي

[ابوسلماان]

وصلت الفكرة ،، وعاجز عن الشكر،،،،

 

محبة لقلبيكما ،،  الاستاذ ياسر والاستاذ عبد السلام 

 

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

 

 

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

وجزيت خيراً بمثل ما دعوت لنا أبا سلمان

وكل عام وأنت بخير

[عبدالسلام ابوالعوافي]

منذ ساعه, ياسر خليل أبو البراء said:

 

أخي الحبيب عبد السلام

أعتذر إليك .. لم أرى مشاركتك إلا الآن لأنني لم أحدث الصفحة منذ وقت ليس بالقليل

استاذنا ياسر .. لا يوجد مايدعو للاعتذار .. بل من الافضل احيانا ان تكون اكثر من اجابة للمشاركة"لاثراء الموضوع" .. 

ملاحظة .. قمت بالاعجاب للمشاركتك الاخيرة وهي الاعجاب رقم 6000 لحضرتك "نقاط السمعة"