المشرفي

السلام عليكم ورحمه الله وبركاته جزاك الله كل خير استاذ ضاحي

بالتوفيق إن شاء الله تعالى

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

ما شاء الله بارك الله جزاكم الله خيرا 🏵️ واحسن إليكم آمين

أحسنت بارك الله فيك اخي الكريم 🏵️

السلام عليكم ورحمة الله تعالى وبركاته تهانينا الحارة للأستاذ الكريم حسونة مباركة هذه الترقية ، التي هي تشريف وتكليف ، راجياً أن تكون أعباء هذه المهمة خفيفة عليكم أخي الكريم مع خالص أمنياتي.. 🎉🎉 Congratulations 🎉🎉

مبارك عليكم الترقية المستحقة تهانينا الحارة 👍💥🌺💐

السلام عليكم أحسنت أخي @مهند محسن صيانة الحقوق الفكرية واجبة ، ويمكن للأخ السائل أن يستفيد مما لم يقم صاحب الملف بحمايته كيف يشاء. ولكن الأفضل وبما أن المنتدى تعليمي أن يقوم بعض السادة الخبراء بإعطاء دروس تتعلق باستخدام الدوال والـ VBA وأن يقوم صاحب الملف مفتوح المصدر بشرح وافٍ للاستفادة من الخبرات ، وليس فقط للاستهلاك كما هو واقع المحاسبين في كثير من المجالات يطبقون برامج معدّة مسبقاً فقط ...للأسف.تقبلوا تحياتي ومروري ..والسلام عليكم.

تفضل من ملف File خيارات

بعد إذنك أخي الكريم أعد النظر في الملف، بعد تعديل التحديث للملف ليصبح تلقائي... أو يمكنك التحديث من مفتاح F9

وعليكم السلام ..تفضل أخي الكريم =IF(SUM(I4:I10)<=100;SUM(I4:I10);"خطأ") الملف هنا بعد التحديث التلقائي. ملف تصورى.xlsx

رائع 👍 جهودكم مشكورة

السلام عليكم ورحمة الله وبركاته مبارك عليكم 👨‍🎓 congratulations

أرجو اختبار هذا الملف المرفق لم أعمل على الجدول الملون بالأخضر ، لأن عمليات الحساب فيه غير دقيقة للأسف. ملف العملاء.xlsx

السلام عليكم أخي الكريم @ayman ahmed أرأيت إن أرفقت ملفاً تعرض من خلاله المشكلة التي واجهتك بما يخص التعامل مع هذه الدالة، سيكون المجال أرحب وأفضل من هذه الأسطر التي شرحت لأن من سيجيبك سيعمل على التخمين فإما أن تصيب أو تخيب.... من هذه التخمينات مثلاً: هل تم تحديد البيانات المراد البحث من خلالها باستخدام مفتاح F4 ؟. =VLOOKUP(A2;$B$2:$C$5;2;0) ماهو تنسيق الخلايا الذي ستدرج الإجابة فيها (نص - عام - رقم ...إلخ...). الملف الأصلي غير مطلوب إحضاره ،أو إرفاقه بل المطلوب ملف مماثل ببيانات وهمية تحقق لمن يريد المساعدة إمكانية التعامل بشكل أمثل مع طلبك ليتسنى لك تطبيق الحل على ملفك الأصلي بكل سهولة ، بمعنى كم عدد الأعمدة لهذه الورقة أو تلك، مع تنسيق يشبه تنسيق الملف لديك.. هذا والله أعلم. والسلام عليكم

أخي الكريم @Mohammed Alsakka : السلام عليكم وبعد: تقوم بعمل تصفية لكل ما هو مسجل بالتاريخ الهجري، ثم تنتقل إلى مربع حوار تنسيق خلايا تبويب تنسيق الأرقام ......... تخصيص: تضع التنسيق التالي للتحويل إلى ميلادي: [$-,201]yyyy-mm-dd;@ بدلاً من: [$-,197]B2yyyy-mm-dd;@ وهكذا.... والسلام عليكم

قد فعلتُ ما ذكرت أخي الكريم بالترتيب من الأعلى إلى الأسفل ومن اليمين إلى اليسار من نوع الترتيب ......... خيارات الشهر ......... يوم .........شهر ......... سنة لكن: ما كل ما يتمنى المرء يدركه تجري الرياح بما لا تشتهي السفنُ ..لا عليك أخي الكريم. أعتذر إليك لأنني أتعبتك معي.

أخي الكريم @hassona229 للأسف قمت بحذفه من الجهاز لدي عندما عجزت عن استخدامه.🙁

جزاكم الله خيراً أستاذنا الكريم @بن علية حاجي ، أحسنت ، نحن في بحر زاخر مليء باللآلئ الثمينة تكمن في ثنايا صخورها وما على الغواص البارع إلا استخراجها ، قد تختلف الوسائل والسبل إلى ذلك لكن المهم النتائج...بارك الله بكم وبعلمكم. مع فائق تحياتي لشخصكم الكريم

تحية طيبة ..طبقت لك ما أردت حسب جداولك المرفقة ..أرجو أن تكون مفيدة ملف العملاء.xlsx

أخي الكريم تم عمل المطلوب باستخدام تنسيق الخلايا أرجو أن يفيدكم نسألكم الدعاء لنا قائمة.xlsx

تفضل أخي الكريم School.xlsx

يمكنك الاستعانة بهذا الملف إن شئت كود1 بحجم الشاشة: Sub test() ThisWorkbook.Application.WindowState = xlMaximized ThisWorkbook.Application.DisplayFullScreen = True Application.WindowState = xlMaximized Application.DisplayFormulaBar = False With ActiveWindow .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False .DisplayWorkbookTabs = False .DisplayHeadings = False .DisplayGridlines = False Cells.Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent1 .TintAndShade = 0.799981688894314 .PatternTintAndShade = 0 End With End With End Sub كود2 بحجم عادي: Sub test2() ThisWorkbook.Application.WindowState = xlNormal ThisWorkbook.Application.DisplayFullScreen = False Application.WindowState = xlNormal Application.DisplayFormulaBar = True With ActiveWindow .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True .DisplayWorkbookTabs = True .DisplayHeadings = True .DisplayGridlines = True Cells.Select With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With ActiveWindow.DisplayGridlines = True End With End Sub test.xlsm

تحياتنا لك ..ضع الكود التالي في حدث المصنف ..لكل الشيتات في المصنف الواحد Private Sub Workbook_Open() ThisWorkbook.Application.WindowState = xlMaximized ThisWorkbook.Application.DisplayFullScreen = True End Sub أما إذا أردت إخفاء تبويبات الأوراق يمكنك من ملف > خيارات > خيارات متقدمة > إخفاء التبويبات .... إلخ. تحياتنا لك.

تم التعديل على الملف برجاء الانتظار حتى تحميله أخي الكريم SEr.xlsx