أبوعيد

السلام عليكم شكرا أخي الزباري بصراحة موضوع ممتاااااز جدااااا بارك الله فيك , فعلا حاجة غريبة وملف سحري !!!! لي سؤال : هل انت الأن شغال على هذه الفكرة ؟ يعنى هل تستخدمها في مجال عملك ؟ تقبل تحياتي

تستطيع معرفة الايام التي غاب أو تأخر فيها الطالب تابع الصورة ربما تجد فيها جواب لسؤالك

جرب هذا إضافة صفو ف بالاكواد والتنسيق1.rar

حياك الله لأنني معلم فقد فهمت الموضوع , وأرجو أن ينال إعجابك في انتظار ملاحظاتك تفضل طيب الفال1.rar

تفضل

السلام عليكم أخي العزيز الرجاء إرفاق ملف فيه مثال على ما تريده مع الشرح حتى تتضح الفكرة أكثر تحياتي

تم تطوير الكود ليناسب طلبك Sub Kh_Insert_Rows() Dim r, s, x, c r = ActiveCell.Row s = InputBox("ÃÏÎá ÚÏÏ ÇáÕÝæÝ ÇáãÑÇÏ ÃÖÇÝÊåÇ", "ÅÖÇÝÉ ÇáÕÝæÝ", 1) If r < 4 Then Exit Sub Application.ScreenUpdating = False For x = 1 To s Range("A" & r).Resize(1, 7).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next Range("A" & r - 1).AutoFill Destination:=Range("A" & r - 1).Resize(s + 1, 1), Type:=xlFillDefault Range("D" & r - 1).Resize(1, 4).AutoFill Destination:=Range("D" & r - 1).Resize(s + 1, 4), Type:=xlFillDefault c = Range("A3").End(xlDown).Row Range("A3").FormulaR1C1 = "=MAX(R2C:R[-1]C)+1" Range("A3").AutoFill Destination:=Range("A3:A" & c) Range("A3:A" & c) = Range("A3:A" & c).Value Application.ScreenUpdating = True End Sub إضافة الصفوف سيكون من بداية الصف الرابع وما بعده يعني لن تستطيع إضافة صقوق في الصف الثالث تحياتي إضافة صفوف.rar

الكود هو Sub Kh_Insert_Rows() Dim r r = ActiveCell.Row Range("A" & r).Resize(1, 7).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End Sub حاول أن تضع هذا الكود داخل زر (إضافة صفوف جديدة ) وتمسح الكود السابق ثم بعد ذالك حدد أي خلية وشغل الكود سيتم إضافة صفوف مكان الخلية المحددة إذا لم تنجح العملية معاك راسلني على الأي ميل الظاهر تحت اسمي حتى ارسل لك الملف كاملا تحياتي

السلام عليكم توصلت للحل والحمدلله ولكن ام استطع تحميل الملف لوجود مشكلة ولا زلت أحاول رفع الملف

أرفق ملف الوورد هنا لعل بعض الأعضاء يساعد في حل المشكلة

العمود N هو عمود مساعد النتيجة المطلوبة موجودة في العمودين O و P أرجو أن يكون هذا هو الحل 1المتوسط.rar

تفضل https://www.officena.net/ib/topic/71367-انشاء-صفحة-مراقبة/?do=findComment&comment=461758 أو هذا https://www.officena.net/ib/topic/71491-هل-يمكن-تعقب-التغييرات-والحذف-لعمود-أو-صف-فقط/?do=findComment&comment=462568

وعليكم السلام أخي طلبك غير واضح هل تريد عمل مراقبة حتى تعرف متى تم تغيير قيم الخلية مثلا الساعة كذا تم تغيير القيمة من كذا إلى كذا هل هذا طلبك ؟ أرجو التوضيح أكثر

وعليكم السلام تفضل تجربة1.rar

تفضل التقرير اليومي1.rar

وعليكم السلام تفضل example1.rar

وعليكم السلام أخي العزيز اطلعت على مرفقك ولم أفهم طلبك أنت تريد حساب الساعات الضائعة فلا بد أن تضع لنا مثال بالأرقام للاستاذ والقسم حتى نسير عليه تحياتي

عفوا أخي فقد أرفقت الملف القديم بالخطأ تفضل عدد الوجبات والحساب3.rar

اكتب المبلغ في الخلية الصفراء ولاحظ النتيجة في خانة الحافز تفضل حساب الحوافز.rar

وعليكم السلام اكتب رقم السيارة ثم اضغط ترحيل تفضل عدد الوجبات والحساب2.rar

تفضل عدد الوجبات والحساب1.rar

السوال الأول طلب وضع الدالة hlookup والسؤوال الثاني طلب إضافة الدالة ifferror للدالة السابقة

تفضل HM4-.rar

بحسب ما فهمت HM4-.rar

تم التعديل على زر (حذف البيانات) فقط هذا كل ما استطعت الوصول إليه أرجو أن يكون الكود أسرع من السابق test3.rar