بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم ناصر سعيد، أعتقد أنه قد تم المطلوب حسب فهمي له (أرجو ذلك)... انظر الملف المرفق وأعلمني إن كانت هناك تعديلات أخرى... أخوك بن علية الملف المرفق : كود الدوائر الحمراء على الشهادات.rar

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

السلام عليكم ورحمة الله أخي الكريم تم عمل المطلوب في الملف المرفق، بالنسبة للشرح -وهذه أصعب المراحل- أقول وبحمد الله: تم إدراج عناصر القائمة المنسدلة (حسب الحالات) في العمود IU بداية من الخلية IU2 (يمكن الاطلاع عليها) وتم تسمية هذه القائمة بالتسمية List (في هذا الملف) ثم تم إنشاء عنصر التحكم بالقائمة المنسدلة باستعمال أدوات VBA وربطه بالقائمة المنسدلة المسماة List وبالخلية IT2 ثم ربطه بالكود الذي سميته hben (كود الإخفاء والإظهار)... وفي هذا الكود تم التعديل على أسطره لإخفاء وإظهار الأعمدة حسب الحالات المنصوص عليها في القائمة المنسدلة وحسب عددها، لا أستطيع أن أشرح أكثر... لست أدري إن كنت قد أوصلت الفكرة؟ وأرجو أن تعذرني على هذا التقصير في الشرح... الملف المرفق بنسخة إكسيل 2003 : شيت الصف الخامس اظهار واخفاء مع الشرح.rar ملاحظة : إن حدث معك أي مشكل عند فتح الملف باستعمال إكسيل 2007 أو أعلى، أبلغني بذلك لأضع لك الملف المناسب لهذه النسخ من الإكسيل (مثل ما فعلتُ سابقا) أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، أعتقد أن الورقة محمية دون كلمة سرية، قم بإلغاء الحماية عنها (دون استعمال أي كلمة سرية) واكتب ما تريد من الأصناف (وبالمثل بالنسبة للأوراق الأخرى التي يتم فيها الحجز يدويا).... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، إن الزر الوحيد غير المفعل هو "عن البرنامج"، أما الباقي فكلها عندي مفعلة.... جرب هذا المرفق الذي فتح معي... أخوك بن علية المرفق : Al Zayed Sales And Stores v.02.rar

السلام عليكم ورحمة الله أخي الكريم، انظر المرفق لعل فيه المطلوب. أخوك بن علية المرفق : Book1.rar

السلام عليكم ورحمة الله أخي الكريم، تم التعديل على الكود بما يناسب المطلوب.... أخوك بن علية الملف المرفق : book11.rar

السلام عليكم ورحمة الله أخي الكريم أبو حازم، يمكن ضم هذا النطاق إلى التسمية Plage وترك الكود كما هو أو يمكن إضافة هذا النطاق إلى الكود فيكون الجزء من الكود كما يلي : Range("Plage,ddd").Interior.Color = [B2].Interior.Color والله أعلى وأعلم أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، هذا المشكل يظهر عادة عندما نريد فتح ملف من نسخة إكسيل 2003 بنسخة إكلسيل 2007 أو أعلى، والمشكل يتعلق بلتوافق بين هذه النسخ للإكسيل... أضع بين يديك نسخة أخرى للملف تم حفظه في إكسيل 2010 (بالامتداد .xlsb)... أرجو هذه المرة أن يعمل معك الملف دون مشاكل (ولكن قبل فتحه بالإكسيل يجب تمكين وحدات الماكرو في خصائص الإكسيل)... أخوك بن علية الملف المرفق : شيت الصف الثانى الابتدائى_4.rar

السلام عليكم ورحمة الله أخي الكريم، لست أدري ولكن الملف الذي أرفقته يحوي ورقة واحدة فقط وهي ليست محمية لا بكلمة سر ولا بغير ذلك!!! أرجو التأكد من الملف المعني أخوك بن علية

