جمال عبد السميع

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

بعد إذن أختى " أم عبد الله " وزيادة فى الخير أستخدم هذه الصيغة =0+TEXT(A1;"00") =REPLACE(A1;FIND(".";A1);6;"")*1 =LEFT(A1;FIND(".";A1)-1)*1 =SUBSTITUTE(A1;SUBSTITUTE(A1;TRUNC(A1);"");"")*1 =TRUNC(A1) =ROUNDDOWN(A1;0) ثم اختار تنسيق خلايا ومن تبويب رقم اختار الرقم ومنه اختار المنازل العشرية التى تريدها وبكده هذا الموضوع قتل بحثا أو أستخدم هذا الكود تقبلوا : تحياتى أستخراج الرقم قبل العلامة العشرية.rar

وهذه تصفية عمود " تاريخ " بالمعادلات . ونظرا لأنك تستخدم أوفيس أعلى من 2003 فستكون معادلتك للتخلص من " #NUM! " هى: وهى معادلة صفيف كما بالمرفق أى لابد من الضغط على " CTRL+SHIFT+ENTER " وليس " ENTER " فقط =IFERROR(INDEX($A$3:$A$306,SMALL(IF(ISNUMBER(SEARCH(TEXT($A$1,"mmm");TEXT($A$3:$A$306,"mmm"))), ROW($A$3:$A$306)-ROW($A$3)+1),ROWS($A$1:A1))),"") تقبلوا : تحياتى فلترة عمود تاريخ.rar

أستاذى " عبد الله بقشير " ماشاء الله ، كود رائع ، لإنسان رائع كل يوم نتعلم منه المزيد والمزيد بارك الله فى حضرتك وأدامك الله لنا معلما تقبل تحيات : تلميذك

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

تفضل أخى هذا الكود وأعتقد ، أنه سيحقق لك ماتريد تقبل تحياتى ترتيب أبجدى وحسب الجنس.rar

أخى الحبيب " محمد الريفى " أولا - شكرا على مرورك الكريم ، وكلماتك الرائعة ثانيا - الكود بسيط للغاية ، حيث يتم وضعة فى حدث الصفحة بدون أزرار ، وهو يعتمد على عمل "add " لل " comment " ثالثا - بدأت بعد ذلك فى تحديد مواصفاتة ، عن طريق 1- تحديد مداه If Not Intersect(Target, Target.Worksheet.Range("A1:A1000")) Is Nothing Then If Not Target.Comment Is Nothing Then 2- ثم بدأت بعد ذلك فى وضع محتواه وهى دالة " now " 3- ثم بدأت بتنسيقها " كتاريخ وزمن " Target.Comment.Text Format(Now(), "yyyy/mm/dd hh:mm:ss PM/AM") 4- والخطوة الأخيرة هى وضع تنسيق لل " comment " نفسة من حيث التحكم فى " عرضة وطولة ، ليسهل التحكم فى حجمة الملائم لعملية الظهور Target.Comment.Shape.Height = 12 Target.Comment.Shape.Width = 75 وهذا هو الكود بالكامل ، أتمنى أن أكون وفقت فى توضيحة Private Sub Worksheet_Change(ByVal Target As Range) 'GAMAL ABD ELSAMEH 22/8/2014 If Not Intersect(Target, Target.Worksheet.Range("A1:A1000")) Is Nothing Then If Not Target.Comment Is Nothing Then Target.Comment.Text Format(Now(), "dd/mm/yyyy hh:mm:ss AM/PM") Target.Comment.Shape.Height = 20 Target.Comment.Shape.Width = 75 Else Target.AddComment Format(Now(), "dd/mm/yyyy hh:mm:ss AM/PM") Target.Comment.Shape.Height = 20 Target.Comment.Shape.Width = 75 End If End If End Sub تقبل تحيات : أخيك

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

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

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

طريقة أخرى إلى جانب طريقة أستاذى " بن علية " لعلها تفيد ,وهى فلترة وتنسيق بمعادلة واحدة تنسيق وفلترة تاريخ.rar

بعد إذن أخوتى الأعزاء وهذه الحلول الجميلة أعتقد هذا الحل سيفى بالغرض ويفيض لأن طول النص به غير محدود ولايعتمد على كلمة معينة تقبلوا تحياتى =IFERROR(TRIM(RIGHT(SUBSTITUTE(TRIM(A1);" ";REPT(" ";99));8*99))&" "&"فى الفرع 1";"")

