المشرفي

السلام عليكم ورحمه الله وبركاته

جزاك الله كل خير استاذ ضاحي

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

السلام عليكم ورحمة الله وبركاته

إخي الكريم قد يكون سبب الخطأ وجود مقسم العرض 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