الشهابي

أستاذي الكبير / عبد الله باقشير حفظك الله من كل مكروه لا تعليق شيء فوق الخيال واعذرني على التأخر في الرد بارك الله فيك وجزاك الله خير لا زلنا منتظرين المزيد من هداياك من النوع الثقيل الله لا يحرمنا منك ومن هداياك تقبل تحياتي وتقديري

أخي العزيز/ أحمد غانم جزاك الله خير على التهنئة بمناسبة عيد الأضحى (عيد مبارك علينا وعليكم وعلى أعضاء المنتدى خصوصا والأمة الإسلامية عموما) أعاده الله أعوام عديدة بالخير واليمن والبركات بالنسبة لموضوعك أولا: لدي ملاحظة وهو أن بعض الأوراق عندك إتجاهها من اليسار إلى اليمين ( والبيانات عندك عكس من اليمين إلى اليسار ) هذه الملاحظة على بالي من البداية ولكن أنسى ذكرها في الرد لو تلاحظ أنني أقوم بتعديلها لأن ذلك يسهل عملية الربط بالنسبة للتقرير الذي أضفته إذا كنت تريده لفصل واحد فلماذا تضيف أرصدة الفصول الأخرى المهم عدلت في التقرير بحيث يجل بيانات فصل واحد المختار في الخلية (C4) كما يمكنك إختيار سنة معينة ( الأولى أو الثانية أو الثالثة ) من الخلية (D4) أو تتركها فارغة هذا وأي ملاحظات أخرى نرجو ذكرها وإن شاء الله نكون موفقين معك أخي العزيز والعفو ترحيل العام الجامعي(الشهابي 2)-2013- 2012.rar

الأستاذ العزيز / أبو نصار أولا : أتقدم إليك بالتهنئة بمناسبة قدوم عيد الأضحى المبارك تقبل الله من ومنكم ومن العائدين الفائزين ثانيا : ما شاء الله عليك تقدم ملحوظ وسريع في مجال البرمجة بارك الله فيكم أستاذنا وزادكم علما ورفعة تقبل تحياتي

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

أخي العزيز / أحمد غانم من العائديدن الفائزين وتقبل الله من ومنكم أخي العزيز لم أفهم مطلوبك ففي الإجمالي في أعلى الصفحة مجموع لكل فصل على حدة ولو قمت بتصفية متقدمة للبيانات ( حسب السنة) باختيار السنة الأولى أو الثانية أو الثالثة سيعطيك المجموع لكل الفصول لهذا الصف هل تقصد نسبة الجامعة والمعهد لكل فصل ( للصفوف الثلاثة ) هذا موجود حسب عملك أنت في ورقة ( المجاميع العامة ) فضلا الإيضاح للمطلوب بشكل مفصل حتى يتم فهمه والعفو يحدث ذلك بسبب تحسس الأحرف بحيث يتم الترتيب حسب ترتيب الحروف الهجائية لو تلاحظ الثانية والثالثة ( فالحرف الأول نفسه وهو الثاء ) لكن الحرف الثاني في الثالثة (ــا) ألف والثانية ( ـنـ ) نون وترتيب الألف قبل النون فالتالي يقدم الثالثة على الثانية ( ممكن تقدم رقم قبل التسمية ) ( 1الأولى ) (2 الثانية) ( 3الثالثة ) أو تكتفي بالأرقام هذا والله أعلم

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

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

أستاذنا القدير / عبد الله المجرب جزاك الله خير على مرورك الكريم وانتهز هذه الفرصة بأن أهنئك وأهنئ جميع أعضاء المنتدى الكرام بمناسبة عيد الأضحى المبارك من العائدين الفائزين جمعياً

أخي العزيز / الأستاذ أحمد غانم أولا جمعة مباركة ثانياً : هذه محاولة مني لتنفيذ ماطلبت ولكن مع إجراء بعض التعديلات في خانة السنة تم إلغاء الدمج تم إضافة أعمدة وخلايا وقمت بتلوينها باللون الأصفر كما قمت بإلغاء الفاصل بين السنوات في ورقة ( أرصدة 3 فصول) كما أضفت الإجمالي أعلى الصفحة وهو الأفضل في حالتك هذه لأن البيانات قابلة للزيادة المهم لاحظ المرفق وإن شاء الله يفي ولو بجزء من المطلوب وإن كان لدي مقترح وهو : أن يتم فصل السوات في أوراق مستقلة وليس الفصول الدراسية أو يتم جعلها كلها في صفحة واحد السنوات والفصول بحيث : يتم كتابة السنة أما الطالب ويتم عمل أعمدة مستقلة لكل فصل ومن ثم عمل ورقة أو ثلاث ورق لفصل كل سنة على حدة و أكرر الأفضل أن يكون المجموع والإجمالي في راس الصفحة والعفو تقبل تحياتي ترحيل العام الجامعي-2013- 2012 (1).rar

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

