هادى محمد المامون سالم قام بنشر يوليو 5, 2007 الكاتب مشاركة قام بنشر يوليو 5, 2007 بسم الله الرحمن الرحيماخى خالد :اشكرك كثيرا على متابعه الموضوع و افاده الاخرينبخصوص استكمال السلسلة فالحمد لله خاب ظنك بدليل قيامى بتثبيت الموضوع و ايمانى ان هذا العمل لوجه الله و لا انتظر منه سواء الجزاء منه و هذا اعظم من كلمه شكر و الحمد لله ان ربنا عوض الاعضاء فى هذه الفتره( لانشغالى الشديد ) بمن هو افضل منى هوانت اخى خالد 0السلام عليكم الأستاذ خالد نور جزاك الله كل خير أخي الكريم وأشكرك على الشرح لكن كان لي طلب وهو أريد معرفة الخطأ الذي ارتكبته في ملفي المرفق السابق لكي أتجنبه علماً أنني مشيت بالخطوات التي شرحها الأستاذ هادي مشكوري ومأجورين بإذن الله بسم الله الرحمن الرحيماخى mfawazهكذا دائما الاكواد خطأ بسيط جدا من الممكن ان يعطلك عده ايام , عندك خطأن فى الكود و لن تصدق عندما تعرف ان الخطأ الأول ليس عيب فى الكود و لكنك كتبت كلمه Wellcome فى الكود بطريقه صحيحه اما فى ورقه العمل كتبتها خطـــــــــــأ Well come يجب ان تكتبهما بطريقه واحده , اما الخطأ الثانى فى استخدامك لجمله ScorllArea برجاء اضافه السؤال فى المنتدى حيث ان هذا السؤال خارج نطاق الشرح الحالىالسلام عليكم رابط هذا التعليق شارك More sharing options...
أبو عادل قام بنشر يوليو 6, 2007 مشاركة قام بنشر يوليو 6, 2007 أخي الكريم هادي سالم أشكرك جزيل الشكر وجزاك الله كل خير على هذا التوضيح ورحم الله والديك رابط هذا التعليق شارك More sharing options...
خالد نور قام بنشر يوليو 8, 2007 مشاركة قام بنشر يوليو 8, 2007 السلام عليكم ورحمة الله وبركاته اخى الحبيب هادى سالم بارك الله فيك وحفظك من كل سؤ واحمد الله انك خيبت ظنى فى انك لم تكمل الموضوع وانك ايضا لم تخيب ظنى فيك عموما فانت محب لنشر العلم ومساعدة الاخرين واهلا بعودتك من جديد لاستكمال ما كنت قد بدئته أنت وفى انتظار الجديد منك دائما بارك الله فيك وبالنسبة للاخطاء التى قد تعوق تدفق البرنامج او السطر البرمجى فكما اورد اخى هادى عدم كتابة العنوان المشار اليه صحيحا كما هو مدون فى الاصل حتى لو كان مكتوب بطريقة خطاء فلابد ان يتطباقان وإلا..... وثان أمر وهو مهم جدا علامات الوقوف والآقواس وعلامات التنصيص من العوامل التى ان غفلت عنها او نسيت علامة وقوف مثلا . فسيتغير معنى الكود تماما فلابد من الحرص على هذه الاشياء , وترتيب خطوات الكود ما نريده اولا يكتب اولا ومن الف باء برمجه ان تكون منتبها لهذه الاشياء اولا وان تقوم بتجربه كل خطوة وكل كود تكتبه حتى تقف عند الاخطاء التى قد تحدث عند التشغيل وتستطيع ان تقوم بمعالجتها والتدقيق فى الاخطاء حتى تتجنبها فى المرات القادمة ومرة فى مرة ستجد انك عرفت الاخطاء التى قد تقع واصبحت عالم فى تصحيح الاخطاء وربما يستعينون بك فى مراجعة البرامج الكبيرة لاحقا فكل شىء بالممارسة والمحاولة فليس هناك شىء مستحيل ولا يملك احد العلم الكامل وفوق كل ذى علم عليم وعدو العلم والتعلم هو اليأس والاحباط فيجب ان لا ندعه يتسلل الينا ويجب ان نحرص على ان نتعلم كل يوم شىء جديدا فى اى مجال ولا ندع اليوم يمر هباء وممكن ان نفرد موضوع عن الاخطاء البرمجيه الممكن الوقوع فيها لاحقا ان شاء الله جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ابو فهد13 قام بنشر يوليو 9, 2007 مشاركة قام بنشر يوليو 9, 2007 (معدل) الاخ هادي ودي ارسل لك رساله لكن لم استطع مالامر بارك الله فيك تم تعديل يوليو 9, 2007 بواسطه ابو فهد13 رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر يوليو 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 رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر يوليو 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 السلام عليكم رابط هذا التعليق شارك More sharing options...
alfares88 قام بنشر يوليو 15, 2007 مشاركة قام بنشر يوليو 15, 2007 بارك الله فيك ونفع بك وبعلمك رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر يوليو 19, 2007 الكاتب مشاركة قام بنشر يوليو 19, 2007 بسم الله الرحمن الرحيموصله مفيده و بسيطه على علاقه بالموضوع لأستاذىمحمد حجازىhttp://www.officena.net/ib/index.php?showtopic=7653السلام عليكم رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يوليو 19, 2007 مشاركة قام بنشر يوليو 19, 2007 السلام عليكم منذ ايام انتظر ردك اخي مشكور جدا من الخير بطئ سيبك عنى - اسرع السحاب في السير الجهام رابط هذا التعليق شارك More sharing options...
أبو عادل قام بنشر يوليو 19, 2007 مشاركة قام بنشر يوليو 19, 2007 (معدل) استاذ هادي سالم أين انت يا أخي منذ ايام وانت منقطع عن المنتدى والله اريد الإطمئنان عن صحتك اسأل الله تعالى ان تكون بخير وصحة ممتازة تم تعديل يوليو 19, 2007 بواسطه mfawaz رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر يوليو 19, 2007 الكاتب مشاركة قام بنشر يوليو 19, 2007 بسم الله الرحمن الرحيماخى ابو اسامة العينبوسياخى mfawazاشكركم كثيرا على السؤالفعلا متغيب عقبالكم ان شاء الله اعد العده للسفر الى الارض الطاهره لاداء العمره يوم الخميس المقبل ان شاء الله واحاول انهاء اعمالى السابقه و اللاحقه فى العملو بصراحه اخى ابو اسامة العينبوسي ( الله يبارك فيه ) لا يترك سؤال بالمنتدى دون جواب و مكانه الطبيعى فى الاشراف معناالسلام عليكم رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يوليو 20, 2007 مشاركة قام بنشر يوليو 20, 2007 السلام عليكم طلب لى و رجاء دعاء في جوف الكعبه بظاهر الغيب لاخيك العبد الفقير الى الله عمر العينبوسي (ابو اسامه ) و تقبل الله منك الطاعات رابط هذا التعليق شارك More sharing options...
أبو عادل قام بنشر يوليو 20, 2007 مشاركة قام بنشر يوليو 20, 2007 السلام عليكم ورحمة الله وبركاته أخي الكريم هادي سالم أسأل الله تعالى أن ييسر لك أمرك ويغفر لك ويمتعك النظر إلى الكعبة المشرفة ويتقبل طاعتك كما وأسالك الدعاء من جوف الكعبة إلى أخيك العبدالفقير لله أخوك محمد فواز ( أبو عادل ) رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر يوليو 20, 2007 مشاركة قام بنشر يوليو 20, 2007 اذا ترغب زيارة المملكة نحن بالخدمة رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر يوليو 20, 2007 الكاتب مشاركة قام بنشر يوليو 20, 2007 السلام عليكم طلب لى و رجاء دعاء في جوف الكعبه بظاهر الغيب لاخيك العبد الفقير الى الله عمر العينبوسي (ابو اسامه ) و تقبل الله منك الطاعات بسم الله الرحمن الرحيم يوصل ان شاءالله لكن جوف الكعبه صعب شويه السلام عليكم ورحمة الله وبركاتهأخي الكريم هادي سالم أسأل الله تعالى أن ييسر لك أمرك ويغفر لك ويمتعك النظر إلى الكعبة المشرفة ويتقبل طاعتك كما وأسالك الدعاء من جوف الكعبة إلى أخيك العبدالفقير لله أخوك محمد فواز ( أبو عادل ) يوصل ان شاءالله اذا ترغب زيارة المملكة نحن بالخدمة شكرا اخى الكريم الحمدلله التاشيره و التذاكر و الكاش كله تمام و لا ينقصنى سوى رؤياك السلام عليكم رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يوليو 21, 2007 مشاركة قام بنشر يوليو 21, 2007 السلام عليكم دعاء في جوف الكعبه بظاهر الغيب لاخيك العبد الفقير الى الله عمر العينبوسي (ابو اسامه ) و تقبل الله منك الطاعات مجاز مرسل علاقته المجاوره قال الشاعر :- فشككت بالرمح الاصم ثيابهُ - ليس الكريم على القنا بمحرمِ فذكر الثياب و قصد البدن رابط هذا التعليق شارك More sharing options...
سمير هنداوي قام بنشر يوليو 21, 2007 مشاركة قام بنشر يوليو 21, 2007 اخي الاستاذ / هادي سالم تقبل الله منكم العمرة و القربات لا تنسانا في دعاءك أخوك سمير هنداوي رابط هذا التعليق شارك More sharing options...
سمر قام بنشر يوليو 22, 2007 مشاركة قام بنشر يوليو 22, 2007 الله يجزاكم خير الجزاء رابط هذا التعليق شارك More sharing options...
bufahad قام بنشر يوليو 23, 2007 مشاركة قام بنشر يوليو 23, 2007 الصراحه فادني كثيرا وخاصة اني مقبل على دراسة هذه المادة في الجامعه رابط هذا التعليق شارك More sharing options...
اناابوحمزه قام بنشر أغسطس 5, 2007 مشاركة قام بنشر أغسطس 5, 2007 االاخ الاستاذ هادي سالم انا موافق في طريقة العرض حيث ان المبتدئين يحتاجون مثل هذا الشرح اما المتقدمين في المعرفه فيمكن ان يطرحو اسئلة تمثل احتياجهم وبالتالي يصعب على غيرهم الاستفادة . فسيرو على بركة الله والله يكون في عونكم مادمتم في عون اخوانكم . اخوكم ابو حمزه رابط هذا التعليق شارك More sharing options...
ايوب صابر قام بنشر أغسطس 5, 2007 مشاركة قام بنشر أغسطس 5, 2007 الاستاذ هادي اذا كنت في السعودية وبالتحديد في الرياض فلي رجاء عندك تراسلني لاتشرف بخدمتك الايميل arefko2@hotmail.com رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر أغسطس 7, 2007 الكاتب مشاركة قام بنشر أغسطس 7, 2007 (معدل) أخواني الأعضاء ممكن تدلوني على الطريق الصحيح لفهم واستيعاب هذا البرنامج ------ لأني أحتاج أن أبدأ من الصفر لاني غير فاهم شئ في هذا البرنامج وحتاج اني اتعلمه لانه مادة مقررة علي في الجامعة فأرجو من ذوي الخبرة أن ينصحوني هل ادخل معهد مثلا او اشتري كتاب تعليم أفضل أو اذا مواقع انترنت تشرح من الصفر بسم الله الرحمن الرحيم جرب هذا الرابط http://www.officena.net/ib/index.php?showt...;رو الاستاذ هادي اذا كنت في السعودية وبالتحديد في الرياض فلي رجاء عندك تراسلني لاتشرف بخدمتك الايميل arefko2@hotmail.com أخى أيوب شاكر جدا على عرضك الطيب و لكنى الان عدت الى ارض الوطن شكرا مره اخرى الاخوه الكرام : للموضوع بقيه ان شاء الله لكن أمهلونى بعض الوقت السلام عليكم تم تعديل أغسطس 7, 2007 بواسطه هادى سالم رابط هذا التعليق شارك More sharing options...
ايوب صابر قام بنشر أغسطس 7, 2007 مشاركة قام بنشر أغسطس 7, 2007 الحمدلله على السلامة استاذ هادي وتقبل الله منا ومنكم صالح الاعمال وعمرة مقبوله ان شاء الله رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
asmo200666 قام بنشر أغسطس 7, 2007 مشاركة قام بنشر أغسطس 7, 2007 استاذنا / هادى سالم جزاك الله عنا خيرا وعفى عنك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.