فضل حسين

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

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

الاستاذ الفاضل / حمادة عمر عمل رائع بارك الله فيك وجعله فى ميزان حسناتك . عمل اقل مايقال عنه انه ممتع ومنتظرين المزيد من الامتاع بكل شوق ولهفه بارك الله فيك وفى اعمالك وسعدك الله وامتعك فى الدنيا والاخرة

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

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

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

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

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

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

البقاء لله انا لله وانا اليه راجعون اللهم تغمدها برحمتك واعتق رقبتها من النار بحق هذا الشهر الكريم المبارك واجعل قبرها روضة من رياض الجنة والهم اهلها الصبر والسلوان اللهم امين

استاذى الفاضل / عميد الاكسل دغيدى الف شكر ياحبيبى وجزاك الله كل خير وكل عام وسيادتكم والاسرة الكريمة بخير والامة الاسلامية بمناسبة شهر رمضان المبارك اعاده الله على الجميع بالخير واليمن والبركات

الى الاخوة الافاضل كل عام وانتم بخير نرجو من سيادتكم للاستمتاع بهذا العمل الرائع ولزيادة فى الاستفادة والمعرفة والعلم نستئذن سيادتكم بنسخة من الملف ولكن بتنسيق اكسل 2003 لانه اكيد مما لاشك فيك اكيد عمل رائع ولسيادتكم جزيل الشكر

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

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

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

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

الى خبراء واعضاء منتداى العزيز والعظيم سلام الله عليكم ورحمته وبركاته كل عام وانتم بخير بمناسبة شهر رمضان المبارك اعاده الله عليكم وعلى جميع اعضاء المنتدى وعلى الامة الاسلامية فى كافة انحاء الارض بالخير واليمن والبركات . مرفق ملف موضح به المطلوب وجزاكم الله كل خير وشكرا فضل New ورقة عمل Microsoft Excel.rar

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

استادى الفاضل / رجب جاويش سامحنى سامحك الله وان شاء الله سوف تكون اخر ملاحظة ماهو تفسيرك عند تنفيذ هذا الكود وظهور رقم 1 Sub ragab() a = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday") b = UBound(Filter(a, "S")) Range("a1").Value = b End Sub

استاذى الكبير الفاضل / رجب جاويش اسمحلى ان استغل وجودك فى المنتدى الان وانا بكتب مشاركتى للاستفسار واجراء الحديث الممتع معك حول الكود اولا :- ما فائدة جمع الرقم واحد وممكن الاستغناء عنه بالتعديل البسيط لهذا السطر من الكود هكذا فبدلا من اكبر من جعلتها يساوى والكود يعمل بطريقة عادية وممتازة , If x = 0 Then Cells(i, cll.Column) = cll ثانيا :- ان مش متخيل شكل المصفوفة هل هى المصفوفة مرقمة مثلا من صفر الى مثلا 5 وبالتالى تخيلى عند احضار اخر رقم فى المصفوفة سوف اجد ارقام مختلفة ليست بالضرورة -1 ثالثا :- لن اخفى عنك سرا انا شاكك فى دالة filter وهى المسئولة عن هذا الرقم وان دورها مثل دور دالة countif عندنا فى الاكسل ولكن ليس معى دليل او ضمان لهذا الشك رابعا :- منتظر تفسيرك ورايك ياحبيبى .

استاذى الفاضل الكبير نجم الاكسل رجب جاويش سلام الله عليكم ورحمته وبركاته اشكر سيادتك على اهتمامك وحرصك على توصيل المعلومة . وهذا ليس بغريب على شخصية فاضلة مثلك تتمتع بسعة الصدر وحسن الخلق . وانا والله سعيد بهذة المشاركة ويكفينى فخرا بأن اتشارك مع نجم الاكسل استاذنا الفاضل جزاه الله كل خير / رجب جاويش ولكن وتحديدا واستفسارى هو بالنسبة لهذا الكود تحديدا x = UBound(Filter(Split(MyArr, ","), cll)) + 1 متفقين سويا بانه سوف يقوم باخراج رقم سواء كان هذا الرقم صفر او سالب واحد او واحد هنا السؤال الجوهرى مين فى هذه الدوال الثلاث ubound او filter او spilt كان المسئول عن اخراج هذا الرقم سواء كما قلنا صفر او واحد او سالب واحد فهمنا بالطبع ان دالة spilt وهى دالة من دوال visual basic 6 تقوم بتقطيع او بتجزئة النص الى عدة نصوص وفهمنا ايضا ان دالة ubound تقوم باحضار اخر رقم فى المصفوفة ودالة filter تقوم بعمل فلترة او تصفية على حسب معيار معين فمن اين خرج هذا الناتج سواء كان الصفر او الواحد او السالب واحد وشكرا ياحبيبى وارجو الا اكون اثقلت عليك جزاك الله كل خير وجعل جميع اعمالك فى ميزان حسناتك وشكرا

