أ / محمد صالح

فكرة التقرير جيدة وكما قلت سابقا يمكن الاستغناء عنها بعمل فلتر وطباعة الصفحة ومادامت المدة تتجاوز الشهر فلابد من تسجيل بيانات جميع الشهور في شيت واحد مثلا all تم ضبط معادلة البحث وجمع بيانات الشهرين في شيت واحد بالتوفيق حضور وانصراف الموظفين - Copy (2).xlsx

يمكنك تغيير سطر الشرط If C = Val(Me.TextBox6) Then إلى If C = Val(IIf(TextBox6 <> TextBox1, Me.TextBox1, Me.TextBox6)) Then وتغيير آخر سطر قبل نهاية الإجراء Call TextBox6_Change إلى Me.TextBox6 = IIf(TextBox6 <> TextBox1, Me.TextBox1, Me.TextBox6) بالتوفيق

جميعا بإذن الله

الشكر لله وفقنا الله جميعا لكل خير

عذرا لتأخر الرد ما رأيت المشاركة إلا الآن وبعد تجارب بسيطة تم تبسيط المعادلتين الاضافي والانصراف المبكر انصراف مبكر: Round (IIf([بدايه الانصراف]-[الانصراف]>0 and [بدايه الانصراف]-[الانصراف]<0.5,[بدايه الانصراف]-[الانصراف],0)*24,2) الإضافي: round(IIf([الانصراف]>[بدايه الانصراف],[الانصراف]-[بدايه الانصراف],IIf([بدايه الانصراف]-[الانصراف]<0.5,0,1-([بدايه الانصراف]-[الانصراف])))*24,2) ويمكن تطبيق المنازل العشرية 2 للحفاظ على. تنسيق الرقم بالتوفيق

جميعا بإذنه تعالى فلله الحمد والشكر

أولا أحييك تعديلاتك رائعة تدل على فهم لمضمون الكود ثانيا رقم 4 في هذا السطر هو رقم عمود النهاية في الخلايا التي يتم الكتابة فيها ورقم 2 هو عمود البداية r = IIf(c = 4, r + 1, r): c = IIf(c = 4, 2, c + 1) حيث يتم الكتابة في عمود 2 و3 و4 في حالتك الجديدة يتم الكتابة في العمود 10 و11 و12 لذا نغير 4 إلى. 12 وتعدل بداية العمود c من 2 إلى 10 وسيعمل الكود بنجاح r = IIf(c = 12, r + 1, r): c = IIf(c = 12, 10, c + 1) بالتوفيق

جميعا بإذن الله ✌👍

لا يحدث هذا إلا إذا جعلت النموذج يظهر عند فتح المصنف لحل هذه المشكلة: * إذا كان الملف مفتوحا يجب إنهاء مهمة الإكسل كله لغلق الملف كلك يمين على شربط المهام ثم task manager مدير المهام * افتح اكسل وأنشئ مصنفا جديدا أو افتح مصنفا تملك الدخول إلى أكواده * افتح نافذة محرر الفيجوال بيسك alt+f11 * افتح الملف صاحب المشكلة ثم توجه إلى نافذة الفيجوال: alt+tab والوصول للملف المسموح للوصول لنافذة الفيجوال بيسك أو الوقوف بمؤشر الفارة على زر اكسل في شريط المهام ثم اختيار نافذة الفيجوال بيسك * وهناك تضغط على اسم الملف صاحب المشكلة في أعلى يسار النافذة لترى أكواده وتعدل عليها بالتوفيق

الشكر لله تحياتي

الشكر لله وفقنا الله جميعا لكل خير

جميعا بإذن الله

تم الرد على هذا الاستفسار الجديد في موضوع جديد هنا بالتوفيق

حسب فهمي للمطلوب أنك تريد تجميع نفس الخلية من جميع الشيتات لذا يمكن استعمال نفس تصميم الشيتات في شيت row مرفق ملفك وبه المعادلة الطبيعية في الجزء العلوي وكذلك دالة معرفة vba اسمها sumall في الجزء السفلي ودالة أخرى لصناعة المعادلة العادية بالكود بالتوفيق جمع الخلية من جميع الشيتات.xlsb

طريقة تصميم بياناتك تقتضي أن يتكرر

الشكر لله أخي الكريم موفقين جميعا بإذن الله

الشكر لله موفقين

بارك الله في جميع المشاركين ولإثراء الموضوع يمكن استعمال هذه الدالة في office2010 وما بعده =COUNTIFS(B:B,">"&E2,B:B,"<"&G2) بالتوفيق

إذا كان المطلوب بالمعادلات فيمكنك وضع هذه المعادلة في الخلية D16 =IFERROR(INDEX(التعداد!B$3:B$17,SMALL(IF(التعداد!$D$3:$D$17<>"",ROW($1:$15)),$C16)),"") ثم سحب مقبض التعبئة لأسفل ثم إلى اليسار مع تغيير تنسيق عمودي التاريخ بالتوفيق

يمكنك كتابة كلمة (من) في label ثم التاريخ في textbox وهكذا مع الباقي المهم أن يبقى الحقل للتاريخ فقط هذه أساسيات البرمجة

منتدانا الرائع به الكثير من الكنوز في هذا المجال تحتاج الغواص الجيد حتي يستكشفها https://www.officena.net/ib/search/?q=مواقيت الصلاة&quick=1&search_and_or=and بالتوفيق

آمين ولك بالمثل وزيادة

قبل ما تحضر العفريت تعرف ازاي هتصرفه يا صديقي @محب لله ورسوله في مثل هذه الحالة يجب وضع زر لإغلاف النموذج أو أي شيء يجعل المتغير C قيمته تساوي true ويكون هذا كود الزر مع كود إلغاء الإغلاق Dim c As Boolean Private Sub CommandButton1_Click() c = True: Unload Me End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If Not c Then Cancel = True End Sub لاحظ الإعلان عن متغير c أعلى كل الأكواد عند الضغط على الزر غير قيمته ل true تم تغيير عدم الإغلاق إذا لم تكن قيمة c تساوي true بالتوفيق

يمكنك استعمال هذا الكود في حدث عند تغيير محتوي شيت الفاتورة Private Sub Worksheet_Change(ByVal Target As Range) Dim n As Long, r As Long, c As Long Dim sh As Worksheet: Set sh = Sheets("رصيد") If Target.Address = "$D$1" Then Range("b3:d16").ClearContents c = 2: r = 3 For n = 2 To sh.Cells(Rows.Count, 1).End(3).Row If sh.Range("b" & n) = Target Then Cells(r, c) = sh.Range("c" & n) r = IIf(c = 4, r + 1, r): c = IIf(c = 4, 2, c + 1) End If Next n 'MsgBox "Done by mr-mas.com" End If End Sub ولمن لا يعرف إضافة الكود في أحداث الصفحة كلك يمين على اسم الشيت ثم view code تقريبا بالعربي عرض التعليمات البرمجية ثم لصق الكود بالتوفيق

حينما لا يكون أمامي جهاز كمبيوتر أقترح عليك اقتراحات ولكن الآن إليك الحل بفضل الله بتغيير الشرط إلى بداية الانصرف طرح الانصراف اكبر من صفر واقل من نصف انصراف مبكر: IIf([بدايه الانصراف]-[الانصراف]>0 and [بدايه الانصراف]-[الانصراف]<0.5,[بدايه الانصراف]-[الانصراف],0)*24 بالتوفيق