أ / محمد صالح

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

بارك الله في جميع المشاركين ولإثراء الموضوع يمكن استعمال هذه الدالة في 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 مع الحفاظ على الفاصلتين بالتوفيق

ما شاء اللّه الأمانة العلمية متوفرة جدا ولكن الحمد لله رغم تأخر نشري لهذا المجهود لي السبق موضوع منتدى الصقر : الدالة المعرفة JoinEA بديل للدالة TEXTJOIN بتاريخ 18-08-2018 10:05 مساء وموضوعي: مكتبة الموقع - بدائل دالة textjoin الموجودة في إكسل 2016 لجميع إصدارات اكسل mastextjoin بواسطة أ / محمد صالح, يناير 26, 2018 ربنا يصلح حالنا جميعا

شكرا للأمانة العلمية في نقل المعادلة المستخدمة هنا منذ أكثر من أربعة أعوام بدون ذكر صاحبها حينما قال صاحب الاستفسار أن المعادلة الأولى لم تعمل قمت بالرد في موضوعي بدائل دالة textjoin حتى يظهر له الحل بطريقة غير مباشرة بالتوفيق 🙄😏

الملف يعمل عندي بصورة طبيعية لذلك يجب التأكد من اختيار منطقة region عربية مثل Arabic(Egypt ) مثلا من لوحة التحكم control panel ---> الساعة والمنطقة clock and region ----> تغيير تنسيق التاريخ والوقت والأرقام change date, time, or number formats بعدها سيعمل بإذن الله بالتوفيق

تفضل إن شاء اللّه يكون المطلوب وتذكر دائما كلما ذكرت جميع التفاصيل حول المطلوب كلما سهلت المهمة على غيرك بالتوفيق البحث عن سعر البيع لكل عميل.xlsm