العمري1

شكرا اخي خالد على تعاونك معي 

الان  ابي اخرج البرنامج او اصنعه ان امكن على شكل فورم مثل هذه الصورة المرفقه

up

ارجو المساعدة ياخوان

up

تساؤلك عن المعلم انه ليس له كود في برنامج المسابقه

=========

اذا كان نعم .  فانني اريد في البرنامج الجديد ان اولد للمعلمين اكواد باركود تكون معرفه لهم 

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

الله بجزاك خير اخي ابو عيد على تفاعلك معي 

في ٢‏/٢‏/٢٠١٨ at 22:18, أبوعيد said:

لاحظ أنك كتبت هذه العبارة

=====

امسح على بطاقته وبعد ذلك اضع كود المعلم

=======

تمسح بطاقة الطالب بالجهاز وتضع كود المعلم عن طريق الكيبورد . هل هذا صحيح ؟

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

يعني اعمل هذه التجربة

افتح ملف اكسل , ثم اختر أي خلية وامسح باركود لأي بطاقة  . ماذا سينتج ؟ هذه خطوة مهمة جدا

الان انا في المدرسة وجربت جهاز الباركود على برنامج اكسل وقرأ لي رقم البطاقة 

ماهي الخطوة الثانية بعد ذلك

شكرا اخي سوف اعمل الخطوات واخبرك بالنتائج

يا اخوان في احد عنده حل

حاليا بطاقة المعلم ليس عليها اكواد اما بخصوص ان جهازي يتعرف على الباركود لا اعلم  لاني لم اجرب وجهاز ماسح الباركود حاليا بالمدرسة علما ان نسخة الاكسل عندي 2016 هل من الممكن انها متوفرة فيه تلقائيا هذي الخدمه.. اما المجرب وهو في البرنامج الاساسي الذي ولد لي اكواد الطلاب وهو خاص بنقاط الطلاب واسمه برنامج مسابقة الباركود

======

اما بخصوص اني امسح بطاقة الطالب بالجهاز ووضع كود المعلم بالكيبورد فلا. بل اريد مسح كل من المعلم والطالب بالجهاز

========

هل من الممكن ان اعوض بدلا من الجهاز بالجوال لقراءة الكود عن طريق تطبيق ما 

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

مثال : الطالب عيد اخذ 3 بطائق من المعلم احمد وفي نفس اليوم اخذ من المعلم عوض 2 بطائق اريد هذه المعلومات تذكر امام اسم الطالب لذلك اليوم 

علما اني ساعطي كل معلم 8 بطائق خلال اسبوع وهو يوزعها على الطلاب المتميزين عنده خلال الاسبوع ان شاء الله وضحت لك اخي العزيز 

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

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

للرفع

ياخوان انتظر ردكم

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

كيف حالكم اعضاء منتدى اوفيسنا ان شاء الله تكونوا با حسن حال 

اذا تفضلتم بمساعدتي اريد برنامج يحسب النقاط عن طريق الباركود لمسابقة في المدرسة وتكون طريقة احتساب النقاط ب5 نقاط لكل قراءة 

وشكرا لكم مقدما دمتم بود

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

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

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

  WinRAR archive جديد (2).rar

WinRAR archive جديد (2).rar

 Up

وش فيني مضيع في الشكر المعذرة منك اخي ابو عيد واخي عبدالعزيز 

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

اب

اب

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

وشكرا لك مرة اخرى

يعطيك العافية اخوي عبد العزيز انحلت المشكلة وبالشكل اللي ابيه 

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

 وهو هذا 

()Sub Final
lr = Sheets(1).Range("B" & Rows.Count).End(xlUp).Row
For y = 7 To lr
For t = 2 To 15

End Sub

لكن عندما اضيفه 

يطلع خطأ في الصياغة ويجي لون اصفر على الكلمة التي في بداية الامر     ()Sub Final 

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

اب