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

السلام عليكم ورحمة الله مرة أخرى أحبائي الكرام اليوم سوف أقدم لكم ملف جد بسيط ولكن يساعد في احصاء التلاميذ و هذا البرنامج بعنوان بطاقة التعريف المدرسية الملف جميل لكن ينقصه بعض التعديلات الخفيفة مثل اضافة صورة تلقائية و بعض الفورم لمن اعجبه الملف فل يعمل عليه أنا أعطيتك ملف جاهز ماعليك الا أن تكمل ماعملت انا عليه و في الأخير أرجوا منكم الدعاء لي بظهر غيب فقط. مع المبرمج : مناد سفيان الجزائر. معا لنبني مستقبل أفضل فكن معنا www.developpez.com معكم كل الاستفسارات في منتدانا العظيم فشاركنا معلوماتك ولا تبخل علينا. 2018............. www.developpez.com البطاقة المدرسية.rar

السلام عليكم ورحمة الله وبركاته مرحبا بي خبراء البرمجة التقنية في الهندسة والبناء اليوم انتقلت من قسم اكسل و عدت ادراجي الى البرمجة لأن الحياة تكمل هنا في صناعة المواقع المتطورة قبل و كل شيئ سوف نبدأ من أول حرف الى آخره ملاحظة : الدروس القادمة انشاء الله متسلسلة وبدون التسرع و شكرا. أخوكم في الله مناد سفيان - الجزائر

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

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

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

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

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

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

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، وهي شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel فتابعونا. شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel؟ نبدأ أولا بمعرفة القواعد النظرية الرياضية التي اعتمد عليها الشرخ. الحدث application.ontime يستخدم في تنفيذ إجراء معين في وقت معين. مثال: تنفيذ الإجراء masclock بعد ثانية من الآن Application.OnTime Now + TimeSerial(0, 0, 1), "masclock" نأتي للساعة العقارب تعتمد على أن عثرب الساعات يمشي 30 درجة في الدائرة 360 درجة كل ساعة من خلال المعادلة التالية ثم نحسب زوايا الساعات والدقائق والثواني = 6 * عدد الثواني وهكذا ثم نوزع الضرب على الجمع ونختصر فتكون ونتعرف أيضا على: استدعاء ماكرو عند فتح مصنف إكسل ماكرو يستدعي نفسه ويكرر نفسه طريقة ونظرية برمجة عقارب الساعة رياضيا حساب إحداثيات نقطة بدلالة زاوية وطول الضلع على محور السينات X axis ومحور الصادات Y axis إضافة خلفية الرسم البياني Char إظهار محتوى خلية في شكل تلقائي auto shape كتابة معادلة في الشكل التلقائي لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 و 2003 الملف المستعمل في الشرح في المرفقات ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك mas digital and analog clock.rar

If MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL " delete * from ABC" MsgBox "لقد تم حذف جميع الاصناف بنجاح!!!!", vbOKOnly, "تنبيه" Else DoCmd.CancelEvent End If وعليكم السلام ورحمه الله وبركاته ان شاءالله يكون طلبك

الاخ سلمان كنت تعطينا الملف بالقطارة ..كنت اتمنى الملف كامل من البداية جرب الاستعلام التالي كمصدر للتقرير SELECT TB_conform.Date1, TB_conform.tem, TB_conform.ser FROM TB_conform WHERE ((([Date1] & " " & [tem]) Between CDate([Forms]![FM_report]![text1] & " " & [Forms]![FM_report]![Time1]) And CDate([Forms]![FM_report]![text2] & " " & [Forms]![FM_report]![Time2]))); بالتوفيق

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

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

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

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

س / ماهي وظيفتك ؟ ج/ أستاذ جامعي في البرمجة + الكترو تقني س / وبماذا خدمك اكسل ؟ ج / خدمني عندما كنت طالب جامعي سنة 1995 س / وكم نسبة اعتمادك علية في العمل ؟ 50/فقط لأننا نستعمل الرقمنة حاليا و هو موقع صممناه خصيصا لطلبة مساء الخير للجميع هنا هذا السؤال منذ مدة و انا اريد طرحه للنتناقش فيه و إبداء وجهات النظر المختلفة اتمنى من الجميع المشاركه‏

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

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

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

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

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

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

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

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

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

