نجوم المشاركات

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

الــدرس الثاني : الجملة الشرطية ( IF ) تعتبر الجملة IF من أشهر الجمل الشرطية و أكثرها استعمالا في جميع لغات البرمجة ولها عدة صيغ كلها تبدأ بــIf و تنتهى بكلمة End If ما عدى صيغة واحدة. وتستخدم الجملة IF لتنفيذ عمليات معينة حسب شرط محدد, يعني إذا تحقق الشرط ينفذ و إلا فلا. طرق استعمال الجملة ((if: 1- الصيغة ( If –Then ) : - وصيغتها العامة : IF condition THEN statements - ومعنى هذه الصيغة : انه اذا تحقق الشرط (condition ) فسيتم تنفيذ الامر ( statements ) مثال : " مسن" IF age >=65 THEN category = 2- الصيغة ( If – Then – End If ) : صيغتها العامة : IF condition THEN statements1 Statements2 END IF تقوم هذه الصيغة بتنفيذ مجموعة من الاوامر اذا تحقق الشرط (Condition) بدلا من تنفيذ امر واحد. مثال : If age >= 25 Then category ="شباب" travail ="السن مقبول" End if 3- الصيغة ( If – Then – Else ) : صيغتها العامة : If condition Then statements1(التعليمات المنفذة في حال تحقق الشرط ) Else statements2(التعليمات المنفذة في حال عدم تحقق الشرط) End If - هذه الصيغة تنفذ مجموعة الأوامر (statements1 ) عندما يتحقق الشرط (condition ) و عندما لا يتحقق الشرط فإنها تنفذ مجموعة الأوامر (Statements2). مثال : If grade >= 50 Then Text1 ="ناجح" Else Text1 ="راسب" End If 4- الصيغة ( If – Then –ElseIf ) : - صيغتها العامة : If condition1 Then statements1( التعليمات المنفذة في حال تحقق الشرط الأول) ELSEIF condition2 THEN statements2(التعليمات المنفذة في حال عدم تحقق الشرط الأول و تحقق الشرط الثاني) ELSE statements2(التعليمات المنفذة في حال عدم تحقق جميع الشروط السابقة) End If مثال : If grade >= 90 Then Text1 ="ممتاز" ElseIf grade >= 80 Then Text1 ="جيد جدا" ElseIf grade >= 70 Then Text1 ="جيد" ElseIf grade >= 60 Then Text1 ="مقبول" Else Text1 ="راسب" End If ملاحظات: - في الصيغة الأخيرة ( If – Then –ElseIf ) اذا تحقق احد الشروط فان البرنامج ينفذ العملية ثم يذهب الى نهاية الجملة و لا يتحقق من الشروط الباقية. - في حالة أردنا إستعمال شرطين معا أو أكثر نستعمل العبارة And. - في حالة أردنا تحقق أحد شرطين ليتم تنفيذ العملية نستعمل Or

أخى الكريم / أبو حنين طبعا بعد المعادلتين الرائعتين لأستاذى الكبير / بن عليه حاجى والأستاذ الحبيب / الشهابي حبيت أشارك فلم أجد أروع من تلك المعادلتين ،، فضفت قائمة منسدله مترابطه بين ( مكان التدريب ورقم الموظف ) تدريب3.rar

الموضوع : كود ترحيل البيانات بشكل مميز سأتناول أولا : شرح الكود حتى يسهل على الجميع أستخدامة داعيا الله ان يوفقنى الى ما يحبة ويرضة أ - سأقوم بدرب مثال يفضل ان تنفذة معى لكى تصل لكيفية عمل الكود وتطويعه لما تريد عملة أبدأ بفنح ملف أكسيل جديد : قم بتسمية ورقة العمل الاولى بأسم ادخال بيانات والورقة الثانية فواتير ثم فى صفحة العمل الاولى والتى تسمى بـ ادخال البيانات قوم بتصميم جدول كما هو موضح فى الصورة ثم تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال : ----------------------------------------------------- اصدار 2003 من مربع أدوات التحكم > ادارج زر ------------------------------------------------------ اصدار 2007 من المطور > ادراج زر ------------------------------------------------------- وفى الصفحة الثانية التى تم تسميتها باسم فواتير نصممها على هذا الشكل بعد تصميم تسمية الصفحتين والزر فى الصفحة الاولى يمكنك اضافة الكود من خلال اختيار وضع التصميم والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق ) الجزء الاولى من الكود الجزء الثانى من الكود الجزء الثالث من الكود الجزء الرابع من الكود الجزء الخامس من الكود الجزء السادس والأخير ملاحظة : الكود يرحل بترتيب الادخال . لتحميل الشرح مصور + ملف المثال + الكود من هنا فى النهاية أسالكم الدعاء اذا افادكم ذلك

لدي حقل محسوب واريد عمل ربط علاقة مع حقل اخر حيث ان الحقل المحسوب نشاء من رقم حساب بنكي يتكون من 15 خانة وتم عمل له اختصار الى 6 خانات وعند الكشف يظهر لنا الايبان ويتكون من 22 خانة وتم عمل اختصار الى 6 خانة والان اريد ربط الحقلين راس مثال 346608010524632 هذا الرقم موجود لدي بينما الرقم الاخر وهو بالكشف البنكي 346000006080524632 والذي عملته اني اختصرت الرقم الاول 3460524632 واختصرت الرقم الاخر الموجود بالكشف البنكي 3460524632 هنا تم الانتهاء من الاختصار والمطلوب هو كيف اربط راس باطراف

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

السلام عليكم و رحمة الله كتطبيق على استخدام دوال التجميع دالة dlookup - dcount من خلال الكود لعمل الإحصاءات دالة dlookup فقط شرح دالة dcount فقط شرح بالتوفيق

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

الف مبروك عليك الترقية ربي يخليك يارب

وفقك الله أخانا العزيز شافان

سوباس دةكةم براكةم شكرا اخي Thank you شكرا كثيرا اخي ابو رحيل

مبروك الأخ شيفان واصل التألق

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

كل الشكر الك اخ علي اليك مني هذا وشكرا

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

الف مبروك استاذ شيفان .... تستاهل ودائما للامام باذن الله

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

الف مبروك اخ Shivan Rekany Félécittations en Francais congratulations in English تهانينا

شكرا لك اخي الحبيب محمد نجار اليك مني هذا

ممكن تخبرنا ما هو السبب لكي تحصل عليه لعل وعسى ان نكدر نفيدك بطريقة اخرى

::: مبروك عليك اخي العزيز شيفان الترقية ::: الى مزيد من التألق والنجاح ......................

استخدم في حالة ئون ريسايز وبالعربي عند تغيير في اسفل عند اغلاق والا راح ارفق لك نسخة تجريبية اذا تريد

جرب هذا الكود عند حدث تحميل التقرير Me.Text67 = Me.Field.Width مثلا عندك في التقرير مربع نصي باسم تيكست 67 و اكتب بدل فايلد اسم الحقل المطلوب

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

شكرا لك يا استاذ القدير ابو حسين شكرا كثيرا شكرا لك اخي الحبيب سامي الضالعي شكرا لك شكرا كثيرا

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

اتفضل اخي Aziz (2).rar وعندما تعملي عملية نقر مزدوج راح يعود ان شاء الله

شكرا لك اخي واستاذي القدير شكرا كثيرا تحياتي لك

اتفضل اخي الكريم Aziz (2).rar

حاول فيها بالكود ، لأن زبائني ورائي وانا متأخر في العمل جعفر

حياك الله أخي سامي واذا طريقتك تؤدي بالغرض ، فنور على نور جعفر

اتفضل اخي الكريم من الافضل ان لا يستخدم هذه علامة ( - ) لتسمية مربعات النص او الحقول وبدل ذلك استخدم هذا ( _ ) و ايظا بيكون التسمية بيبدأ من حرف وليس الرقم 2017-2018.rar

أستاذ تشيفان هنا تجد ما تبحث عنه.

مثال على استعمال And: If UserName="أبو خليل" And Password=2017 Then MsgBox"مرحبا أستاذ أبو خليل" End If في هذا المثال إذا كان اسم المستخدم هو أبو خليل و كلمة المرور هي 2017 سوف يقوم البرنامج بعرض رسالة ترحيبية MsgBox"مرحبا أستاذ أبو خليل" و إذا إختل أحد الشرطين فلن يتم تنفيذ التعليمة. يعني لتنفيذ التعليمة يجب تحقق الشرطين في نفس الوقت. مثال على استعمال Or: If Died_Father=true Or Died_Mother=False Then MsgBox "يتيم" End If في هذا المثال يكفي تحقق أحد الشرطين ليتم تنفيذ التعليمة (رسالة تخبرنا بأن هذا الشخص يتيم) و إذا تحقق الشرطين معا أيضا يتم تنفيذ التعليمة إذا هناك شخص أبوه متوفي فهو يتيم و إذا كانت أمه متوفية فهو يتيم و إذا كان كلا والديه متوفيين فهو أيضا يتيم. ((((((اللهم أرحم جميع موتى المسلمين يا أرحم الراحمين يا رب العالمين))))))

السلام عليكم ورحمة الله وبركاته هل تريد ان تشتخرج البيانات منه مثل المواليد و نوع الجنس ؟ او تريد تتأكد هل هذا الرقم صحيح ام لا ؟

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، أضف ما تريد من الشيتات المهم أن تكون بالتنسيق نفسه مثل شيتي cairo و Alex. وأن تضيف أسماء هذه الشيتات في القائمة المنسدلة في الخلية N1 (بالتطابق)... بن علية

ولو أردنا الكتابة في سطرين نكرر كتابة الكود التالي: Print #1, "اسمي هو: " Print #1, "الزباري" لتكون النتيجة كالتالي: أما إذا أردنا الكتابة في نفس السطر (العمود التالي) فإننا نضيف فاصلة كالتالي: Print #1, "اسمي هو: ", Print #1, "الزباري" لتكون النتيجة كالتالي:

Print #1, "مرحبا.. هنا منتدى أوفيسنا" ومن الممكن استبدال كلمة "print" ب "write" وكلهم يؤدون نفس الغرض كالتالي: write #1, "مرحبا.. هنا منتدى أوفيسنا"

الهدف ليس الزيادة و لكن التواجد بدرجة كافية للإلمام بقواعد المشاركة و انه لا يجب التواصل على الخاص في الامور الفنية و المشاكل لتعم الفائدة ، و ليس العدد فقط ، عند حدوث أي ترقية مثلا الي عضو محترف تضاف الخاصية آلياً هذا في الوقت الحالي و ربما يتغير مستقبلا

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، استعملت الدوال OFFSET ، INDIRECT ، MATCH بدلا من الدالة VLOOKUP في معادلة صفيف... أرجو أن تفي الغرض المطلوب... بن علية تدريب.rar

اتفضل لكن بدل ان اعمل زر عمل لدبل كليك على اي دفع من اربع الادفاع لسجل محدد راح يحذفه و يحذف تاريخه مع تقدير اليك ملفك بعد تعديل Database1 (4).rar

اخى الزباري اشكرك بحراره على ما تقدم لنا وللمنتدى الكريم...اظن ان كل اوامر الدوس فى كل الاصدارات واحده ... ربما تكون المشكله ليست فى الدوس

عندنا استعلامين الاول باسم search والثاني باسم search1 الاستعلام الاول باسم search بياخذ كل سجلات لجدول main اللي في حقل kk علامة صح اي true وخلينا هذا النموذج مصدر التقرير لكي التقرير بيظهر اي سجل بها علامة صح وهذا هو تقريرنا وهذا استعلامنا باسم search وشوف نموذجنا الفرعي باسم searcu_sub وشوف مصدره هو استعلام اخر باسم search1 وهذا هو استعلامنا search1 اللي هو مصدر نموذج الفرعي searcu_sub بيأخذ كل سجلات من جدول ماين شوف اتمنى ان يوصل لك المفهوم مع تقدير

اليك نموذج للاخت الفاضلة ( زهرة ) - ( ام عهود ) خذت من منتدى فريق العربي للبرمجة حين يفتح النموذج راح يغير ريسوليشن الشاشة وحين تغلق الفور راح يرجع الى المسبق واذا احتجت بشيء اضافي وافينا لعل نكدر نساعدك اكثر مع تقدير za-ChangeResolution-UP.rar

تفضل

السلام عليكم. تابعوا هذا الموضوع أظن به حل لمشكلتكم

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

السلام عليكم ورحمة الله وبركاته إخواني الأحباب الأعزاء والمقربين من قلبي أقدم لكم اليوم موضوع مفيد إن شاء الله ، ألا وهو مقارنة عمودين وسيكون باستخدام التنسيق الشرطي ، لتلوين القيم المميزة أو القيم الفريدة في العمودين ، وكذلك لتلوين القيم المتشابهة في كلا العمودين أترككم مع الفيديو (ولا تنسونا من صالح دعائكم ..فبفضل الله ثم بفضل دعائكم نحيا في هذه الدنيا) كما لا تنسونا من اللايكات .. رابط الفيديو .. مرفق لكم ملف الشرح للتدريب عليه تقبلوا تحياتي ..أخوكم أبو البراء Compare Lists.rar

إخوتي الأعزاء تجولوا وجربوا .... ولا تنزعجوا من التلميحات و الرسائل فهي ضوابط وصمام أمان من سوء الاستخدام يوم العطلة الاسبوعية الجمعة فقط .... والكل متاح آراؤكم تثريني .... والله من وراء القصد .... ...............

السلام عليكم ورحمة الله أخي الكريم كما هو معلوم في إكسيل أن المعادلات (وخاصة غير البسيطة منها) الكثيرة والتنسيقات تزيد في حجم الملف وهو ما يسبب البطء في الملف المعني، لذا يجب التقليل قدر المستطاع من المعادلات واستبدالها بأكواد ندرج نتائج المعادلات كقيم في ورقات الملف... وأقدم لك حلا أوليا للملف الخاص بك (إلى أن يتقدم أحد الإخوة الكرام العارفين بالأكواد ويستبدل المعادلات) وقد قمت بحذف أعمدة "الاستهلاك الشهري" في ورقة Statistics واستبدلتها بعمود واحد مع استعمال القوائم المنسدلة يتم فيه (العمود) عرض استهلاك أي شهر من شهور السنة (وبهذا نكون قد وفرنا على الملف 11 عمود من المعادلات)... لأني لا أرى أي حاجة لكل هذه الأعمدة (حسب رأيي) ولست أدري إن كان يعجبك ذلك، المهم أن الملف اكتسب سرعة أكثر في تحديث الحسابات... كل العمل والتغييرات تجدها في الملف المرفق وقد تركت الإضافات التي قدمها الأخ أحمد حمور "أبو عبدالله" (يُشكر على ذلك وجعل الله ذلك في ميزان حسناته) ... أخوك بن علية GoLdEn_FaBrIc_1-1-2011.rar