أ / محمد صالح

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

حسب فهمي للمطلوب أنك تريد تجميع نفس الخلية من جميع الشيتات لذا يمكن استعمال نفس تصميم الشيتات في شيت 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 بالتوفيق

تمت الاستفادة بالدالة المعرفة vba في هذا الموضوع مع بعض التعديلات ليكون ناتجها عدد الأيام فقط بالتوفيق تعديل حاسب عدد الايام فقط بين تاريخين.xlsb

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

وفقنا الله جميعا لكل ما يحبه ويرضاه

يفترض أن هذه خانة تخص التاريخ ما النص ااذي يمكن أن يكتب في خلية تاريخ؟

آمين ولك مثل ما دعوت وزيادة بإذن الله

New Microsoft Access Database.accdb

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

كلما كان المطلوب محددا وفر على الجميع الوقت والجهد تفضل إن شاء اللّه يكون هو المطلوب تم إضافة شيت أكثر تنظيما للملف واستعمال معادلة طويلة نسبيا حتى لا نستعمل أكواد فيجوال بيسك بالتوفيق الرواتب.xlsx

لا تحتاج إلى تغيير في المعادلة تحتاج إلى استعمال حلقة تكرارية for next for i = 10 to 1000 Range("R" & i ) = DateDiff("d", [K4], Range("K" & i )) next i بالتوفيق

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

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

الحل في حذف ما بعد acFormatPDF, وقبل , FALSE او true مع الحفاظ على الفاصلتين بالتوفيق