السلام عليكم و رحمة الله تعالى وبركاته أساتذة و خبراء منتدانا الغالي حياكم الله أردت أن أنجز عمل بمعيتكم الكريمة . و هو إنجاز سلسلة دروس في vba الأكسس لتقوم إدارة المنتدى من بعد ذلك بتثبيت هذا الموضوع ليطلع عليه كل من يريد التعلم و يبقى صدقة جارية لكل من ساهم فيه و لو بحرف واحد. العمل سوف يقسم إلى مجموعة دروس مثلا : المتغيرات ,الجمل الإختيارية , الجمل التكرارية , الكائنات ......الخ. و سوف نحاول شرح جميع دوال و تعليمات VBA أكسس الموجودة مع إعطاء أمثلة في نهاية كل درس. على أن يتم تجميعه في الأخير مرتبا حسب تسلسل الدروس و لا يتم الإنتقال من درس لآخر حتى نستوفي كل ما نستطيع حول هذا الدرس. العمل المطلوب: كلما نبدأ في درس جديد. يقوم الأساتذة الكرام بتقديم الدوال و التعليمات التي تندرج تحت عنوان هذا الدرس و تقديم شرحها مع وضع مثال بسيط لإستعمال الدالة أو التعليمة على أن لا يتم تكرار الدوال و التعليمات الموجودة مسبقا في الدرس من قبل أحد الأعضاء. و قبل البدء أنتظر إقتراحاتكم فيما يخص طريقة العمل أو ترتيب دروس و عناوينها. و إن شاء الله غدا أو بعد غد سوف نبدأ بالعمل على بركة الله.

السلام عليكم ورحمة الله وبركاته هذا الملف جميل جدا و يناسب كل من يريد استخراج شهادة الأجر بدون الذهاب المقتصد وهي تسهل أيضا عليك عملية ملئ قواعد البيانات أي استفسار فأنا تحت الخدمة مع فائق الاحترام و التقدير . و أعتذر عن التأخير معكم أخوكم في الله المبرمج : مناد سفيان الجزائر. معا لنبني مستقبل أفضل فكن معنا معكم كل الاستفسارات في منتدانا العظيم فشاركنا معلوماتك ولا تبخل علينا. 2018............. Fiche de Paie + ATS.rar

السلام عليكم بعد فتح النموذج AddItems ومن خلال مفتاح تبويب الفرعي 2 والذى هو عبارة عن النموذج FItemD أريد المساعدة بعمل كود تحديث لمربعات الكمبوبوكس كلما تجدد الأختيار عند إضافة بيانات جديدة مع إظهار إجمالي عدد المسميات التي تندرج تحت أخر عنوان أو موضوع تم أختيار في أخر كمبوبوكس بالخانة المجاورة لبند عدد مواضيع هذا العنوان 01 Main 25-1-2018 تجربة الإضافة لمسار الفوائد.zip

شكرا اخي سليم إضافة جميلة وذكية

اشكرك عزيزى سليم حاصبيا دائم المساعده

الللللله ينور اي الشغل الجامد ده

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

السلام عليكم يمكنك استخدام هذه الدالة: DMax("ratep","tbl") بحيث ratep اسم الحقل و tbl اسم الجدول

لأن الشرط ينتهي عند الساعة الثانية صباحا.. لمعالجة المشكلة.. في نهاية الحد الثاني من التعبير أضف +1 فقط بهذه الطريقة SELECT TB_conform.Date1, TB_conform.tem, TB_conform.ser FROM TB_conform WHERE ((([Date1] & " " & [tem]) Between CDate([Forms]![FM_report]![text1] & " " & [Forms]![FM_report]![Time1]) And CDate([Forms]![FM_report]![text2] & " " & [Forms]![FM_report]![Time2])+1));

السلام عليكم جرب هذا المرفق الاصلي.rar

