ياسر خليل أبو البراء

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

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

أهلا بك ومرحبا بك في الصرح العملاق أوفيسنا .. شرفت إخوانك يمكن إخفاء التبويبات بسهولة من خيارات الإكسيل ثم خيارات متقدمة Advanced ثم تحت العنوان Display Options for this workbook أزل علامة الصح بجانب الخيار Show Sheet tabs

الاخ الحبيب ..ما هو طلبك تحديدا .. إذا قمت بإخفاء أعمدة محددة فلن تظهر عند الطباعة .......... أما بخصوص حذف الأعمدة ..هل أنت متأكد من موضوع الحذف ؟؟ حدد طلبك بدقة بدقة

إخواني الأحباب إذا لم تكن فكرة الألغاز تعجبكم فيرجى عدم المشاركة!! أريد تفاعل وطرح ألغاز من قبلكم ، لتنشيط عقول الأعضاء الخاملة .. طالما إن مفيش حد طرح لغز أطرح أنا واحد تاني.... ::اللغز الثاني:: في النطاق A1:B10 يوجد بعض الخلايا بها بيانات وأخرى فارغة .. ما الطريقة التي يمكن بها ملء الخلايا الفارغة بكلمة Blank مثلاً ؟؟ في انتظار حلولكم ومشاركاتكم بألغاز مفيدة وجديدة

الأخ شوقي ربيع .. تسلم الأيادي يا كبير .. جزيت خيراً ! هو دا الحل المثالي (الله ينور عليك) بارك الله فيك .. وجزاك الله خير الجزاء في الدنيا والآخرة هذا هو الحل الأمثل وهو دا اللي كنت في انتظاره للاستفادة بمعلومة جديدة ، ألا وهي CountLarge وليس Count حيث أن الخاصية Count تعطي خطأ overflow error فإذا كان النطاق المحدد أكثر من 2,147,483,647 أما الخاصية CountLarge تتعامل مع أكثر من 17,179,869,184 وبالتالي يمكن عد خلايا ورقة العمل باستخدام الخاصية CountLarge بالشكل التالي : Range("A1").Value = FormatNumber(Cells.CountLarge, 0) تم استخدام FormatNumber لتنسيق الرقم لإظهار فاصل الآلاف .. وهذا ملف مرفق بالحلول التي تقدم بها الأخوة الكرام (رغم اني مكنتش عايز أرفق ملفات .. لكن دا للناس الكسالى اللي هيكسلوا يطبقوا الحلول) انتهى اللغز الأول .. وفي انتظار الأخوة بالمشاركة بلغز مفيد وجديد Count Cells.rar

مشكور أخي أبو بهاء المصري أنا بانتظار حلول أخرى (من الآخر كدا فيه حل لسه محدش جاااااااااااابه ..فكرته جديدة نوعاً ما ) .. يلا يا حبايب ورونا الإبداع في منتدى الإبداع

ارفق ملف أخي الربيعي

حقيقة لم أفهم طلبك جيداً .. ولو كان طلبك واضحاً لتدخل أحد الأعضاء وساهم بحل .. لا يمكنني التخمين بالنسبة لطبك !!

الأخ الحبيب عزيز بدلا من كل تلك الأزرار قمت بعمل قائمة منسدلة تختار منها الشهر المراد إظهاره ...ثم اضغط على زر الأمر Aziz.rar

أخي الفاضل المعادلة في المشاركة الأولى غير مرفقة في الملف .. وفي الملف معادلة أخرى ..وهي ليست معادلة مركبة بل معادلة بسيطة ..هي الدالة Round ولها بارمتران الأول هو Number أي الرقم المراد تقريبه وهو في الملف ناتج ضرب خليتين (E4*F4) أما البارامتر الثاني خاص بعدد أرقام التقريب وهو في مثالك 3 أرقام .. وتمت إضافة شرط إذا كانت خلية من الخليتين فارغة يكون الناتج فارغ..

أخي الحبيب لم أفهم مقصدك أضفت في الكود شرط إذا كانت الخلايا C6 أو C7 فارغة يخرج من الإجراء الفرعي بدون تنفيذ

أخي الحبيب أبا اسماعيل ارفق ملفك لتكون الصورة واضح بالنسبة لي .. أعتقد أن الإخفاء سيؤثر على حجم الفاتورة ..عموما دعنا نلقي نظرة على ملفك أولاً

بارك الله فيك أخي الحبيب أبو عيد بالفعل فكرة في منتهى الجمال جربت الملف وعند فتحه مرة أخرى لا يتم طلب كلمة السر مرة أخرى إنما يتم فتح الملف مباشرة!!

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

