نجوم المشاركات

السلام عليكم تم عمل المطلوب في الملف المرفق... بالنسبة لجلب الأسماء دون تكرار استعملت بعض الأوامر -بتصرف- من كود أخي سليم Get_Uniques (وأستسمحه في ذلك) والذي أدرجه في موضوع طريقة إظهار أكثر من نتيجة عند استخدام vlookup... بالنسبة لمبلغ آخر الرصيد وتاريخه لكل عميل استعملت معادلات صفيف (في 50 سطر من السطر 17 إلى السطر 66)... مع استعمال نطاق مسمى Rng وبعض التنسيقات الشرطية... بن علية حاجي مهم.rar

السلام عليكم ورحمة الله تعالى وبركاته اتمنى ان تكونو جمبعا بخير حال الموضوع اليوم قد وضحه العنوان كنت قد وعدت الاخوة فى هذا الموضوع ببعض التحديثات فوجدت ان كل هذه التحديثات يقدمها تطبيق واتساب اتجهت بفضل الله وكرمه الى محاكات نظام واتساب بالاكسس هذا الموضوع هدية لككم واتمنى ذكر الحقوق ان امكن ذلك والان مع الشرح اعتذر لرفعه على موقع خارجى لانتهاء المساحه هنا حجمة 2 ميجا فقط https://www.mediafire.com/file/ir1l91d6g18d8iy/AccessWatsapp.rar/file اتمنى التجربة واعلامى بالنتائج شكرا لكم

السلام عليكم برنامج مجاني يختص بالبنوك من حيث الايداع والسحب اتمنى ان ينال اعجابكم من تصميم الاخ المبدع المهندس/ هاني مجدي - جمهورية مصر العربية البنوك.accdb

فورم اضافة وبحث وحذف وتعديل واغلاق طباعة بدون ازرار شرح الفيديو

انقل هذا المديول وجربه .... kanory.accdb

