أ / محمد صالح

شكرا لك هذا بالضبط هو الذي تم في ملف النسخة 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٪ بالتوفيق

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

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

إذا قمت بتسجيل ماكرو لعملية التصفية كنت ستحصل على هذا الكود ActiveSheet.Range("$A$4:$T$117").AutoFilter Field:=4, Criteria1:="العام" يتم كتابة التخصص المطلوب مكان كلمة العام ويوضع هذا السطر قبل else في جميع الإجراءات بالتوفيق

نفس الفكرة يمكنك التوصل لها بمفردك Private Sub TextBox1_AfterUpdate() Me.TextBox2.Value = Year(Date) - Val(Me.TextBox1.Value) End Sub بالتوفيق

على افتراض ان خلية المواليد B2 يمكنك استعمال هذه المعادلة =year(today())-b2 بالتوفيق

السؤال نظري وعليه الإجابة نظرية ولم يتم إرفاق ملف من حضرتك فكيف يتم التطبيق او المثال ؟

يمكنك استعمال select case وهي تساوي مجموعة من شروط If لتحديد رقم العمود الذي يتم الترحيل إليه بالتوفيق

جميعا بإذن الله ولك مثله وزيادة

ربما يكون هذا مقصودك Private Sub ComboBox1_Change() If Me.ComboBox1 = "مدفوع كبير" Then Me.TextBox1.Enabled = True Me.TextBox2.Enabled = True Me.TextBox3.Enabled = False Me.TextBox4.Enabled = False ElseIf Me.ComboBox1 = "مدفوع صغير" Then Me.TextBox1.Enabled = False Me.TextBox2.Enabled = False Me.TextBox3.Enabled = True Me.TextBox4.Enabled = True End If End Sub بالتوفيق