السلام عليكم تغيير بسيط في الكود الذي تستعمله: Dim rs As Object Set rs = Me.مساعد_تصفية_فواتير_الشراء.Form.RecordsetClone rs.FindFirst "[رقم فاتورة الشراء] = " & Str(Nz(Me![aa1], 0)) If Not rs.EOF Then Me.مساعد_تصفية_فواتير_الشراء.Form.Bookmark = rs.Bookmark تصفية.rar

العفو حبيبي تستاهل كل خير بالنسبة لحسابي على الفايسبوك هو salah hommadi و يمكن أن نلتقي يوما ما إن شاء الله أما بالنسبة للمساعدة و حل المشاكل فافضل أن يكون هنا في المنتدى ليستفيد منه الجميع

اذا فهمت قصدك اكتب هذه الخاصية في اية خلية =RANDBETWEEN(100000,999999) و قم بالسحب ستظهر ارقام عشوائية مكونة من 6 ارقام

هذا حل آخر بالمعادلات أرجو أن يفي الغرض المطلوب... توزيع بالمعادلات.xlsx

السلام عليكم قم بتغيير المعادلة في الخلية K6 بالمعادلة التالية ثم اسحبها للأسفل : =IF($H6="";"";COUNTIF($C$6:$C$500;$H6)) بن علية حاجي

القي نظرتا الى هذا استعلام SELECT TB_conform.Date1, TB_conform.tem, TB_conform.ser, Format([Date1],"yyyy/mm/dd") & " " & FormatDateTime([tem],4) AS Expr1 FROM TB_conform WHERE (((Format([Date1],"yyyy/mm/dd") & " " & FormatDateTime([tem],4)) Between [Forms]![FM_report]![Text55] And [Forms]![FM_report]![Text57])); هل هو المطلوب ؟ اذا لا اخبرني ماذا تريد ان يظهر في الاستعلام عند ادخال اي وقت واي تاريخ الى اي وقت والى اي تاريخ دمتم بخير * تستخدم صيغة الوقت الحالي NOW عند اضافة السجل سيكون من الاسهل اليك Database2.3.rar

هل من مساعد في التعديل على هذا الملف ؟ nightshift1.rar

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

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

الدرس الحادي عشر: جمل SQL هذا الدرس مخصص لشرح جمل SQL: Create: نستخدم هذه الجملة لإنشاء جدول جديد و طريقة كتابة الجملة كالتلي: Create Table table_name (field1 type_field, field2 type_field); table_name : اسم الجدول المراد إنشاؤه field1, field2 ....: أسماء الحقول type_field : نوع الحقل مثال : الكود التالي يقوم بإنشاء جدول اسمه salah و به حقلين id و nname Dim req As String req = "create table salah (id integer, nname string(12));" DoCmd.RunSQL req نستخدم الكود Docmd.RunSQL من أجل تنفيذ جمل SQL Drop: نستخدم هذه الجملة لحذف جدول معين و طريقة كتابة الجملة كالتلي: Drop Table table_name; table_name : اسم الجدول مثال : الكود التالي يقوم بحذف جدول اسمه salah Dim req As String req = "Drop Table salah;" DoCmd.RunSQL req Alter: نستخدم هذه الجملة للتعديل على تصميم جدول معين بإضافة حقول جديدة أو حذف حقول موجودة و طريقة كتابة الجملة كالتلي: Alter Table table_name Add Column new_field type_field; table_name : اسم الجدول new_field: اسم الحقل الجديد type_field: نوع الحقل الجديد مثال1 : الكود التالي يقوم بإضافة حقل جديد اسمه adress في جدول salah Dim req As String req = "Alter Table salah Add Column adress string;" DoCmd.RunSQL req مثال2 : الكود التالي يقوم بحذف حقل اسمه adress في جدول salah Dim req As String req = "Alter Table salah Column Drop adress;" DoCmd.RunSQL req Select: نستخدم هذه الجملة لاستخراج مجموعة سجلات من جدول معين (استعلام) و طريقة كتابة الجملة كالتلي: Select * table_name Where condition; table_name : اسم الجدول *: تعني اظهار جميع الحقول و يمكن كتابة بعض الحقول في مكانها condition: الشرط الذي يوضع لاستخراج السجلات مثال : الكود التالي يقوم بإستخراج السجل الذي رقمه (ID) يساوي 3 في جدول salah Dim req As String req = "select * from salah where id=3;" Me.RecordSource = req السطر الأخير معناه نجعل مصدر السجلات لنموذج الحالي هو الاستعلام req Delete: نستخدم هذه الجملة لحذف مجموعة سجلات من جدول معين و طريقة كتابة الجملة كالتلي: Delete table_name Where condition; table_name : اسم الجدول condition: الشرط الذي يوضع لاستخراج السجلات مثال : الكود التالي يقوم بحذف السجل الذي رقمه (ID) يساوي 3 في جدول salah Dim req As String req = "Delete From salah where id=3;" DoCmd.RunSQL req Insert: نستخدم هذه الجملة لإضافة سجل جديد إلى جدول معين و طريقة كتابة الجملة كالتلي: INSERT INTO table_name ("column1", "column2", ...) VALUES ("value1", "value2", ...) مثال : الكود التالي يقوم بإضافة سجل جديد لجدول salah Dim req As String req = "insert into salah1 (id, nname) values (11,'أوفيسنا');" DoCmd.RunSQL req Update: نستخدم هذه الجملة لتغيير قيمة سجل في حقل معين لجدول ما و طريقة كتابة الجملة كالتلي: Update table_name Set field='value' Where condition; مثال : الكود التالي يقوم بتعديل قيمة الحقل nname إلى 'محسن' في السجل الذي رقمه (id) 3 بالجدول salah Dim req As String req = "update salah set nname='محسن' where id=3;" DoCmd.RunSQL req

