كل الانشطه

تفضل التعديل . ووافني بالرد . Yamen-07-04-2026-1.rar

⏳ باقي من الوقت : 2 يوم حتى نهاية التحدى الثاني وللأسف نفتقر إلى المشاركات الإبداعية

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

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

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

استاذ مازال عند الضغط علي ايقونة يتم تلوين بيانات الموظف

جرب هذا الخيار في قبل الطباعة: Page Setup -> Sheet -> Black and white

تفضل استاذ @بلال بلال الشرح والمرفق . ووافني بالرد . Yamen-07-04-2026.rar

السلام عليكم اريد عند الضغط على الزر يتم تلوين السطر في النموذج الفرعي

جرب احذف الأقواس

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

لابد من مرفق كي نتعرف على طلبك .

السلام عليكم Year_name هو أحد حقول الجدول tbl_basic وأريد إستخدام محتواه بأحد النماذج فى تكوين اسم جديد من خلال الآتى Dim stDocName As String stDocName = "tbl_student1" & [Year_name] لم يفلح ما سبق ، فقمت بتغيير السطر الثانى إلى: stDocName = "tbl_student1" & [Year_name]![tbl_basic] ورغم عدم وجود خطأ فى الــ Compile لما سبق ، لكن تقابلنى عند التنفيذ هذه الرسالة : ما الخطأ فى التعبير السابق ؟

حسب ما فهمت جرب الملف التالي اغلاق الصفوف ذات الرصيد 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

سادة الاعضاء سلام عليكم ورحمة الله تعالى وبركاته اتمنى ان تكونوا في صحة جيدة وفي احسن حال ان شاء الله لي جدول به بيانات مثل ماهو في الملف طلبي هو اغلاق الصفوف ذات الرصيد صفر وهذا بشكلين الشكل الاول هو عمل زر عند ما اتمم البيانات مثل ما في الجدول المذكور اقوم الضغط على الزر الاغلاق فيقوم بغلق الصفوف ذات الرصيد صفر " 0 " اللي في العمود F ( هذا طلبي اللي مركز عليه ) الشكل الثاني وهو اقتراح اخي لنفس الموضوع وهو له جدولين الاول لملئ البيانات والثاني ينتقل ايه البيانات الجدول الاول عندما يكون الجدول الاول فارغ ليس به بيانات يكون الجدول الثاني كل الصفوفه مغلقة بحكم ان الارصيد بالعمود " F " تساوي كلها " 0 " وعند ملئ الجدول الاول تنتقل البيانات الى الجدول الثاني وبالتالي يفتح الصفوف التي بها رصيد اكبر من " 0 " فقط اتمنى ان يكون الشرح واضح ان شاء الله وفي انتظار ردكم تقبلو مني فائق التقدير والاحترام وشكرا والسلام عليكم ورحمة الله تعالى وبركاته اغلاق الصفوف ذات الرصيد 0.xlsm

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

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

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

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

حل آخر تجربة صادر_04.accdb

للتجربة .. الحل هو المظلل بالأصفر إن شاء الله. تجربة صادر_03.accdb

السلام عليكم .. للفائده بعد حل الموضوع وببساطه جدا ... 1ـ وضع حقل في جدول الوارد وتكون قيمته ترقيم تلقائي . 2ـ يتم عمل استعلام معتمد على جدول الوارد وجعل في فرز الترقيم التلقائي نجعله تنازلي . 3ـ نذهب الى الحقل المراد اظهار اخر قيمة فيه ( مربع نص ) ونستخدم الدالة او المعادلة التالية =DMax("[رقم الوارد]";"[اسم الاستعلام ]") وشكرا جزيلا لكل من الهمنا وشارك في حل الامر

تم تعديل إختيار "تمت الإجابة" للمشاركة التي فيها الحل والمرفق.