أ / محمد صالح

بالنسبة لمن يستخدم نسخ قديمة فيه موضوع قديم اسمه بدائل textjoin فيه دالة معرفة vba يممكن استعمالها بنفس الطريقة

لا مشكلة اذا استخدمت معادلة العد بشرط =IF(AND(COUNTIF($A$2:$A$20, A2)>1, COUNTIF($A$2:A2, A2)=1), TEXTJOIN(",", 1,IF($A$2:$A$20=A2,$B$2:$B$20, "")),"") موفق ان شاء الله

يمكنك استخدام هذه المعادلة في أوفيس 2019 في الخلية C2 =TEXTJOIN(",", 1,IF($A$2:$A$20=A2,$B$2:$B$20, "")) بالتوفيق

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

أخي الكريم استعمال معادلات الصفيف في نطاق واسع يبطئ الملف جدا وأحد الحلول لعمل تصفية بالمعادلات هي وجود عمود مسلسل مساعد في شيت البيانات الكبير وتغيير معادلة المسلسل في شيت التقرير ومعادلة البحث في شيت التقرير هذا ملفك بعد التعديل لإيصال الفكرة (يمكنك استكمال معادلة البحث في باقي الأعمدة) بالتوفيق Retails Sales Report.xlsx

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

يمكنك وضع هذه المعادلة في الخلية B4 =DATE(MID(LEFT(RIGHT(I4,12),8),1,4),MID(LEFT(RIGHT(I4,12),8),5,2),MID(LEFT(RIGHT(I4,12),8),7,2)) والاستغناء عن الأعمدة المساعدة بالتوفيق

حسب فهمي للمطلوب يلزمك تغيير المعادلة في الخلية E2 إلى =SUMIFS(الصرف!$C$2:$C$8,الصرف!$B$2:$B$8,$A$1,الصرف!$A$2:$A$8,">="&D2,الصرف!$A$2:$A$8,"<="&EOMONTH(D2,0),الصرف!$C$2:$C$8,">="&0)*$L$1+SUMIFS(الصرف!$C$2:$C$8,الصرف!$B$2:$B$8,$A$1,الصرف!$A$2:$A$8,">="&D2,الصرف!$A$2:$A$8,"<="&EOMONTH(D2,0),الصرف!$C$2:$C$8,"<"&0) رغم اعتراضي على اختلاف طريقة تسجيل البيانات فإذا كان العدد 3 يتم ضربه في 1000 لذلك يجب كتابة ال 500 على صورة 0.5 فهذا سيقلل المعادلة ويضبط المخرجات بالتوفيق

بارك الله فيك أخي الكريم وفقكم الله

يمكنك فعلها من خلال أزرار التبويبات data --- sort أو تسجيل ماكرو بهذا لتحصل على الكود بالتوفيق

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

بارك الله فيكم جميعا جميل جدا هذا العمل إبداع وهذه مساهمتي للبحث في موضوعات منتدى الاكسس ولكن في مجال الويب حتى يمكن البحث بسرعة بمجرد الكتابة ولو في الموبايل بدون الحاجة إلى برنامج الأوفيس https://officena.net/team/mas/access.html بالتوفيق للجميع دعواتكم

ينبغي أولا دمج القائمتين بدون تكرار في قائمة واحدة ثم ترتيب هذه القائمة الجديدة بالتوفيق

يمكنك استعمال هذه المعادلة لتحويل النص إلى تاريخ =DATE(MID(A2,1,4),MID(A2,6,2),MID(A2,9,2)) على اعتبار أن الخلية التي بها هذا النص A2 بالتوفيق

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