الدرس العاشر: دوال تجميع المجال هذا الدرس مخصص لشرح دوال تجميع المجال: DAvg: تستخدم هذه الدالة من أجل استخراج القيمة المتوسطة لمجموعة سجلات بحقل معين في جدول. DAvg(field, table, condition) field: اسم الحقل المراد حساب قيمته المتوسطة table: اسم الجدول الذي به الحقل condition: الشروط أو المعايير و هي اختيارية و ليست ضرورية DCount: تستخدم هذه الدالة لحساب عدد الجلات في جدول معين. DCount(field, table, condition) DFirst: تستخدم هذه الدالة لاستخراج السجل الأول في جدول معين. DFirst(field, table, condition) DLast: تستخدم هذه الدالة لاستخراج السجل الأخير في جدول معين. DLast(field, table, condition) DLookUp: تستخدم هذه الدالة لاستخراج قيمة حقل معين من جدول ما. DLookUp(field, table, condition) DMax: تستخدم هذه الدالة لاستخراج القيمة القصوى لحقل معين في جدول ما. DMax(field, table, condition) DMin: تستخدم هذه الدالة لاستخراج القيمة الدنيا لحقل معين في جدول ما. DMin(field, table, condition) DStDev: تستخدم هذه الدالة لاستخراج الانحراف المعياري لمجموعة سجلات بحقل معين في جدول ما. DStDev(field, table, condition) DSum: تستخدم هذه الدالة لحساب مجموع قيم مجموعة سجلات بحقل معين في جدول ما. DSum(field, table, condition)

