شرح الفيجوال بيزيك للمتوسطين

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

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

و اتمنى تطبيق نفس الفكره مع OR مع IF و لكن الفرق ان الناتج يتحقق عند تحقق احد الشروط و ليس الشرطان معا و اتمنى اكثر ان يقوم احد الاعضاء بشرحها بنفس الطريقه و ليس هناك اى احراج أو قلق حتى اذا حدث خطأ فى الشرح لأنى سوف اقوم بالمراجعه و التصحيح 0

هذا هو كود OR مع IF

Public Function My_Function(MyCell_1 As Integer, MyCell_2 As String) As String
    If MyCell_1 = 1 Or MyCell_2 = "Hady1" Then
        My_Function = (MyCell_1 & " / " & MyCell_2)
    ElseIf MyCell_1 = 2 Or MyCell_2 = "Hady2" Then
        My_Function = (MyCell_1 & " / " & MyCell_2)
    Else
        My_Function = "الكود خطأ"
    End If
End Function

مرفق ملف

السلام عليكم

vb_05.rar

تم تعديل أغسطس 9, 2007 بواسطه هادى سالم

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

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

نستكمل الحديث عن جمله IF تمهيدا للأنتقال الى الجمل التكراريه و بعد الأنتهاء من Function و ربطها بورقه العمل سننتقل الى الاستخدام المطلق للكود عن طريق الاجراء Sub مع ربطه بمفتاح و لكن سيتم التطبيق على خليه واحده مؤقتا حتى يكون الموضوع أبسط و أسهل 0

Sub sAdd_01()
    If Sheets("Main").Cells(2, "A") <> "" Then
        Sheets("Main").Cells(2, "C") = Sheets("Main").Cells(2, "A") _
        + Sheets("Main").Cells(2, "B")
    End If
End Sub

شرح الكود أذا كانت الخليه A2 ليست فارغه ( الرمز <> معناها ليست أو لا تساوى و علامتى التنصيص "" معناها ان الخليه فارغه ) الخليه C2 = A2 + B2 وكما تعلمنا فى درس الأشاره الى الخلايا يمكن تنفيذ نفس الكود بالطريقه التاليه :

Sub sAdd_02()
    If Sheets("Main").Cells(2, 1) <> "" Then
        Sheets("Main").Cells(2, 3) = Sheets("Main").Cells(2, 1) _
        + Sheets("Main").Cells(2, 2)
    End If
End Sub

و هذه طريقه ثالثه

Sub sAdd_03()
    If Sheets("Main").[A2] <> "" Then
        Sheets("Main").[C2] = Sheets("Main").[A2] _
        + Sheets("Main").[B2]
    End If
End Sub

مرفق ملف

السلام عليكم

vb_06.rar

[asmo200666]

استاذى / هادى

رائع ولكن لماذا هذة الجملة عند كتابتها فى الكود فى المشاركة51 ظهرت هكذا

My_Function = "&Ccedil;&aacute;&szlig;&aelig;&Iuml; &Icirc;&Oslash;&Atilde;"

والمفترض انها تظهر كما فى المشاركة 49السابقة لها

My_Function = " الكود خطأ "

هل هذا من مشاكل اللغة العربية داخل الفيجول ام هذا له دليل برمجى

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

استاذى / هادى

رائع ولكن لماذا هذة الجملة عند كتابتها فى الكود فى المشاركة51 ظهرت هكذا

My_Function = "&Ccedil;&aacute;&szlig;&aelig;&Iuml; &Icirc;&Oslash;&Atilde;"

والمفترض انها تظهر كما فى المشاركة 49السابقة لها

My_Function = " الكود خطأ "

هل هذا من مشاكل اللغة العربية داخل الفيجول ام هذا له دليل برمجى

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

تم التعديل

ليس من مشاكل اللغة العربية داخل الفيجول

و ليس دليل برمجى

لقد قمت بنسخ و لصق الكود و أعتقادى الامرله علاقه بالمشاركه

برجاء تجربه نسخ و لصق الكود والمعاينه قد يكون السبب من جهازى و اخبارى بالنتيجه

السلام عليكم

[أبو عادل]

أستاذنا الكريم هادي

أولاً تقبل الله طاعتك وغفر الله ذنوبك وأدخلنا الجنة وإياك بإذن الله

جزاك الله كل خير على الشرح الرائع

لي سؤال بالنسبة للكود في المشاركة 49

هل هذا الكود لدمج خليتين إحداهما رقم والأخرى نص لإظهارها في خلية ثالثة ؟؟؟؟

أشكرك مرة أخرى

[asmo200666]

تمام استاذى / هادى

عند فتح المشاركة من جهازى بالعمل وجدتها سليمة _ ربما يكون من جهازى بالمنزل او مشكلة عندى باللغة

شاكر لردك

[أ . وهبي]

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

بارك الله فيكم و جزاكم عمَّا تقدموه لنا كل الخير ...

: تم تعديل أغسطس 15, 2007 بواسطه أ . وهبي

[ابو ساري]

بصراحة موضوع رااااااااااااااااااااااااااااااااائع

و استفدنا منه كتييييييييييير و بدأت أشتغل على الفيجوال

يا ريت يا اخ هادي لو تكمل معروفك

لانه احنا بحاجة كبيرة للمواضيع هاي

و احنا بانتظار المزيد

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

و ما تيأس