الأخ العزيز / مرعي السيد ماشاء الله عليك معادلة رائعة بارك الله فيك وزادك علما ومعرفة تقبل تحياتي

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

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

أخي العزيز / الحامد الشاكر هذه محاولة مني للحل مع شرح سريع للحل وطريقة إضافة جدول آخر إن شاء الله أكون توفقت قيمة خلية بناءً على مجموعة قيم.zip

الأخ العزيز / الحامد الشاكر بالنسبة للرسم البياني لا علم لي بذلك أما بالنسبة للخلايا تم تطبيق معادلة أستاذنا القدير أبو أحمد في المشاركة رقم 3# على ملفك والعفو Chart.zip

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

أستاذ / محمود أعجبت كثيرا بطريقة المعادلات التي عملتها وصدقت يعتبر شبه مستحيل لكن ليس على أمثالك أستاذنا فكرة رائعة جدا على الرغم من حدوث خلل في بعض الأسماء المركبة مثل ( عبد الله أبو بكر بن شهاب ) وهذا ليس عيبا حدث هذا حتى في دالة الأستاذ عبد الله غير أن عالمنا الجليل الأستاذ عبد الله عمل مصفوفة يمكن إضافة جزء من الكلمة المركبة مثل ( بن شهاب ) تضع في المصفوفة ( "بن " )ثم مسافة أي فراغ بعدها وهذه المصفوفة في كود الدالة مع إضافة بعض اسمين من الأسماء المركبة المستخدمة في بلادنا وهي ( "بن " ) ( "مولى " ) MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق", "بن ", "مولى ") تقبل تحياتي وتقديري لعطائكم الدائم في هذا المنتدى

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

أستاذي القدير / عبد الله باقشير هذه محاولة قمت بها للتعديل على الكود الأول لغرض التعلم منكم وقمت بتطبقه وهو يؤدي المطلوب إن شاء الله لو في خطأ في التعديل ممكن تتفضل مشكوراً بتوضيحه وجزاكم الله خير [/b] [b]' للخصم Sub kh_SUM1() Dim Cel As Range For Each Cel In Range("D12:D26") If CStr(Cel) = CStr(Range("D4")) And Cel.Offset(0, 1).Value = Range("e4") Then Cel.Offset(0, 2).Value = Val(Cel.Offset(0, 2)) - Val(Range("f4")) End If Next End Sub[/b] [b]' للجمع Sub kh_SUM2() Dim Cel As Range For Each Cel In Range("D12:D26") If CStr(Cel) = CStr(Range("D8")) And Cel.Offset(0, 1).Value = Range("e8") Then Cel.Offset(0, 2).Value = Val(Cel.Offset(0, 2)) + Val(Range("f8")) End If Next End Sub[/b] [b]

أخينا العزيز / alfahad بداية موفقة إن شاء الله وشرح مستفيض ورائع وتنسيق أروع إن شاء الله نرى المزيد منكم لا تبخلوا علينا بأي معلومة تملكونها مهما كانت بارك الله فيكم وجزاكم الله كل خير تقبل تحياتي

الأخ / منير برهم استعمل المعادلة التالية في الخلية (C43) واسحيها لأسفل : =SUMPRODUCT(--($A$1:$AJ$40=B43)) لم أفهم المقصود من طلبك هذا فضلا مزيد من التوضيح والعفو

الأستاذ / أبو حنين والأستاذ عبد الله المجرب والأستاذ محمود وكذلك الأستاذ يوسف أنتم الذين دائما رائعون بارك الله فيكم جميعا تقبلوا شكري وتحياتي تلميذكم الشهابي

أستاذنا القدير / يوسف عطا لو تريدها من خلال التنسيق الشرطي بدون أكواد إليك هذا الملف تنسيق شرطي بمعيارين.rar

سلمت يداك أستاذ عبد الله بصراحة ولا أحسن من ذلك على الرغم أنني أريد الفورم لعدة صفوف أي عدة أرواق وليس ورقة واحدة ولكن الحمد لله تم حل هذه المشكلة بالنسبة للحدف فعلا يحذف صف بكامله وربما يؤثر على الحسابات في الملف فأفضل حذف البيانات فقط ولكن يمكن التخلي عنها واستخدام زر المسح فقط بقيت نقطة واحدة غيرتها من الفورم والسابق وهي نطاق رؤوس الأعمدة لا يقبلها إلا متوالية وإنما أريدها بالشكل التالي كما كانت في الفورم السابق مثلا: Private Const MyCol As String = "A1:L1,J1:K1,AG1:BA1" ولو في إمكانية إضافة العمود (D) أي عمود رقم القيد ولكن يبقى العمود الإجباري العمود (E) عمود الاسم واعتقد أن تغير رؤوس الأعمدة بالطريقة التي طلبتها سيحل الأمر بالنسبة لعمود رقم القيد والله أعلم والعفو

بشرك الله بالخير أستاذ عبد الله وفي انتظاركم إن شاء الله