أ / محمد صالح

المتغير 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 بالتوفيق

يمكنك استعمال هذا الكود بعد فك دمج الخلايا وتغيير الامتداد إلى xlsb حتى يقبل الأكواد Sub repchr() Range("b6,b9").ClearContents For n = 1 To Len([b3]) If UBound(Split([b3], Mid([b3], n, 1))) > 1 Then [b6] = [b6] & IIf(InStr([b6], Mid([b3], n, 1)) = 0 And Mid([b3], n, 1) <> " ", IIf([b6] = "", "", "-") & Mid([b3], n, 1), "") Else [b9] = [b9] & IIf([b9] = "", "", "-") & Mid([b3], n, 1) End If Next n MsgBox "Done by mr-mas.com" End Sub الكود يقوم بوضع الحروف المكررة في الخلية b6 والحروف غير المكررة في الخلية b9 اعتمادا على النص الموجود في الخلية b3 بالتوفيق

* لا لن تضاف تلقائيا ؛ لأنك حددت مصدر بيانات الجدول المحوري من A1:H6 وحتى تضاف تلقائيا يجب تنسيق المدى الموجود في ورقة1 كجدول format as table من تبويب الصفحة الرئيسية home ثم تعديل مصدر بيانات الجداول المحورية change data source إلى نفس المدى في ورقة1 ولكن هذه المرة سيظهر المدى باسم جدول1 أو table1 * لتعديل عناوين في الجداول المحورية مثل rows labels & columns labels & grand total يتم تحديد الخلية ثم كتابة التسمية المطلوبة ثم ضغط مفتاح الادخال Enter بالتوفيق

ربما يفيدك هذا الموضوع بالتوفيق

جميعا بإذن الله شكرا لكلماتك الطيبة أستاذ @Ali Mohamed Ali