يمكنك استعمال هذا الكود وتنفيذه في شيت الترحيل وليس في sheet1 Sub mas_taqseem() Application.ScreenUpdating = False lr = Sheet1.Cells(10000, 1).End(xlUp).Row Range("A2:K100").ClearContents col = 1 For i = 2 To lr Step WorksheetFunction.Ceiling((lr - 1) / 3, 1) For j = 2 To WorksheetFunction.Ceiling((lr - 1) / 3, 1) + 1 Cells(j, col) = Sheet1.Cells(j + i - 2, 1) Cells(j, col + 1) = Sheet1.Cells(j + i - 2, 2) Cells(j, col + 2) = Sheet1.Cells(j + i - 2, 3) Next j col = col + 4 Next i Application.ScreenUpdating = True MsgBox "Done by mr-mas.com" End Sub بالتوفيق

بارك الله في جهودكم باالتوفيق

جميل جدا أخي الفاضل @حسونة حسين هذا العمل إبداع وهذه مساهمتي للبحث في موضوعات منتدى الاكسل ولكن في مجال الويب حتى يمكن البحث بسرعة بمجرد الكتابة ولو في الموبايل بدون الحاجة إلى برنامج الأوفيس https://officena.net/team/mas/excel.html بالتوفيق للجميع دعواتكم

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

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

ما دام المطلوب اختيار واحد فقط يمكنك استعمال option button وليس checkbox هذه أساسيات البرمجة ولحذف تحديد الخيرات يمكن استعمال كود يجعل قيمة الخلية المرتبطة بأزرار السؤال تساوي فراغ أو صفر بالتوفيق

شكرا لكلماتك الطيبة أخي الكريم كما قلت سابقا هذه المعادلة للبحث بأكثر من شرط ورقم 1 يعني أن الدالة تبحث عن رقم 1 في نتائج مطابقة الشروط التالية ونضع الشروط في الجزء الخاص بدالة match على صورة (المدى=الخلية) لاحظ الأقواس حول المدى والخلية المراد مطابقة المدى لها ثم علامة الضرب * ثم باقي الشروط وتعني النجمة المعامل and يعني تحقق جميع الشروط (حيث أن نتيجة تحقق الشرط هي إما 1 أو 0 فإذا ضربنا 1 * 1 * 0 يعني تحقق شرطين ولم يتحقق الثالث تكون النتيجة صفر وهكذا يجب تحقق جميع الشروط ليجلب نتيجة البحث) وإذا أردت معامل المقارنة Or يمكنك استعمال علامة الجمع + بدلا من علامة الضرب * بين الشروط (أما في حالة + فيكفي تحقق شرط واحد فقط من الشروط ليجلب نتيجة البحث) بالتوفيق

يمكنك استعمال هذه المعادلة في الخلية K3 للبحث بثلاثة معايير : اسم الصنف والشهر والسنة =INDEX('m cost'!$E$3:$E$1062,MATCH(1,('m cost'!$B$3:$B$1062=C3)*('m cost'!$C$3:$C$1062=O3)*('m cost'!$D$3:$D$1062=N3),0)) بالتوفيق

هذه مشكلة اللغة العربية في اعدادات الويندوز لوحة التحكم المنطقة اداري تغيير الاعدادات المحلية اختر اللغة العربية المناسبة موافق لكل النوافذ المفتوحة اعادة التشغيل بالتوفيق

يمكنك استعمال هذه المعادلة للتوصل لتاريخ النهاية بعد 100 يوم عمل =WORKDAY.INTL($C$5-1,100,7) وهذه الدالة للإصدارات الأحدث (2010 وما بعدها) تراعي خيارات عطلة نهاية الاسبوع ورقم 7 يعني الجمعة والسبت ويمكن استخدام هذه الدالة للاصدارات الاقدم (2007 وما قبلها) =WORKDAY($c$5,100)-1 هذه الدالة تحسب عدد الأيام على ان اجازة نهاية الاسبوع هي السبت والاحد لذلك تم انقاص يوم من الناتج لتحسب على ان عطلة نهاية الاسبوع الجمعة والسبت ملحوظة: وتم تعديل الملف المرفق ليحسب عدد أيام العمل بين تاريخين للإصدارات القديمة بدالة networkdays والحديثة networkdays.intl بالتوفيق ايام عمل.xlsx