الدرس الثامن: دوال الرسائل هذا الدرس مخصص لشرح دوال الرسائل: MsgBox: تستخدم هذه الدالة من أجل عرض رسالة في مربع حوار. MsgBox (سياق, ملف التعليمات, العنوان, أزرار , النص) النص: (مطلوب) هو نص الرسالة التي ستعرض في مربع الحوار أزرار: (اختياري) هو تعبير رقمي يحدد نوع الازرار التي يجب ان تعرض العنوان: و يمثل عنوان مربع الحوار ملف التعليمات:(اختياري) تعبير سلسله يعرف ملف التعليمات لتوفير تعليمات تتبع للسياق لمربع الحوار. اذا تم توفير ملف التعليمات ، يجب ايضا توفير سياق . سياق: (اختياري) تعبير رقمي يمثل رقم محتوي التعليمات المعينه الي موضوع "التعليمات" الملائمه حسب الكاتب التعليمات. اذا تم توفير سياق ، يجب ايضا توفير ملف التعليمات . وضعيات الوسيطة أزرار: 0 عرض زر موافق فقط. 1 عرض الأزرار موافق و إلغاء الأمر . 2 عرض الأزرار إحباط + حاول مره أخري + تجاهل . 3 عرض الأزرار نعم + لا + إلغاء الأمر . 4 عرض الأزرار نعم + لا . 5 عرض الأزرار إعاده المحاوله + إلغاء الأمر . 16 عرض أيقونة رساله هامه . 32 تعرض أيقونة التحذير و الإستعلام . 48 عرض رمز رساله تحذير . 64 عرض رمز رساله معلومات. 0 الزر الأول هو الإفتراضي. 256 الزر الثاني هو الإفتراضي. 512 الزر الثالث هو الإفتراضي. 768 الزر الرابع هو الإفتراضي. 4096 نظام مشروط؛ يتم تعليق كافه التطبيقات حتي يستجيب المستخدم ل# مربع الرساله. 16384 إضافه الزر تعليمات إلي مربع الرساله 65536 يحدد إطار مربع الرساله كإطار المقدمه 524288 تتم محاذاه النص لليمين 1048576 يحدد يجب أن يظهر النص اليمين إلي اليسار للقراءه علي الأنظمه العربيه مثال: MsgBox "السلام عليكم", 3, "مرحبا" InputBox: يعرض مطالبة في مربع حوار و تنتظر قيام المستخدم بإدخال نص أو النقر فوق زر، و ترجع سلسلة تحتوي علي محتويات مربع النص. InputBox(«افتراضي»; «العنوان»; «مطالبة»; «xpos»; «ypos»; «helpfile»; «context») مطالبة : (مطلوب) عرض الرسالة في مربع الحوار العنوان: (اختياري) و يمثل عنوان مربع الحوار افتراضي: (اختياري) . عرض النص الإفتراضي في مربع النص. إذا حذفت الإفتراضي، يتم عرض مربع النص فارغ. xpos: (اختياري). تعبير رقمي يحدد، بوحده التويب المسافة الأفقية بين الحافة اليمني لمربع الحوار من الحافة اليسري للشاشة. ypos: (اختياري) تعبير رقمي يحدد، بوحده التويب، المسافه العمودية بين الحافة العلوية لمربع الحوار من أعلي الشاشة. ملف التعليمات:(اختياري) تعبير سلسله يعرف ملف التعليمات لتوفير تعليمات تتبع للسياق لمربع الحوار. اذا تم توفير ملف التعليمات ، يجب ايضا توفير سياق . سياق: (اختياري) تعبير رقمي يمثل رقم محتوي التعليمات المعينه الي موضوع "التعليمات" الملائمه حسب الكاتب التعليمات. اذا تم توفير سياق ، يجب ايضا توفير ملف التعليمات . مثال: Dim str As String str = InputBox("ادخل اسمك", "الاسم")

