هادى محمد المامون سالم قام بنشر يوليو 5, 2007 الكاتب قام بنشر يوليو 5, 2007 بسم الله الرحمن الرحيماخى خالد :اشكرك كثيرا على متابعه الموضوع و افاده الاخرينبخصوص استكمال السلسلة فالحمد لله خاب ظنك بدليل قيامى بتثبيت الموضوع و ايمانى ان هذا العمل لوجه الله و لا انتظر منه سواء الجزاء منه و هذا اعظم من كلمه شكر و الحمد لله ان ربنا عوض الاعضاء فى هذه الفتره( لانشغالى الشديد ) بمن هو افضل منى هوانت اخى خالد 0السلام عليكم الأستاذ خالد نور جزاك الله كل خير أخي الكريم وأشكرك على الشرح لكن كان لي طلب وهو أريد معرفة الخطأ الذي ارتكبته في ملفي المرفق السابق لكي أتجنبه علماً أنني مشيت بالخطوات التي شرحها الأستاذ هادي مشكوري ومأجورين بإذن الله بسم الله الرحمن الرحيماخى mfawazهكذا دائما الاكواد خطأ بسيط جدا من الممكن ان يعطلك عده ايام , عندك خطأن فى الكود و لن تصدق عندما تعرف ان الخطأ الأول ليس عيب فى الكود و لكنك كتبت كلمه Wellcome فى الكود بطريقه صحيحه اما فى ورقه العمل كتبتها خطـــــــــــأ Well come يجب ان تكتبهما بطريقه واحده , اما الخطأ الثانى فى استخدامك لجمله ScorllArea برجاء اضافه السؤال فى المنتدى حيث ان هذا السؤال خارج نطاق الشرح الحالىالسلام عليكم
أبو عادل قام بنشر يوليو 6, 2007 قام بنشر يوليو 6, 2007 أخي الكريم هادي سالم أشكرك جزيل الشكر وجزاك الله كل خير على هذا التوضيح ورحم الله والديك
خالد نور قام بنشر يوليو 8, 2007 قام بنشر يوليو 8, 2007 السلام عليكم ورحمة الله وبركاته اخى الحبيب هادى سالم بارك الله فيك وحفظك من كل سؤ واحمد الله انك خيبت ظنى فى انك لم تكمل الموضوع وانك ايضا لم تخيب ظنى فيك عموما فانت محب لنشر العلم ومساعدة الاخرين واهلا بعودتك من جديد لاستكمال ما كنت قد بدئته أنت وفى انتظار الجديد منك دائما بارك الله فيك وبالنسبة للاخطاء التى قد تعوق تدفق البرنامج او السطر البرمجى فكما اورد اخى هادى عدم كتابة العنوان المشار اليه صحيحا كما هو مدون فى الاصل حتى لو كان مكتوب بطريقة خطاء فلابد ان يتطباقان وإلا..... وثان أمر وهو مهم جدا علامات الوقوف والآقواس وعلامات التنصيص من العوامل التى ان غفلت عنها او نسيت علامة وقوف مثلا . فسيتغير معنى الكود تماما فلابد من الحرص على هذه الاشياء , وترتيب خطوات الكود ما نريده اولا يكتب اولا ومن الف باء برمجه ان تكون منتبها لهذه الاشياء اولا وان تقوم بتجربه كل خطوة وكل كود تكتبه حتى تقف عند الاخطاء التى قد تحدث عند التشغيل وتستطيع ان تقوم بمعالجتها والتدقيق فى الاخطاء حتى تتجنبها فى المرات القادمة ومرة فى مرة ستجد انك عرفت الاخطاء التى قد تقع واصبحت عالم فى تصحيح الاخطاء وربما يستعينون بك فى مراجعة البرامج الكبيرة لاحقا فكل شىء بالممارسة والمحاولة فليس هناك شىء مستحيل ولا يملك احد العلم الكامل وفوق كل ذى علم عليم وعدو العلم والتعلم هو اليأس والاحباط فيجب ان لا ندعه يتسلل الينا ويجب ان نحرص على ان نتعلم كل يوم شىء جديدا فى اى مجال ولا ندع اليوم يمر هباء وممكن ان نفرد موضوع عن الاخطاء البرمجيه الممكن الوقوع فيها لاحقا ان شاء الله جزاكم الله خيرا
ابو فهد13 قام بنشر يوليو 9, 2007 قام بنشر يوليو 9, 2007 (معدل) الاخ هادي ودي ارسل لك رساله لكن لم استطع مالامر بارك الله فيك تم تعديل يوليو 9, 2007 بواسطه ابو فهد13
هادى محمد المامون سالم قام بنشر يوليو 9, 2007 الكاتب قام بنشر يوليو 9, 2007 بسم الله الرحمن الرحيم الدرس الثالث سنقوم بالربط بين الجمله الشرطيه (If….Then) و الدالات ( Function) سنحاول تنفيذ مثال من اكثر الاسئله تكرارا فى المنتدى و هو نهايه جمله If عند عدد محدد من الشروط 0 فمثلا اذا اردت ان عند كتابتك فى الخليه A2 رقم 1 يظهر ل فى الخليه B2 اسم Hady1 و اذا اردت ان تكتب 2 فى الخليه A2 رقم 2 يظهر لك اسم Hady2 و هكذا حتى تصاب بالملل و دون قيود 0 سنذهب الى صفحه vba و نضيف موديول و اهم شىء هو عنوان Function Public Function My_Function(MyCell As Integer) As String Public Function داله تصتطيع مناداتها من اى مكان بالملف My_Function اسم الداله و سوف نقوم بكتابتها فى الخليه B2 بعد علامه = و قد قمنا بتعريفها انها String لان سوف يظهر بها اسم MyCell الخليه A2 و سوف نقوم بكتابتها بين قوسين لمناداتها قد قمنا بتعريفها انها Integer لاننا سوف نكتب بها رقم صحيح و هنا سنقوم باستخدام If و ElseIf If MyCell = 1 Then My_Function = "Hady1" ElseIf MyCell = 2 Then My_Function = "Hady2" و هنا تظهر فائده القران الكربم و اللغه العربيه المقتبسه منه ماذا نريد ان نقول ؟ اذا كانت الخليه A2 =1 "مع ملاحظه ان الخليه A2 = MyCell " If MyCell = 1 اذا Then الخليه B2=Hady1 "مع ملاحظه ان الخليه B2= My_Function " " My_Function = "Hady1 و هكذا مع ملاحظه استخدام ElseIf للتحقق من الشرط التالى اذا لم يتحقق الشرط الاول و فى النهايه اذا لم تتحقق هذه الشروط تظهر لنا هذه الجمله "الكود خطأ"و ذلك بأستخدام جمله Else و يجب انهاء جمله If ب EndIf و الشىء الخطير انك اذا سحبت الخليه A2 الى اسفل سيتم تطبيق الداله على باقى الصفوف و هذا هو الكود Public Function My_Function(MyCell As Integer) As String If MyCell = 1 Then My_Function = "Hady1" ElseIf MyCell = 2 Then My_Function = "Hady2" ElseIf MyCell = 3 Then My_Function = "Hady3" ElseIf MyCell = 4 Then My_Function = "Hady4" ElseIf MyCell = 5 Then My_Function = "Hady5" ElseIf MyCell = 6 Then My_Function = "Hady6" ElseIf MyCell = 7 Then My_Function = "Hady7" ElseIf MyCell = 8 Then My_Function = "Hady8" ElseIf MyCell = 9 Then My_Function = "Hady9" ElseIf MyCell = 10 Then My_Function = "Hady10" Else My_Function = "الكود خطأ" End If End Function مرفق ملف السلام عليكم vb_03.rar
هادى محمد المامون سالم قام بنشر يوليو 9, 2007 الكاتب قام بنشر يوليو 9, 2007 بسم الله الرحمن الرحيم و يمكن الوصول الى نفس النتيجه بأستخدام جمله Select Case و تنتهى ب End Select و اليكم الكود Public Function My_Function(MyCell As Integer) As String Select Case MyCell Case 1 My_Function = "Hady1" Case 2 My_Function = "Hady2" Case 3 My_Function = "Hady3" Case 4 My_Function = "Hady4" Case 5 My_Function = "Hady5" Case 6 My_Function = "Hady6" Case 7 My_Function = "Hady7" Case 8 My_Function = "Hady8" Case 9 My_Function = "Hady9" Case 10 My_Function = "Hady10" End Select End Function السلام عليكم
هادى محمد المامون سالم قام بنشر يوليو 19, 2007 الكاتب قام بنشر يوليو 19, 2007 بسم الله الرحمن الرحيموصله مفيده و بسيطه على علاقه بالموضوع لأستاذىمحمد حجازىhttp://www.officena.net/ib/index.php?showtopic=7653السلام عليكم
ابو اسامة العينبوسي قام بنشر يوليو 19, 2007 قام بنشر يوليو 19, 2007 السلام عليكم منذ ايام انتظر ردك اخي مشكور جدا من الخير بطئ سيبك عنى - اسرع السحاب في السير الجهام
أبو عادل قام بنشر يوليو 19, 2007 قام بنشر يوليو 19, 2007 (معدل) استاذ هادي سالم أين انت يا أخي منذ ايام وانت منقطع عن المنتدى والله اريد الإطمئنان عن صحتك اسأل الله تعالى ان تكون بخير وصحة ممتازة تم تعديل يوليو 19, 2007 بواسطه mfawaz
هادى محمد المامون سالم قام بنشر يوليو 19, 2007 الكاتب قام بنشر يوليو 19, 2007 بسم الله الرحمن الرحيماخى ابو اسامة العينبوسياخى mfawazاشكركم كثيرا على السؤالفعلا متغيب عقبالكم ان شاء الله اعد العده للسفر الى الارض الطاهره لاداء العمره يوم الخميس المقبل ان شاء الله واحاول انهاء اعمالى السابقه و اللاحقه فى العملو بصراحه اخى ابو اسامة العينبوسي ( الله يبارك فيه ) لا يترك سؤال بالمنتدى دون جواب و مكانه الطبيعى فى الاشراف معناالسلام عليكم
ابو اسامة العينبوسي قام بنشر يوليو 20, 2007 قام بنشر يوليو 20, 2007 السلام عليكم طلب لى و رجاء دعاء في جوف الكعبه بظاهر الغيب لاخيك العبد الفقير الى الله عمر العينبوسي (ابو اسامه ) و تقبل الله منك الطاعات
أبو عادل قام بنشر يوليو 20, 2007 قام بنشر يوليو 20, 2007 السلام عليكم ورحمة الله وبركاته أخي الكريم هادي سالم أسأل الله تعالى أن ييسر لك أمرك ويغفر لك ويمتعك النظر إلى الكعبة المشرفة ويتقبل طاعتك كما وأسالك الدعاء من جوف الكعبة إلى أخيك العبدالفقير لله أخوك محمد فواز ( أبو عادل )
هادى محمد المامون سالم قام بنشر يوليو 20, 2007 الكاتب قام بنشر يوليو 20, 2007 السلام عليكم طلب لى و رجاء دعاء في جوف الكعبه بظاهر الغيب لاخيك العبد الفقير الى الله عمر العينبوسي (ابو اسامه ) و تقبل الله منك الطاعات بسم الله الرحمن الرحيم يوصل ان شاءالله لكن جوف الكعبه صعب شويه السلام عليكم ورحمة الله وبركاتهأخي الكريم هادي سالم أسأل الله تعالى أن ييسر لك أمرك ويغفر لك ويمتعك النظر إلى الكعبة المشرفة ويتقبل طاعتك كما وأسالك الدعاء من جوف الكعبة إلى أخيك العبدالفقير لله أخوك محمد فواز ( أبو عادل ) يوصل ان شاءالله اذا ترغب زيارة المملكة نحن بالخدمة شكرا اخى الكريم الحمدلله التاشيره و التذاكر و الكاش كله تمام و لا ينقصنى سوى رؤياك السلام عليكم
ابو اسامة العينبوسي قام بنشر يوليو 21, 2007 قام بنشر يوليو 21, 2007 السلام عليكم دعاء في جوف الكعبه بظاهر الغيب لاخيك العبد الفقير الى الله عمر العينبوسي (ابو اسامه ) و تقبل الله منك الطاعات مجاز مرسل علاقته المجاوره قال الشاعر :- فشككت بالرمح الاصم ثيابهُ - ليس الكريم على القنا بمحرمِ فذكر الثياب و قصد البدن
سمير هنداوي قام بنشر يوليو 21, 2007 قام بنشر يوليو 21, 2007 اخي الاستاذ / هادي سالم تقبل الله منكم العمرة و القربات لا تنسانا في دعاءك أخوك سمير هنداوي
bufahad قام بنشر يوليو 23, 2007 قام بنشر يوليو 23, 2007 الصراحه فادني كثيرا وخاصة اني مقبل على دراسة هذه المادة في الجامعه
اناابوحمزه قام بنشر أغسطس 5, 2007 قام بنشر أغسطس 5, 2007 االاخ الاستاذ هادي سالم انا موافق في طريقة العرض حيث ان المبتدئين يحتاجون مثل هذا الشرح اما المتقدمين في المعرفه فيمكن ان يطرحو اسئلة تمثل احتياجهم وبالتالي يصعب على غيرهم الاستفادة . فسيرو على بركة الله والله يكون في عونكم مادمتم في عون اخوانكم . اخوكم ابو حمزه
ايوب صابر قام بنشر أغسطس 5, 2007 قام بنشر أغسطس 5, 2007 الاستاذ هادي اذا كنت في السعودية وبالتحديد في الرياض فلي رجاء عندك تراسلني لاتشرف بخدمتك الايميل arefko2@hotmail.com
هادى محمد المامون سالم قام بنشر أغسطس 7, 2007 الكاتب قام بنشر أغسطس 7, 2007 (معدل) أخواني الأعضاء ممكن تدلوني على الطريق الصحيح لفهم واستيعاب هذا البرنامج ------ لأني أحتاج أن أبدأ من الصفر لاني غير فاهم شئ في هذا البرنامج وحتاج اني اتعلمه لانه مادة مقررة علي في الجامعة فأرجو من ذوي الخبرة أن ينصحوني هل ادخل معهد مثلا او اشتري كتاب تعليم أفضل أو اذا مواقع انترنت تشرح من الصفر بسم الله الرحمن الرحيم جرب هذا الرابط http://www.officena.net/ib/index.php?showt...;رو الاستاذ هادي اذا كنت في السعودية وبالتحديد في الرياض فلي رجاء عندك تراسلني لاتشرف بخدمتك الايميل arefko2@hotmail.com أخى أيوب شاكر جدا على عرضك الطيب و لكنى الان عدت الى ارض الوطن شكرا مره اخرى الاخوه الكرام : للموضوع بقيه ان شاء الله لكن أمهلونى بعض الوقت السلام عليكم تم تعديل أغسطس 7, 2007 بواسطه هادى سالم
ايوب صابر قام بنشر أغسطس 7, 2007 قام بنشر أغسطس 7, 2007 الحمدلله على السلامة استاذ هادي وتقبل الله منا ومنكم صالح الاعمال وعمرة مقبوله ان شاء الله
هادى محمد المامون سالم قام بنشر أغسطس 7, 2007 الكاتب قام بنشر أغسطس 7, 2007 بسم الله الرحمن الرحيم سنقوم باستخدام جمله IF مع اكثر من شرط أذا تحقق الشرطان معا سنحصل على النتيجه المطلوبه و اذا لم لم يتحقق الشرطان سوف تظهر لنا رساله بان " الكود خطأ " و ذلك بأستخدام And مع IF Public Function My_Function(MyCell_1 As Integer, MyCell_2 As String) As String If MyCell_1 = 1 And MyCell_2 = "Hady1" Then My_Function = (MyCell_1 & " / " & MyCell_2) ElseIf MyCell_1 = 2 And MyCell_2 = "Hady2" Then My_Function = (MyCell_1 & " / " & MyCell_2) Else My_Function = " الكود خطأ " End If End Function شرح الكود اذا كانت الخليه الاولى بها رقم 1 و الخليه الثانيه بها كلمه Hady1 سيكون الناتج ماهو موجود فى الخليه الاولى و لكى نضيف نتيجه اخرى يجب الفصل برمز & و لكى نضع فاصل نستخدم علامه " " و نضع داخل علامه التنصيص اى فاصل تريد أستخدمه سواء / أو أى كلمه أو رمز يحلو لك مع ترك مسافه قبلها و بعدها لتوسيع مجال علامه التنصيص( و هذا امر اختيارى لك ) ثم يجب اضافه رمز & مره اخرى لتظهر ما هو موجود بالخليه الثانيه و هذا امر هام و حيوى عندما تريد دمج خليتان معا سواء عند استخدامك للأكواد أو عند التعامل داخل ورقه العمل و اذا لم يتحقق الشرطان معا سوف يظهر لنا كلمه الكود خطأ 0 و لاحظ فى بدايه الكود قمنا بتعريف MyCell_1 As Integer لاننا نتعامل مع الارقام قمنا بتعريف MyCell_2 As String لاننا نتعامل مع الكلمات و اتمنى تطبيق نفس الفكره مع OR مع IF و لكن الفرق ان الناتج يتحقق عند تحقق احد الشروط و ليس الشرطان معا و اتمنى اكثر ان يقوم احد الاعضاء بشرحها بنفس الطريقه و ليس هناك اى احراج أو قلق حتى اذا حدث خطأ فى الشرح لأنى سوف اقوم بالمراجعه و التصحيح 0 مرفق ملف السلام عليكم vb_04.rar
asmo200666 قام بنشر أغسطس 7, 2007 قام بنشر أغسطس 7, 2007 استاذنا / هادى سالم جزاك الله عنا خيرا وعفى عنك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.