الأخ الحبيب سليم .. بارك الله فيك ..جيت متأخر يا كبير ممنوع الملفات المرفقة في الموضوع ، اطرح الكود أو المعادلة في المشاركة نفسها .. قلنا الإجابة تكون في الخلية A1 وبس .. تاني حاجة تكون الفكرة غير مكررة ، وللأسف فكرتك مكررة حيث تقدم بها الأخ محمد الريفي وسبقك إليها .. حظ أوفر في الألغاز القادمة .. تقبل تحياتي

عدل الكود للتالي: Sub FilterTable() If IsEmpty(Range("C6")) Or IsEmpty(Range("C7")) Then Exit Sub With Sheets("التلاميذ").ListObjects("الجدول2").Range .AutoFilter Field:=1, Criteria1:=Range("C6").Value .AutoFilter Field:=2, Criteria1:=Range("C7").Value End With End Sub

الله ينور يا أستاذ محمد تسلم الأيادي . الأستاذ الكبير أوي شوقي ربيع ممكن تعيد لصق الكود مرة تانية عشان اللغة العربية تظهر منضبطة

بسم الله ما شاء الله ..الموضوع شكله هيطلع الإبداع اللي عند الناس كلها... الأخ الحبيب ابن مصر المبدع دائماً بارك الله فيك الأخ شوقي ربيع يشرفني ويسعدني مرورك العطر على الموضوع .. بس أفضل إجابة هتكون الأقصر حلاً (لا نريد أن يخرج الموضوع عن نطاق الترفيه ..بس كود في منتهى الروعة وكنا أكيد هنستفيد من خبرات حضرتك) نقطة مهمة بالنسبة لإخوانا المتابعين لحلقات افتح الباب Dim dNRng As Double استخدم الأخ شوقي المتغير Long في الإعلان عن المتغير الخاص بعد الأعمدة ، والمتغير الخاص بعد الصفوف ..أما المتغير dNRng فأعلن عنه من النوع Double حيث أن عدد الخلايا في ورقة العمل يتعدى حدود النوع Long .. جميل جداً إخواني ، وما زلت في انتظار حلول أخرى

الأخ محمد الريفي بارك الله فيك وجزاك الله خير الجزاء ، ومتزعلش من اللي جاي!! الملحوظة الأولى : اللغز لم يتضمن السؤال عن الإصدار 2003 (لازم الدقة في الإجابة) الملحوظة الثانية : الإجابة صحيحة والطريقة خاطئة .. إجاباباتك صحيحة بنسبة 100% ولكن ... الطريقة لابد أن تكون بالمعادلات أو بالبرمجة ..مش بالآلة الحاسبة ..(ما هي سهلة إننا نضرب عدد الصفوف * عدد الأعمدة) بس تسلم على المشاركة الفعالة عايزين الناتج يكون في الخلية A1

الموضوع الذي أقصده حلقات افتح الباب وهذا رابط الحلقات http://www.officena.net/ib/index.php?showtopic=56941

السلام عليكم ورحمة الله وبركاته إخواني الأحباب أقدم لكم اليوم موضوع ليس بموضوع .. لا فائدة منه ، وفيه فائدة من ناحية أخرى .. أعشق التناقض كما ترون (لأن التناقض يظهر المعنى ويوضحه ويبرزه) الموضوع ليس موضوع أي أنه لا يمكن أن يتمحور في نقطة واحدة ، إنما هو Open أي موضوع مفتوح للجميع ، وللجميع أن يشارك ويتفاعل ، ويطرح ألغاز يقوم الجميع بحلها. الموضوع فيه فائدة ، وهو الاستفادة من إمكانيات البرنامج عن طريق إظهار الحيل والتي تسمى باللغة الإنجليزية Tricks ، ومن ثم ففيه فائدة .. ببساطة ممكن نقول على الموضوع إنه هيكون : معلومة في شكل ترفيهي (معلومة TakeAway .. زي الوجبات التيك أواي) ، يعني خد المعلومة واجري ... هبدأ بأول لغز .. ولما نشوف مين أول عضو مجتهد (نقول الأخ الغالي سليم حاصبيا ؛ عشان ذكر إنه بيحب الألغاز) هيحاول يحل اللغز .. ويحل اللغز ويحط لغز تاني .. وهكذا .. اللغز الأول ::: ما هو عدد خلايا ورقة العمل في أوفيس 2007 أو 2010 أو 2013 ؟ (لا يسمح بالإجابات المجردة ..أي أن الإجابة تكون مصحوبة بكيفية الحل .. أي خطوات الحل)

جرب أخي الملف التالي لعله يفي بالغرض Worksheets Visible.rar

جرب أخي الحبيب الملف التالي Filter Table.rar

أخي الحبيب هذه محاولة للوصول لحل نهائي في الملف المرفق اكتب الحرف الذي يبدأ به الشيت أكثر من مرة ليعرض لك أسماء الشيتات التي تبدأ بهذا الحرف ثم اضغط إنتر في النهاية للانتقال إلى ورقة العمل المطلوبة Navigate By Pressing F1.rar