استاذى الفاضل نجم الاكسل رجب جاويش كل التحية والتقدير شاكرا لك هذا الشرح الجميل والمفيد . جزاك الله كل خير وبارك الله فيك فهذا عهدنا بك يانجم فى هذا الصرح العظيم وهو العطاء والعطاء بدون حدود . الف شكر وبالمناسبة وللظروف السعيدة وحظى السعيد وجد وانا بكتب لك هذة المشاركة اسم العلامة الكبير عبدالله بافشير اسفل المشاركة متابع هذة المشاركة .. ففرصة طيبة لان ادعو العلامة الكبير للمشاركة معنا فى هذا الكود . وان كان لى ملحوظة بسيطة على شرح الكود وهى تخص وكما فى المثال السابق اذا كان ناتج التصفية فارغ مثلا يكون ناتج الدالة UBound هو -1 واظن انها صفر ولااعلم ماهو الصح بالضبط دالة filter مش فاهم دورها قوى دالة ubound هل هى تحضر اخر رقم فى المصفوفة ولا ايه لست ادرى ومش عارف بالضبط على اى حالة بعد اذن استاذى الكبير نجم الاكسل ان ادعو العلامة الكبير عبدالله باقشير للمشاركة وادلاء رأيه وعلمه فى النهاية شاكر لك ياحبيبى يانجم الاكسل شكرا جزيلا وسعيد جدا بشرحك وبمشاركتك .

نجم الاكسل الاستاذ الفاضل / رجب جاويش حقا لك ان تفخر يانجم الاكسل بهذا العمل الرائع بسم الله وماشاء الله والحمد لله ولااله الا الله والله اكبر ولاحول ولاقوة الا بالله . حقا لك ان تفخر يانجم الاكسل بهذا العمل الرائع . كود مفيش اروع من كده ولااجمل من كدة . عمل انا بعتبره بصمة حقيقية وعمل تاريخى لك يانجم الاكسل . عمل بصراحة استوقفنى وادهشنى كثيرا لجماله وابداعه . واسمحلى يانجم الاكسل ياصاحب الوجه البشوش الجميل ياصاحب الخلق الرفيع ان ارفع لسيادتكم القبعة اجلالا واحتراما وتقديرا لهذا العمل الرائع الجليل من شخصية رائعة جميلة. عمل سيظل فى الذاكرة لنجم الاكسل . كل الاحترام والتقدير والحب لنجم الاكسل داعيا له مزيدا من الرقى والتقدم ومزيدا من الابداع والجمال . جزاك الله كل خير يانجم على ماتقدمه وسوف تقدمه . داعيا لك المولى عز وجل ان يجعل هذه الاعمال فى ميزان حسناتك اللهم امين . نجم الاكسل اظن امام هذا الكود الرائع وامام هذا الفكر العالى اظن انه ان الاوان لتلاميذ ومحبين واعضاء هذا الصرح العظيم وانا أولهم مثلما استمتعوا بالحل يجب ايضا ان يستمتعوا بالعلم والفهم والشرح من استاذ جليل مثلك . لذلك اسمح لى ان استئذن من سيادتكم اذا كان وقتكم وظروفكم تسمح . بأن تقوم سيادتكم بشرح هذا الكود وبالذات وظائف الكلمات الاتية trim ubound filter spilt ارجو الا اكون اثقلت او تجاسرت على سيادتكم بطلبى هذا ولكن عذرى او عزائى الوحيد هو كرم اخلاقكم الذى تعودنا عليه منكم وحسن اخلاقكم الذى ليس له مثيل . انا سوف انتظر وبكل لهفة وبكل حب وبكل استمتاع شرح سيادتكم . الذى اتوقع بانه سوف لايقل جمالا عن كودكم وابداعكم . جزاكم الله كل خير مع اجمل المنى وارق التهانى لشخصكم الكريم ولاتنسى يانجم الاكسل لك ان تفخر بهذا العمل الرائع فضل

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

الى خبراء واعضاء منتداى العزيز والعظيم سلام الله عليكم ورحمته وبركاته مرفق ملف موضح به المطلوب وجزاكم الله كل خير توزيع المواد تحت اسماء اعمدتها.rar