السلام عليكم ورحمة الله ولو كان الخلية الرئيسية في ورقة أخرى كيف بكون الكود وشكرا جزيلا الأمر سهل، إذا كانت الخلية الرئيسية في ورقة أخرى، يكفي إضافة قبل [b2] اسم الشيت المعني باستعمال العبارة .("WorkSheets("Sheet2 أو .Sheet2 فيكتب الجزء من الكود : [Plage].Interior.Color = [B2].Interior.Color على الشكل : [Plage].Interior.Color = WorkSheets("Sheet1").[B2].Interior.Color أو على الشكل : [Plage].Interior.Color = Sheet1.[B2].Interior.Color أرجو أني وفقت في الإجابة ملاحظة : التسمية Plage هي تسمية لنطاق كل الخلايا التي نريد تلوينها أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، لست أدري إن كان هذا شكر أم تذمر أم غير ذلك، تعرف أخي الكريم أن لكل منتدى قوانينه ودائما يُوجه أعضاؤه إلى قراءة هذه القوانين قبل المشاركة والدعوة إلى الالتزام بها حتى يمكن من السير الحسن للمنتدى... وتجد في هذه القوانين إجابات كثيرة لتساؤلاتنا حتى لا نخرج من نطاق صلة الأخوة بين الأعضاء... والكل في المنتدى يتعلم ولا فرق بين أعضائه... ومن عادة المنتدى في هذا الشهر الكريم أن يغيب جل أعضائه وتجد مشاركات البقية نادرة جدا...لذا لا نتذمر حين لا تكون ردود على مواضيع ومطالب وتساؤلات وضعناها في المنتدى مباشرة بعد وضعها فقد تأخذ الوقت الكثير حين يتبناها أحد الأعضاء... وتجد أيضا عكس هذا تماما الكثير من المواضيع تم الإجابة عنها من طرف أعضاء من المنتدى ولكن أصحابها (رغم أنهم قالوا إنها مستعجلة) لا يراجعونها إلا بعد فترة، هل نتذمر أيضا على هذه الحالة؟... المهم في الأخير تقبل اعتذارنا وأسفنا على كل ما بدر بيننا... تقبل تحياتنا الخالصة أخوك بن علية

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق... بن علية الملف المرفق : م التدريب الادارى.rar

هذا تعديل آخر على الكود في الملف المرفق... المرفق : شيت الصف الثانى الابتدائى_3.rar

السلام عليكم ورحمة الله أخي الكريم يمكن استعمال الكود التالي في حدث الورقة : Private Sub Worksheet_SelectionChange(ByVal Target As Range) [Plage].Interior.Color = [B2].Interior.Color End Sub ألق نظرة على المرفق... أخوك بن علية المرفق : اللون.rar

السلام عليكم ورحمة الله باعتبار أن البيانات في العمود G تبدأ من الصف الأول بالقيمة 0.1 وتتزايد في كل صف بالقيمة 0.1 فيمكن استعمال المعادلة البسيطة التالية في العمود C : =INDEX($H:$H;10*(A1+B1)) أرجو أن تفي هذه المعادلة الغرض المطلوب أخوكم بن علية

تم تصحيح المعادلة وإضافة حل آخر بالدالتين MATCH و INDEX المرفق : مشكلة.rar

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

انظر المرفق لعل فيه ما تريد.... مساعدة فى تعديل معادلة.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، إن المعادلات في الأعمدة من C إلى L في الشيتين (المغادرين - القادمين) مرتبطة بالعمود B (المخفي) من كل شيت، والعمود B من كل شيت مرتبط بعمودين من شيت "عام" : العمود A بالنسبة لشيت "المغادرين" وبالعمود D بالنسبة لشيت "القادمين"... والعمود A في الشيتين (المغادرين - القادمين) الذي استعملت فيه الدالة SUBTOTAL جعلته مرتبطا بالعمود B من كل شيت (ويمكن ربطه بأي عمود آخر من الشيت المهم يكون في هذا العمود بيانات) أرجو أني أجبت على استفسارك أخوك بن علية

السلام عليكم ورحمة الله جمعة مباركة للجميع... أخي الحبيب أبو حنين، تم عمل المطلوب (تطبيق الاقتراحات السابقة على الملف) في ورقتي "المغادرين" و "القادمين" مع إضافة معادلتين على الجانب الأعلى الأيسر تعطيان العدد الإجمالي للبيانات المستدعاة وعدد البيانات المفلترة... أرجو أن يفي هذا التعديل بالغرض المطلوب. ملاحظة : نم تمدبد نطاق البيانات في شيت "القادمين" بخمسين صف أخرى لأن البيانات المستدعاة أكثر من 200 أخوك بن علية مانفست .rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، مشكلة الإحصائيات تم حلها باستعمال الدالة SUMPRODUCT ولكن هناك مشكلة أخرى هي أن البيانات في الأعمدة من B إلى K في الشيت تعتمد على الرقم التسلسلي في العمود A وهذا يُظهر خطأ في البيانات بعد الفلترة... ولحل المعضلة يجب إدراج عمود آخر بين العمودين A و B (ويكون هو العمود B بالمعادلات التي كانت في العمود سابقا وهذا العمود يمكن إخفاؤه) تعتمد عليه المعادلات في الأعمدة الأخرى... أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، يمكن استعمال المعادلة التي اقترحها أخونا الكريم جمال عبد السميع في الخلية B6 ولكن تكون لها علاقة بالصف 5 أي تكون على الشكل التالي: =IF(D5="";"";SUBTOTAL(103;$B$5:B5)) وتطبيقها على ملفك تجده في المرفق ويبقى المشكل في الإحصائيات بالأعلى (على اليسار) بعد الفلترة... أخوك بن علية مانفست .rar