لأني لاحظت انه اخر رد الك في Jun 20 2007

يعني من فترة بعيدة

و ممكن اقترح اقتراح صغير

انك تعملها بنظام دورة كاملة يعني كل يوم سبت درس جديد و طول الاسبوع استفسارات و اسئلة

او يكون في الاسبوع الواحد اكثر من درس

انا آسف طولت عليكم كتير

سامحوني

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

تم تعديل يناير 14, 2008 بواسطه ابو ساري

[نايف - م]

السلام عليكم

استاذ هادي

أتمنى أن يكون التأخير من الخير أن شاء الله

نتمنى عودتك سريعا لما قدمته لنا من فائدة في هذه الزاوية

نحن ننتظر منك الفائدة

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

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

التأخير له أسبابه أتمنى أعفائى من الأجابه عن الأسباب و لكن سأحاول تكمله المشوار

اليوم سنتحدث عن مرحله جديده فى أعتقادى أنها أهم مرحله لتعلم vba و بصراحه شديده و اجهتنى صعوبه كبيره حتى أستطعت تعلمها و لذلك سأحاول التبسيط على قدر المستطاع و ستكون الدروس بسيطه و صغيره حتى نبعد عن التعقيد

الجمل التكراريه

الدرس الرابع

أليكم مثال بسيط كبدايه

اذا اردنا اظهار رساله بمحتويات أول ثلاث خلايا بالعمود " A "بورقه عمل " Sheet1 " بصوره تكراريه نستخدم الكود التالى

Sub Hady()
    Dim i As Integer
    For i = 1 To 3
        MsgBox (Sheets("Sheet1").Cells(i, "A"))
    Next i

جربوا الكود ثم حاولوا تغيير الارقم 1 أو 3 ثم أنظروا ماذا يحدث

مرفق ملف

السلام عليكم

Loop_01.rar

[علي فاهم]

بارك الله فيك

وامدك بالصحة

[يحيى حسين]

أخي الحبيب هادي

جزاك الله خير الجزاء على هذا الشرح الوافي و الجميل و الرائع

اتمنى أن تكون الدروس بوتيره أسرع

لا يعني هذا أن نطلب منك لوحدك القيام بالعمل بل ننتظر مشاركة المبدعين و الأخوة في هذا المنتدى

كما فعل الاخ خالد نور بمداخلاته الرائعة

و في انتظار المزيد منك يا أخ هادي و من المبدعين امثالك

و دمتم بود

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

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

و يمكن الربط بين جمله IF و الجمله التكراريه بأضافه IF...End IF بين For...Next للبحث عن كلمه محدده و هى" Hady1" فى أول ثلاث خلايا بالعمود الأول و ذلك بالتعديل على الكود السابق كالتالى

Sub Hady()
    Dim i As Integer
    For i = 1 To 3
        If Sheets("Sheet1").Cells(i, "A").Value = "Hady1" Then
            MsgBox (Sheets("Sheet1").Cells(i, "A"))
        End If
    Next i
End Sub

السلام عليكم

[علي فاهم]

الله ينعم عليك دنيا وآخره

[mooody128]

الف شر وجزاك الله كل خير .....

[ابراهيم سكيك]

مشكور اخي الكريم

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

وجعلها الله في ميزان حسناتك يوم القيامة

وبارك الله فيك وفي أهلك ومالك وعملك وولدك

[mhareek]

الف الف شكر اخى الحبيب وجزاك الله خير ان شاء الله

نحن فى انتظار باقى الدروس الف شكر

[abdelmajid]

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

اخي الكريم لا استطيع تحميل الورفقات

المرجو اعادة نشرها لتعم الفائدة و

جزاك الله خيرا

[محمد فيروز]

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

بارك الله فيك وجعل هذا العمل فى ميزان حسناتك

ويريت تكمل وتعلمنا يا أستاذنا

[رفيق محمد]

يا اخوان

الموضوع الرائع ده لا يستحق ان يهمل في المنتدى هكذا

جزا الله اخواننا كل الخير

[alirah20]

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

بارك الله فيك وجعل هذا العمل فى ميزان حسناتك

[المعلم خالد]

مشكور وجزاك الله كل خير

الله يعطيك من العلم ما أحببت

[alammm]

هذا علم ليس بالقليل وجهد لا يوصف

وابداع معروف منك اخي هل لا تكرمت باضافة للدورة تكون عوننا لك في الاخرة

نريد دورة اكثر ومعلومات اوسع اوسع الله عليك جناته

مشكرو اخي على هذا الموضوع يمكن دورة اكثرة تتطور ولك الشكر وزيادة في الحسنات

[boss]

جزاك اخي هادي كل خير

ولا تبخل علينا اشتقنا لابداعاتك

وابداعات الاخوة خبور وخالدوكل الاخوة

[mselmy]

الاخ الكريم الاستاذ / هادى سالم

بارك الله فيك ونفع بك

اود ان اضم صوتى الى كل الزملاء الذين طلبو حفظ هذه المادة العلمية على شكل ملف ورد او pdf حتى يتثنى لنا الرجوع لها فى اى وقت وكذلك القراءة من ورق مطبوع عند البعض اسهل من القراءة من صفحة النت و قد كنت طلبت هذا الطلب سابقا فى بداية هذه السلسة لكن لم يوجد رد . فلعل المانع خير

وجزاك الله خير الجزاء ,,,, والله ولى التوفيق