AbuuAhmed

جرب هذا المثال ، ومسموح للخبراء التصرف به بالتعديل والتطوير. DateEntryTest_01.accdb

CDate([Text104]) * 24 * 125 CDate("9:00") * 24 * 125

جهازك يرسل وما يستقبل ، يا أخي تفاعل مع من يقدم لك حلول لمشكلتك. للحل ثلاث معالجات (تاريخ ورقم ونص) حسب نوع حقل الساعات. الآن فقط فهمنا أن نوع الحقل عندك نص ، وأكيدا هذا خطأ في التصميم ومع ذلك حله سهل جدا. وأنا عندي الحل بعد معرفة النوع ولكن لن أواصل معك ، البركة في الباقي. ارفق مثالا وخذ الحل من الشباب بشكل صاروخي. موفق.

مثال للتجربة لقد رددت عليك في موضوع سابق ، ارجع له وحاول فهم ملاحظتي . أخي كلنا مررنا بهذه المرحلة فلا تستحي من معاودة وتكرار الاستفهام في نفس الموضوع. ولكي يتجاوب معك أعضاء المنتدى حاول أن ترفق مثالا ، فسوف تسهل المهمة عليك وعليهم. getValue.accdb

1000 مبروك

ألف مبروك للخبير .. يستاهلها بجدارة

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

هدية مني لمدارس العراق ديناميكي لا يحتاج لتدخل مبرمج أو خبير إكسل لتكييفه مع مراحل الدراسة المختلفة. عن طريق صفحة التفاصيل: - يقبل إضافة أو حذف مواد (عدد المواد). - يقبل تبديل مسميات المواد لصفحتي المسودة والقائمة. - يقبل تبديل درجة النجاح لكل المواد منفردة أي كل مادة على حدة. - يقبل تبديل درجة القرار. - يقبل تبديل درجة النجاح. - يقبل تبديل عدد مواد الإكمال الأقصى. توزيع القرار لمدارس العراق_01.xlsm

= 5:00 * 24 + 12:00 * 24 + 10:00 * 24 + 2:00 * 24 = 29.0 نوع الوقت لا يقبل أكثر من 24 ساعة. والحل أن نحول الوقت إلى رقم عشري في ضربه في 24 ثم نجمعه

السلام عليكم محاولة يمكن موجودة في المنتدى ولكني لم أبحث عنها إن لم تكن موجودة فقد ينتفع بموضوعي أحدكم. وظيفتهم تحويل "B" إلى 2 أو تحويل 2 إلى "B" Function C2L(Column As Integer) As String On Error Resume Next C2L = Replace(Replace(Cells(1, Column).Address, "$", ""), "1", "") End Function Function L2C(Letter As String) As Integer On Error Resume Next L2C = Range(Letter & "1").Column End Function

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

حل الأستاذ @husamwahab صحيح >=Year(Now()) ويمكن أن تكون بهذا الشكل أيضا: >=Year(Date())

لي الشرف أستاذ ، توالصلنا إن شاء ليس الآن بل عندما ينتهي هذا الموضوع هنا. بانتظار اختبار النسخة الأخيرة وخصوصا لملاحظتك الأخيرة.

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

حياك الله أستاذ أصل الكود ليس لي وربما كاتبه هو سيدة باسم "ساجدة" حسب اسم الموديول (الوحدة النمطية). والحقيقة أن الأصل لم يتم التعديل عليه في المعالجة والحساب بل تمت إضافات رتوش عليه فقط وتعديل عدد المواد و درجة القرار، فالفضل هو لكاتب الإجراء الأصل. كذلك تمت إضافات في آخر الكود خاصة بصفحة القائمة المطلوبة. تمت تحسينات عدة ، قد تكتشفوها عند استعمال الملف. ود توزيع القرار_18.xlsm

بدل هذا السطر: If .Cells(ss, 16) <> "ناجح" Then بهذا السطر: If Not .Cells(ss, 16) Like "ناجح*" Then إذا أحببت إضافة مواد الغياب على مواد الإكمال في خانة النتيجة، أخبرني.

جرب المرفق: كود توزيع القرار_16.xlsm

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

جرب الآن كود توزيع القرار_15.xlsm

اختصار المطلوب : لا تكتب حرف "غ" في صفحة المسودة ، دع خلايا الغياب بدون أي بيانات.

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

جرب جساب الفرق بين تاريخين.xlsx

أحسنت ، قلت ما لا نستطيع قوله. وما لم تقله ربما أكثر وأكبر.

أخمن أنك قد بدلت في صفحة المسودة بحذف سطور أو أعمدة ، على كل لا يمكن التعديل بدون إرفاق الملف نفسه.