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

وعليكم السلام -كان عليك ان تقوم بالتالى حدد العمود. اذهب إلى علامة التبويب بيانات (Data) > نص إلى أعمدة (Text to Columns) > إنهاء (Finish) ثم اكتب معادلة جمع عادية وستحصل على النتيجة المرجوة تقرير التأخير الشهري 11112.xlsx

يمكن حلها كذلك بالأكواد إذا أردتها تظهر بتنسيق كما الوقت مع أن تنسيق الوقت لا يقبل أكثر من 24 ساعة. تقرير التأخير الشهري_03.xlsx

بارك الله فيك أستاذ

تفضل التعديل . Yamen-07-04-2026-2.rar

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

اعتقد انك هنا تحاول الوصول الى قيمة عنصر موجود في النموذج ، وليس من خلال قيمة حقل داخل جدول. هل جربت كطريقة بسيطة استخدام Dlookup على سبيل المثال stDocName = "tbl_student1" & DLookup("Year_name", "tbl_basic")

حسب ما فهمت جرب الملف التالي اغلاق الصفوف ذات الرصيد 0 (2).xlsm

فيما يتعلق بالطلب الأهم لديك ، أنصحك أولاً بضبط التنسيق للخلايا في العمود D كاملةً ، لتصبح :- ثم في الزر الذي انشأته انت في مشروعك ، استخدم الحدث التالي كمثال :- Private Sub CommandButton1_Click() Dim lastRow As Long Dim i As Long Dim diff As Double lastRow = Cells(Rows.Count, "D").End(xlUp).Row For i = 8 To lastRow diff = Cells(i, "D").Value - Cells(i, "E").Value If diff < 0 Then Cells(i, "F").Value = 0 Else Cells(i, "F").Value = diff End If Next i End Sub جرب انقر على الزر وشوف النتيجة إن كانت صحيحة في الملف المرفق .. ثم ننتقل الى الطلب الثاني .. اغلاق الصفوف ذات الرصيد 0.xlsm

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

جزاكم الله خيرا فعلا هذا ما أريد