بعض الأكواد البسيطة والمطلوبة بعض الأكواد البسيطة التى يسأل عنها الأخوة الأعضاء ووجدتها في موقعنا الحبيب أوفسينا فجمعتها بعد إذن كاتبيها وتكون هذه دعوة لباقى الأخوة وعمالقتهم لتزويدنا بأكواد جديدة أو مشابهة .. والله الموفق 1- فتح الملف على اليوزرفورم Userform. يمكن فتح الملف على فورم بدلا من صفحة الإكسل المعروفة بكود بسيط تجده في كثير من ملفات الأخوة بالموقع وخطوات ذلك كالتالي: أ‌- أضف للملف يوزرفورم وذلك في محرر الفيجوال بيسك من قائمة إدراج(Insert) نختار (UserForm). ب- في قسم المشروع (Project) انقر مزدوجا ThisWorkbook ب‌- في نافذة الكود اكتب الكود التالي Private Sub Workbook_Open() UserForm1.Show End Sub وهذا الكود ليس به إلا سطر واحد يأمر الإكسل بفتح الملف على اليوزر فورم وهذا السطر هو UserForm1.Show بعد انتهاء العمل نجد أن الملف يفتح على الفورم ونجد ان الفورم يمكن تحريكه في أي اتجاه كما يمكننا أن نغلقه من مفتاح الغلق في أقصى يمين الفورم من أعلى كما نلاحظ أن ملف الإكسل يظهر وراء الفورم. أنظر First.rar 2- فتح الملف على اليوزرفورم مع إخفاء صفحة الإكسل. رأينا في المثال السابق ولإخفاء ملف الإكسل ضف السطر التالي للكود السابق ليصبح الكود بالصورة أن الملف يفتح على الفورم لكن ملف الإكسل يظهر وراء الفورم Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub هذا السطر Application.Visible = False يجعل ملف الإكسل مخفيا انظر المرفق Second.rar 3- فتح الفورم على مقاس الشاشة. والأن.. ماذا نفعل لنفتح الفورم على مقاس الشاشة؟ تابع معي: الفكرة أن نجعل أبعاد الفورم مثل أبعاد الشاشة ولكن باختلاف المستخدمين للملف سيكون هناك أبعاد مختلفة من حاسوب وآخر ولذلك يمكن عمل الكود التالي: ()Private Sub UserForm_Activate With Application Me.Top = .Top Me.Left = .Left Me.Height = .Height Me.Width = .Width End With ونجد أن الكود يطلب أن يكون اتساع الفورم كما اتساع التطبيق وارتفاع الفورم كإرتفاع التطبيق والآن جرب الكود في نافذة كود الفورم. انظر التطبيق Third.rar ولكن قم بتحريك الفورم في كل الاتجاهات، هل يستجيب الفورم للحركة؟ 4- نثبت الفورم (الفريم) بحيث لايمكن تحريكه الى اي اتجاه. يمكن نثبت الفورم بحيث لايمكن تحريكه الى اي اتجاه وذلك بكتابة هذا الكود في نافذة كود الفورم. Private Sub UserForm_Layout() With Me .Left = Application.Left .Top = Application.Top End With End Sub انظر التطبيق Forth.rar 5- الغاء رمز الاغلاق(x). يمكن إلغاء عمل رمز الأغلاق في أفصى يمين أعلى الفورم بالكود التالي ولكن هذا أن يجعلك تستطيع إغلاق الفورم أو الإكسل ولذلك أقترح أن تضع على الفورم مفتاح تسمية "إغلاق" ويكون له كود فقم أولا بكتابة الكودين المرفقين ()Private Sub CommandButton1_Click Unload Me End Sub )Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer If CloseMode = vbFormControlMenu Then Cancel = True End If End Sub لاحظ أن هذا الكود سيمنع إغلاف الفورم من (X) ولكن يمكن إغلاق الفورم من زر إغلاق الذي أضفناه، وإذا أردنا إغلاق الفور وملف الإكسل معا نضع السطر التالي في كود المفتاح بعد "Unload Me": ActiveWorkbook.Close True انظر التطبيق Fifth.rar 6- عمل شاشة افتتاحية. يحتاج بعض مطورى البرامج لأن يبدأ عمل ملفه بظهور شاشة أفتتاحية فعلى سبيل المثال "نريد عمل صفحه تبدأ مع فتح ملف الاكسيل، ويكون بها ايقونات بمسميات الشيتات الموجوده بالملف، وعند الضغط على احد الايقونات يتم النقل الى الشيت المطلوب بعض النظر عن الشيت الذي أقفل البرنامج عليه" فهيا معا نبنى هذا التطبيق: أ‌- افتح ملف جديد ثم ضف إليه في الصفحة الأولى شكلين أكتب على الأول كلمة "الورقة الثانية" وعلى الشكل الثاني كلمة "الورقة الثانية" ثم أربط كل شكل مع ورقة العمل المناسبة لما كتب عليع وذلك ربطا تشعبيا" ب‌- كرر العمل في الورقة الثانية والثالثة مع تغيير ما يلزم. ت‌- أضف فورم للملف وضع عليه ثلاثة مفاتيح أكتب على الأول "الورقة الأولى" والثاني "الورقة الثانية" والثالث "الورقة الثالثة" ث‌- أكتب الكود التالي في مكان كود الفورم ()Private Sub CommandButton1_Click Unload Me Worksheets("Sheet1").Activate End Sub ()Private Sub CommandButton2_Click Unload Me Worksheets("Sheet2").Activate End Sub ()Private Sub CommandButton3_Click Unload Me Worksheets("Sheet3").Activate End Sub ج‌- اكتب الكود التالي في مكان كود "ThisWorkbook": ()Private Sub WorkBook_Open UserForm1.Show End Sub انظر التطبيق "شاشة أفتتاحية.rar" إخواني الأعزاء أسمحوا لي أن أتوقف هنا وإذا كنتم أستفدتم فسأكمل. والله الموفق ربنا يبارك فيك بحق الله اخي رؤوف1951 =============================================== بعض الأكواد البسيطة.rar =========================== سر على بركة الله واكمل

