كتابة أكثر من كود !!

[زياد علي]

السلام عليكم

اخواني الاعزاء

قد يقول قائل والله كثرت علينا هذه الأكواد ،،، وقد نحتاج لأستخدام أكثر من كود

في آن واحد ،،، نقول وبالله التوفيق ،،، الحل أن تقوم بكتابة كود آخر يقوم بإستدعاء

الأكواد المطلوبة بأسمائها ،،، شريطة أن تكون متفقة في السلوك ،، أي لا تكون الأوامر بالأكواد

متناقضة ،،، والكود المذكور بسيط جداً :

Sub Main()

Call Macro1

Call Macro2

Call Macro3

End Sub

تحياتي

[saffaa]

شكرا شكرا

معلومة حلوة

[زياد علي]

السلام عليكم

saffa

بارك الله فيك الحمد لله انك استفدت

كل سنة وانت طيب

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

و للاضافه

و يمكن نقل متغير الى الاجراء و استدعائه عده مرات

Sub DOIT()

    Dim Str As String

    Str = [A1]

    My_Call (Str)

    Str = [A2]

    My_Call (Str)

End Sub

Private Function My_Call(Str)

    MsgBox (Str)

End Function

مرفق ملف

السلام عليكم

My_Call.rar

[قصي]

نتمنى ان نرى لك

يا استاذ هادي موضوعا عملاقا

مثل مواضبعك السابقة

وكل عام وانت طيب

[زياد علي]

السلام عليكم

اخي واستاذي هادي محمد المأمون شكرا على المرور وعلى هذه الإضافة القيمة

اخي قصي اشكر مرورك واشارك الرأي بخصوص أعمال أستاذنا الفاضل هادي

السلام عليكم