أ / محمد صالح

أحسن الله إليكم

وهذا الإصدار الأحدث من اللعبة في موقعي الشخصي https://www.mr-mas.com/p/guess-numbers-game.html وفقنا الله جميعا لكل خير

جميعا بإذن الله @ahmed said نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

يمكنك استعمال هذا الكود Private Sub CommandButton1_Click() TextBox1.Value = Format(DateAdd("d", -1, CDate(TextBox1.Value)), "YYYY/MM/DD") End Sub Private Sub CommandButton2_Click() TextBox1.Value = Format(DateAdd("d", 1, CDate(TextBox1.Value)), "YYYY/MM/DD") End Sub بالتوفيق

وفقنا الله جميعا لكل خير

شكرا جزيلا لكل من دعم وشجع ولو بكلمة طيبة نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

شكرا لك هذا بالضبط هو الذي تم في ملف النسخة 64بت في المشاركة الأولى

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

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

حقل ID في الغالب يكون رقما أما إذا غيرت الحقل إلى [fname] مثلا وهو يعني الاسم الأول وهو حقل نصي في الجدول فيمكنك الاستغناء عن NZ ليصبح الكود DoCmd.SearchForRecord , "", acFirst, "[fname]='" & Str(Screen.ActiveControl) & "'" بالتوفيق

ربما تفيدك نتائج البحث هذه https://www.officena.net/ib/search/?q="رسائل sms"&type=forums_topic&nodes=89&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

المتغير R هنا هو فقط عداد للصف النشط في الحلقة التكرارية for next في شيت (الشيت) وتبدأ قيمته من 11 وهو أول صف فيه درجات لطالب إلى 700 وهي آخر صف فيه درجات لطالب ويمكنك تعديله إلى رقم 64 حيث أنه رقم صف آخر سجل فعلا ويمكنك تسمية المتغير بأي اسم مثلا n بالنسبة لاسم الشيت مادام الإجراء يتم استدعاؤه من شيت (الشيت) فيتم التعامل على أنه الشيت النشط ولا حاجة لكتابة اسمه في الكود بالتوفيق

جميعا بفضل ربي

يبدو أن حضرتك لم تقرأ هذا السطر Exp = DateAdd("d", 5, RR) وهو يعني بعد تاريخ أول فتح البرنامج ب 5 أيام بالتوفيق

يبدو أن حضرتك لم تقرأ هذا في المشاركة الأولى بالتوفيق

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

تفضل تم تعديل الكود ليقوم برسم الدوائر الحمراء ابتداء من الصف 13 ويتخطى 3 صفوف في كل مرة ولكن بعض الخلايا فارغة وهذا يجعل نهاية التطبيق عند الخلية قبل الفارغة لذا يجب تعبئة جميع خلايا الدرجات ولو غ أو صفر بالتوفيق الدوائر الحمراء.xlsm

آمين ولك مثله ويزيد

يوجد كود لهذا الغرض ويعمل في ويندوز xp فقط ولا يعمل في ويندوز 7 وما بعده الخلاصة: تم انتهاء دعم الفكرة من برامج ميكروسوفت بالتوفيق

يمكنك استعمال المعادلات أولا وبعد الانتهاء من وضع جميع الشروط والاحتمالات يتم تحويل المعادلات إلى أكواد ومثال لوضع درجات مادة اللغة العربية في شيت صف خامس نضع في الخلية O10 المعادلة التالية =' ملف وتحريري نصف العام صف خامس'!F10 وفي الخلية P10 المعادلة التالية =' ملف وتحريري نصف العام صف خامس'!R10 وفي الخلية Q10 المعادلة التالية للجمع =SUM(O10,P10) نم سحب مقبض التعبئة لأسفل لنسخ المعادلة إلى باقي الخلايا نأتي لخطوة تحويل المعادلة إلى كود وهي ترجمة كل الخطوات السابقة إلى كود وهي بسيطة جدا وهذا مثال لنفس المادة Sub tst() Dim lr As Long lr = Sheets(" ملف وتحريري نصف العام صف خامس").Cells(Rows.Count, 2).End(xlUp).Row With Sheets("شيت صف خامس").Range("O10:O" & lr) .Formula = "=' ملف وتحريري نصف العام صف خامس'!G10" .Value = .Value End With With Sheets("شيت صف خامس").Range("P10:P" & lr) .Formula = "=' ملف وتحريري نصف العام صف خامس'!R10" .Value = .Value End With With Sheets("شيت صف خامس").Range("Q10:Q" & lr) .Formula = "=sum(O10,P10)" .Value = .Value End With End Sub مع ملاحظة الآتي وجود مسافات زائدة في أسماء بعض الشيتات (" ملف وتحريري نصف العام صف خامس") تسمية الشيتات باللغة الانجليزية تسهل التعامل مع المعادلات والأكواد تكرار الكود السابق مع كل المواد مع تغيير المعادلة والمرجع الذي توضع فيه المعادلة بالتوفيق

أولا أحييك على تصميم شكل الشيت الذي لا يحتوي على أية معادلات ولا أكواد لكن المطلوب كبير جدا تصميم وبرمجة شيت كنترول للمرحلة الابتدائية وهذا عمل طويل ربما يأخذ منك شهورا حتى يكتمل كما تريد على كل حال هذه نتائج البحث في منتدانا الرائع عن برامج مشابهة يمكنك الاستفادة منها وكلنا نتعلم من بعضنا https://www.officena.net/ib/search/?&q=كنترول الابتدائى&type=forums_topic&nodes=135&search_and_or=and&sortby=relevancy بالتوفيق

ميكروسوفت وورد 2016 وما بعده وخصوصا Office365 يساعد في تعديل ملفات pdf عند استخدام فتح بواسطة open with ثم نختار Microsoft Word ولكن نسبة النجاح لا تتعدى 60 ٪ في تحويل اللغة العربية ونسبة النجاح في اللغة الإنجليزية 100٪ بالتوفيق

جميعا بإذن الله تعالى

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