أخى الحبيب " حليم ناصر " شكرا على مرورك الكريم ، ودعائك بارك الله فيك تقبل تحيات أخيك

أختى الغالية " أم عبد الله " شكرا أختى الغالية " أم عبد الله " على دعائك الجميل هذا وبارك اللهم فيكى وزادك الله من فضلة وعلمة ، وجعل جميع أعمالك الرائعة التى أسعد بها دائما التى تقدمينها فى ميزان حسناتك تقبلى تحياتى : أختى الغالية

وأعتقد هذه المعادلة يمكن أن تكون أدق لوأستخدمت تاريخ الجهاز =IF(DAY(DATE(YEAR(NOW());MONTH(NOW())+1;0))=DAY(NOW());(E2-K2)+L2;"") وطبعا لن تعطى قيمة لأن التاريخ الحالى لم يصل لنهاية الشهر بعد ، لو أردتها تعمل كما تريد غير نتيجة الجهاز إلى (31/8/2014 ) ستجد أنها تحقق النتيجة المطلوبة ، أوضع التاريخ الذى تريدة وعدل المعادلة لخلية التاريخ بدل دالة " NOW " تقبل تحياتى

بعد إذن أخى الحبيب " محمد " أنظر للمرفق لعله المطلوب تقبل تحياتى زيادةقيمة عند نهاية كل شهر ميلادى.rar

ماأجمل دعواك ، التى تعادل الدنيا وما فيها شكرا أخى الحبيب " محمود" وتقبل اللهم منا جميعا صالح الأعمال وتكون خالصة لوجه الرحمن تقبل تحيات : أخيك

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

أخى الحبيب " الدهشورى " شكرا على مرورك وكلماتك بارك الله فيك وأكثر الله من أمثالك تقبل تحيات : أخيك

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

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

أخى الحبيب " محمود الشريف " مرورك يسعدنى ويشرفنى وخاصا لأخ قدير فى عالم الأكواد ،وأرجو فعلا أن يحقق الكود الهدف منه ويكون عند حسن الظن شكرا أخى الحبيب على مرورك وكلماتك وبارك اللهم فيك تقبل تحيات أخيك

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

أخى الحبيب " محمد نصرى " شرف لى أخى توارد أفكارنا ، من ناحية والرغبة فى الأضافة والتميز من ناحية أخرى وأنا عندما أضع معادلة فلم تعد ملكا لى ولكن ملكا لهذا الصرح ومستخدمها فلايمكن الأدعاء بتشابة معادلة ، أو ملكيتها فأنا أنظر وأتابع لكل عمل فى هذا الصرح رغبة منى : 1- فى التعلم 2- رغبة فى الحصول على فكرة 3- رغبة فى خدمة الغير طالما هناك المقدرة لذلك فأرجو فعلا أن تضيف لها وخاصا أنها واقفة على " 7" معاملات للدالة " SUBSTITUTE "ولو حضرتك أستطعت إضافة لها مزيدا من الشروط تكون أنجزت لى ولكافة الزملاء المتكلمين بالعربية ومستخدمى الأسماء المركبة وهذه كانت النقطة التى طلبها ، أستاذى " سعيد بيرم " ، وعجزت نظرا لأن معاملات دالة ال " SUBSTITUTE " قد وصلت أقصاها وهنا نقوم بحذف شرط وأضافة أخر حسب المطلوب لتحقيق الطلب ولكن أنا عملت كود يستطيع فصل " كافة الأسماء المركبة " مهما كان طولها ولكن هذا لم يشبع غرورى ، لأن إمكانية الكود لعمل ذلك ليست غريبة ولا صعبة ، وأنا أريد المعادلة تقوم بذلك وهناك عباقرة الكود والمنتدى ملئ بهم أمثال عبقرى الوطن العربى " عبد الله بقشير " وقد سبقنا جميع فى هذا بمعادلتة المعرفة التى مازالت وستظل تستخدم لجميع مستخدم الأكسيل فى الوطن العربى كله لتقسم الأسم وقمت بعمل ذلك فعلا بالدوال ، ولم يكن هناك غير الأسم المركب ففكرت فى هذه المعادلة ولكن عجزت أيضا لأن لها مدى ، وأن كانت عمليةلتحقيقها فصل العديد من الأسماء مهما كان طولها فأتمنى لك أخى الحبيب التوفيق والتميز ، فهذا يشرفنى ويثلج صدرى تقبل تحيات أخيك

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