السلام عليكم أولا : المعادلة في الخلية E5 هي: =DATE(année;INDEX(COLONNE(A:L);EQUIV(mois;MonthsNames;0));1) وبالإنجليزية: =DATE(année;INDEX(COLUMN(A:L);MATCH(mois;MonthsNames;0));1) والتي يمكن اختصارها على الشكل التالي: =DATE(année;EQUIV(mois;MonthsNames;0);1) وبالإنجليزية: =DATE(année;MATCH(mois;MonthsNames;0);1) مما يعني أن الجزئية (INDEX(COLONNE(A:L غير ضرورية في المعادلة... والمعادلة استعملت فيه الدالة DATE والتي تحتاج إلى ثلاثة وسائط بالترتيب التالي : 1- رقم السنة (وفي المعادلة تعطيه التسمية année، ثم 2- رقم الشهر الذي تعطيه الجزئية (EQUIV(mois;MonthsNames;0 أي رقم ترتيب اسم الشهر بالتسمية mois في قائمة الشهور بالتسمية MonthsNames، ثم 3- رقم اليوم وفي المعادلة هو رقم 1 أي في الأخير المعادلة ككل تعطي تاريخ أول يوم من الشهر في الخلية B7 والعام في الخلية B10... ثانيا : المعادلة في F5 : =SI(E5="";"";SI(MOIS(E5+1)>MOIS($E$5);"";E5+1)) وبالإنجليزية: =IF(E5="";"";IF(MONTH(E5+1)>MONTH($E$5);"";E5+1)) المتعلقة بالخلية E5 هي عبارة عن IF الدالة الشرطية (بشرطين) : الشرط الأول إذا كانت الخلية E5 فارغة تكون الخلية F5 فارغة أما إذا كانت الخلية E5 غير فارغة فإن الدالة تتحقق من الشرط الثاني الذي هو : (mois(E5+1)>mois(E5 أي إذا كان شهر (التاريخ في E5 بإضافة 1 يوم له) أكبر من (شهر تاريخ الخلية E5) فإن الخلية F5 تبقى فارغة، وإذا لم يكن كذلك فإن الخلية F5 يكون فيها تاريخ اليوم الذي يلي تاريخ الخلية E5 من الشهر نفسه... والله أعلم في الملف المرفق تم تعديل آخر بحيث أدرجت أعمدة لكل الشهور مع إضافة بعض النطاقات بالتسمية (للضرورة) مع كود بسيط وُضع في حدث الورقة (الشيت) يقوم بإظهار جدول الشهر المختار في الخلية B7 وإخفاء جداول كل الشهور الأخرى... وهذا تسهيلا لأرشيف الشهور مما يفيد في العمليات الإحصائية الشهرية أو السنوية... بن علية حاجي absenses.xlsm

عليك السلام ورحمة الله وبركاته أولاً تم معالجة ظهور الكسر الانتقال 25 صف.xlsm

أخي الكريم ... المفروض في الاستعلام تشترط ... فقط ظهور المستحقين للترقية خلال فترة معينة وليكن 7 شهور وتستبعد كل من بياناته غير مكتملة ..... على كل حال تم تغيير المديول ..... أنظر المرفق ... kanory.accdb

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

الاخ هانى محمد حاضر بس مش النهاردة عموما انا عدلت الساعة كما الصورة التالية لان المفروض ان اللى حيوقع يعرف التوقيت

اخي بن علية لك كل الاحترام والتقدير و أحب أن اذّكر ان الأكواد التي أضعها(بكل تواضع) هي بتصرف كل شخص طالب للعلم وأحيّ فيك روح احترام حقوق النشر و المكليّة (بذكر اسم واضعي الاكواد) واخيراً بالاذن منك اخي بن علية أقدّم هذا الحل مع تحياتي أخوكم سليم Important.xlsm

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

طلبك ليس بالسهل او الهين فهو صعب فعليك التحلى بالصبر ولا تيأس حتى تتمكن الأساتذة من المساعدة ان شاء الله

الف شكر استاذ سليم فعلا هو ده المطلوب بالظبط وجزاك الله خيراااا

@kanory عاشت ايدك

تفضل ..... kanory.accdb

جرب هذا الملف كنموذج Super Adv_Filter.xlsm

الحمد لله رب العالمين ....

نسيت اعدلها للتسمية المطلوبة ( وهي تمثل الرتبة الجديدة المستحقة ) انظر المرفق بعد التعديل الجديد تمثل الفترة التي مضت على تاريخ استحقاق المرتبة الجديدة فهي تكون بالاشهر السالبة أما الاشهر الموجبة تمثل باقي الاشهر لاستحقاق المرتبة .... انظر الصورة kanory.accdb

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

تم التطبيق على : أذا كان هذا هو المطلوب ,,,, نفذها انت على البقية kanory.accdb

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

السلام عليكم ورحمة الله قمت ببعض التعديلات على الملف بحذف كل شيتات الأسابيع وتعويضها بواحدة فقط (حتى لا تتعدد شيتات الملف ويكبر حجمه) سميتها "المبيعات الأسبوعية" وأبدلت معادلة الخلية A2 لاسم الأسبوع بقائمة منسدلة لكل الأسابيع... تم وضع المعادلات اللازمة لجلب مبيعات2017، مبيعات2018، مبيعات2019 التراكمية إلى غاية رقم الأسبوع الذي نختاره من خلال القائمة المنسدلة في الخلية A2... أرجو أن تفي هذه التعديلات الغرض المطلوب... بن علية حاجي test 2019.xlsx

تفضل هذا الكود اذا قمت بالكتابة فى العمود الأول A والعمود الثالث C سيعمل هذا الكود على تلوين المتشابه الغير متماثل باللون الأصفر Sub compare_cols122() Dim NameList As Worksheet Dim i As Long, j As Long Set NameList = Excel.Worksheets("Names") Dim rngNames As Range Set rngNames = Range("A1", Range("A1").Offset(Rows.Count - 1).End(xlUp)) Dim varNames As Variant varNames = rngNames.Value2 Dim rngData As Range Set rngData = Range("C1", Range("C1").Offset(Rows.Count - 1).End(xlUp)) Dim varData As Variant varData = rngData.Value2 Application.ScreenUpdating = False For i = LBound(varNames) + 1 To UBound(varNames) For j = LBound(varData) + 1 To UBound(varData) If varNames(i, 1) <> "" Then If InStr(1, varData(j, 1), varNames(i, 1), vbTextCompare) > 0 Then NameList.Cells(j, 3).Interior.ColorIndex = 6 NameList.Cells(i, 1).Interior.ColorIndex = 6 Exit For Else End If End If Next j Next i Application.ScreenUpdating = True End Sub

هذا يعني انك لن تجرب حتى اشرح لك يمكن انها لا تعمل جرب اول .. فان عملت وقامت مقام RoundUp بكذا ينشط اخوك للشرح