السلام عليكم أخي العمري اكتب الأسماء في الأسبوع الأول (وليس في الصفحة الأولى) راجع كلامي السابق في الاسبوع الأول ( يعني الورقة الثانية في برنامجك) اكتب أسماء الطلاب سيتم نسخ الاسماء إلي بقية الصفحات تم تغيير اسماء الصفحات اختصار للجهد جرب المرفق الصف الخامس الابتدائي222.rar

جزاك الله خيرا استاذ عبدالباري البنا عمل ممتاااااااااااااااااااااااااااااااااااااااااز عند اقتراح بالنسبة للأكواد لاحظ تكرار جملة عدة مرات في الكود اقتراحي اختصار هذه الاكواد بالطريقة التالي مثلا الكود التالي 'TX55 = ActiveCell.Offset(0, 1).Text 'TX56 = ActiveCell.Offset(0, 2).Text 'TX57 = ActiveCell.Offset(0, 3).Text 'TX58 = ActiveCell.Offset(0, 4).Text 'TX59 = ActiveCell.Offset(0, 5).Text 'TX60 = ActiveCell.Offset(0, 6).Text 'TX61 = ActiveCell.Offset(0, 7).Text 'TX62 = ActiveCell.Offset(0, 8).Text 'TX63 = ActiveCell.Offset(0, 9).Text 'TX64 = ActiveCell.Offset(0, 10).Text 'TX65 = ActiveCell.Offset(0, 11).Text 'TX66 = ActiveCell.Offset(0, 12).Text 'TX67 = ActiveCell.Offset(0, 13).Text 'TX68 = ActiveCell.Offset(0, 14).Text 'TX69 = ActiveCell.Offset(0, 15).Text 'TX70 = ActiveCell.Offset(0, 16).Text 'TX71 = ActiveCell.Offset(0, 17).Text 'TX72 = ActiveCell.Offset(0, 18).Text 'TX73 = ActiveCell.Offset(0, 19).Text 'TX74 = ActiveCell.Offset(0, 20).Text 'Tx75 = ActiveCell.Offset(0, 21).Text 'Tx76 = ActiveCell.Offset(0, 22).Text 'TX77 = ActiveCell.Offset(0, 23).Text يمكن اختصاره كالتالي Dim i, j As Integer For i = 55 To 77 j = i - 54 Me.Controls("TX" & i) = ActiveCell.Offset(0, j).Text Next i والكود 'TX55 = "" 'TX56 = "" 'TX57 = "" 'TX58 = "" 'TX59 = "" 'TX60 = "" 'TX61 = "" 'TX62 = "" 'TX63 = "" 'TX64 = "" 'TX65 = "" 'TX66 = "" 'TX67 = "" 'TX68 = "" 'TX69 = "" 'TX70 = "" 'TX71 = "" 'TX72 = "" 'TX73 = "" 'TX74 = "" 'Tx75 = "" 'Tx76 = "" 'TX77 = "" 'TX78 = "" يمكن اختصاره Dim i As Integer For i = 55 To 78 Me.Controls("TX" & i) = "" Next i هذا اقتراحي ولكم الرأي شكرا جزيلا ً