اذهب الي المحتوي
أوفيسنا

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

المشرفين السابقين
  • Posts

    3,724
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    116

كل منشورات العضو جمال عبد السميع

  1. طلباتك أوامر أستاذى " ياسر خليل " بهذه المعادلة يحل فصل أسم العائلة " حتى لومركب " إعتمادا على عدد الفراغات بين الأسم ونظرا لأننا نريد حذف الأسم الخماسى ، تم وضع علامة الأس فى المعادلة " ^ " بدل الفراغ " 4 " وهو الفراغ المراد حذف الأسم بعده ثم يتم البحث عن هذه العلامة وحذف مابعدها وبفرض أن الأسم الأول موجود فى الخلية " B2 " نضع هذه الصيغة ونسحبها لأسفل تحل المشكلة بإذن الله =IF(ISERROR(LEFT(B2,FIND("^",SUBSTITUTE(TRIM(B2)," ","^",4)))),B2,LEFT(B2,FIND("^",SUBSTITUTE(TRIM(B2)," ","^",4)))) تقبل تحياتى : أستاذى حذف الأسم الخامس.rar
  2. كيف لاتعمل المعادلة أخى أليس هذا دليل على عملها جرب أخى الملف قبل الحكم تقبلوا تحياتى حذف الأسم الخماسى.rar
  3. تفضل أخى القائمة وبها الشرح تقبل تحياتى القائمة الذكية.rar
  4. تفضل أخى هذا الرابط http://www.officena.net/ib/index.php?showtopic=55772
  5. جرب هذه المعادلة أخى وأعلمنى بالنتيجة ولكن هناك ملحوظة هامة : فى حالة الأسماء المركبة ، ضع بين الكلمتين "." أو "- " =IF(LEN(A2)-LEN(SUBSTITUTE(A2," ",""))+1<=4,A2,LEFT(A2,FIND("^",SUBSTITUTE(A2," ","^",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))-1))
  6. الملف موجود " أستاذى " ونورت المنتدى مرة أخرى لأن حضرتك من أساتذة الزمن الجميل اللذين تتلمذنا على أيديهم تقبل تحيات : تلميذك
  7. ملحوظة هامة أخوتى بخصوص هذه المعادلة هذه معادلة قمت بصياغتها على أكسيل 2003 وكان بها قصور ، نظرا لأن أكسيل 2003 لايمكن أن تمتد فيه شروط دالة " SUBSTITUTE " عن سبع شروط ولكن فى الأصدارات الأعلى يمكن عملها كما هو موجود بهذا المرفق ، وكما تفضل أخى الحبيب " محمد نصرى " بتقديمها علية لذلك لكل من يستخدم هذه الصيغة ، لابد من إستخدامها فى الأصدارات الأعلى عن إصدار 2003 حتى تحقق المطلوب تقبلوا : تحياتى
  8. أخى الحبيب " محمد الريفى " شكرا لكم أخى على هذا التنوية، ولأعمالكم ومعادلتكم الجميلة وجمالها يكمن فى بساطتها وبعدها عن معادلات الصفيف ، التى تثقل العمل أخى الحبيب أنت تعلم علم اليقين مدى عشقى وحبى للمعادلة ، ولن أرضى عنها بديلا لذلك كان قد قام أستاذنا عبد الله بقشير بعمل كود " لحذف الهمزات ، والتاء المربوطة ، والياء " مما قد يسبب خطأ فى الترتيب وقد قمت بعملة فى معادلة وتمت إضافتة لهذا العمل ليبعد الترتيب عن أى خطأ تقبل : تحياتى ترتيب أبجدى مع حذف كل الأحرف التى تعيق الترتيب.rar
  9. بعد أذن أخى " سليم " وبعد حله الجميل ، وزيادة فى الخير أنظر أخى هذا الرابط به طريقة أخرى للحل تقبل تحياتى http://www.officena.net/ib/index.php?showtopic=55772
  10. لاحظت أن هذا الطلب يطلب كثيرا من الأخوة الأعضاء وكلا منا يدلو بدلوة فى الأجابة ففكرت أن تتم هذه العملية عن طريق المعادلة التى أعشقها وكما أحاول جاهدا أن تكون تلك المعادلة بسيطة قدر الأمكان ملحوظة: المعادلة تعمل بكفاءة ودقة فى القائمة المرتبة أبجديا ، لذلك عملت كود الأبجدة ليخدم القائمة فقط وليس له دور فى عمل المعادلة أتمنى أن يكون المرفق به الأستفادة المرجوة منه ، من قبل زملائى تقبلوا : تحيات أخيكم القائمة الذكية.rar
  11. إستحالة أخى تنفيذ ذلك عن طريق المعادلة ، ليس أمامك سوى الكود تقبل تحياتى
  12. وممكن كذلك أستاذى بدون جدول مساعد مش عارف لية النسبة معايا مختلفة عن نسبة حضرتك أستاذى عبد الله " =VLOOKUP(B7,{0,0;50,0.06;250,0.065;500,0.07;1000,0.075;5000,0.08},2)*B7 لقد قمت بتطبيق هذه الشروط فكانت النسبة الموجود بالمرفق لأن الشروط بها تشابة فى نهايتها فمثلا لوكان المبلغ " 500 " هل سيتم ضربة فى " 6.5 % " أم سيتم ضربة فى " 7% " أعتقد الأصح يتم ضربة فى " 6.5 % " =VLOOKUP(B7,{50,0;250,0.06;500,0.065;1000,0.07;5000,0.075;10000,0.08},2,1)*B7 تقبلوا تحياتى النسبة المئوية 2.rar
  13. بعد إذن أخى الحبيب "سليم " وحلة الرائع حل أخر أتمنى يكون به الأفادة تقبلوا تحياتى تكرار بالعدد المطلوب.rar
  14. حاول أخى تغيير الفصلة بين أطراف المعادلةمن", " إلى "; " ربما تكون هى السبب أما المعادلات فمجربة وليس بها شئ تقبل تحياتى
  15. المعادلات المقدمة لحضرتك معادلات شرطية أى يمكن تغيير شروطها وفقا لما تريد وعلى العموم جرب نفس المعادلة الموجودة عندك ولكن تم تغيير الشرط فى حالة عدم وجود رقم يتم إرجاع النص كما هو =IF(ISNUMBER(ورقة1!$B2),ورقة1!$B2,IF(ISTEXT(ورقة1!$B2),ورقة1!$B2,"")) =IF(ISNUMBER(ورقة1!$B2),ورقة1!$B2,ورقة1!$B2) =IF(ISNUMBER(ورقة1!$B2),SUMPRODUCT(--(ورقة1!$A$2:$A$11>=A2)*(ورقة1!$A$2:$A$11<A3))*ورقة1!$B2,IF(ISTEXT(ورقة1!$B2),ورقة1!$B2,"")) تقبل تحياتى
  16. حلول رائعة من أساتذة رائعين حل أخر ضع هذه المعادلة فى الحلية " B2 " وأسحبها لأسفل =SUBSTITUTE(A2,"-","")&LOOKUP(LEN(A2),{5,6,11,13},{500,600,550,660}) المعادلة الأخيرة والأهم على الأطلاق تفضل أخى أعتقد هذه ستحقق كل ماتريد =IF(COUNTIF(A2,"*-*"),SUBSTITUTE(A2,"-","")&550+110*(FIND("-",A2)=7),A2&500) تقبلوا تحياتى
  17. كيف سيتم حساب النص فى العمود أخى ؟ لم تعطى له نتيجة فى العمود فى حالة عدة ؟ هل سيتم عده على أساس الأحرف المكونة له ؟ أم ككلمة موجودة فى العمود ؟ على العموم أنظر لهذا المرفق أتمنى يكون المطلوب وهذه تحقق طلبك بنفس شروط معادلتك =IF(ISNUMBER(ورقة1!$B2),SUMPRODUCT(--(ورقة1!$A$2:$A$11>=A2)*(ورقة1!$A$2:$A$11<A3))*ورقة1!$B2,IF(ISTEXT(ورقة1!$B2),1,"")) تقبل تحياتى تطبيق معادلة على الأحرف.rar
  18. هل هذا ماتريدة أخى =VLOOKUP(E12,{1,"مسائى";2,"مسائى";3,"مسائى";4,"مسائى";5,"صباحي ";6,"صباحي ";7,"صباحي ";8,"صباحي ";9,"صباحي ";10,"مسائى";7,"صباحي "},2,FALSE) لن تحتاج فيها كتابة عمود الفترة يكفى كتابه الرقم فى " E12" فقط ويمكن تغيير الناتج المقابل للرقم من المعادلة نفسها تقبل تحياتى ادراج صف.rar
  19. أولا - الحمد لله أن معادلة التسلسل حققت طلبك أما طلبك الثانى ، ممكن تحقيقة بالمرفق التالى ، على أساس الترتيب للطلبة سيتم على أساس المجموع ضع هذه المعادلة فى نهاية الجدول فى عمود مستقل تقبل تحياتى ترتيب طلبة.rar
  20. هل هذا الرقم فقط أخى أم كل الأرقام تريد تحويلها إلى نصوص مثل هذا الرقم ؟ إذا كان هذا الرقم فهذا سهل أم إذا كنت تريد دالة للتفقيط فلن تجدى المعادلة هنا لأن لتحقيق هذا عن طريق المعادلة سيحتاج الأمر لدالة طويلة جدا وستصبح غير عملية إذن ليس أمامك سوى الكود وستجد هذا المطلوب لوبحثت فى أعمال أستاذنا عبد الله بقشير طلبك هذا ويمكن هذه المعادلة المعرفة من ماكرو سوفت تفيدك تقبل تحياتى تفقيط رقم.rar
  21. أخى وأستاذى الحبيب " أسلام الشيمى " فى كثيرا من الأحيان وليس جديد على حضرتك حاجتنا لتثبيت الوقت ، لأنه كما هو معلوم لحضرتك أيضا أنه يتم عمل ذلك عن طريق دالة "now " وهذه الدالة تأخذ بياناتها من وقت جهاز الكمبيوتر الذى نتعامل معه ومعلوم أيضا أن هذا الوقت متغير لذلك يلجأ الكثير منا إلى الكود لتثبيت الوقت لحظة تسجيل معلومة أو بيان ولحضرتك تصور كما هو مرهق وغير دقيق كتابة التاريخ أو الوقت لحظة تسجيل المعلومة ولن يكون دقيقا كتابتها يدويا وهل تعلم حضرتك أيضا ، أن هذه المعلومة تعادل هذا الكود Sub myNow() activecell.Value = now() End Sub وهل تعلم حضرتك أيضا أنه يمكن إختصار الخطوات التى كتبتها فى الخطوات الخمس الأولى من المشاركة بكتابة دالة " now" وتثبيتها دون تغييرها بالضغط على مفاتيح ";+Ctrl+Shift " أو تحديد الخلية التى تريد ظهور الوقت بها ويكفى الضغط ";+Ctrl+Shift " أرجو أن أكون وفقت فى شرح فائدتها الكبيرة ومايمكن أن توفر تقبل : تحياتى
  22. أخى الحبيب " ضاحى " إبداعاتك فى المنتدى يشهد بها القاصى والدانى ، ويكفى أنك أعطيت للمنتدى الروح الجمالية وحولت المادة العلمية الجامدة للوحة فنية رائعة بارك الله فيك أخى ومرورك شرفنى كثيرا تقبل تحيات : أخيك
  23. أخى الحبيب " سليم " مروركم أسعدنى وأحمد الله على إعجابكم بالمعلومة شكرا أخى الحبيب ، وبارك الله فيك تقبل تحيات : أخيك
  24. بعد العديد والعديد من الأكواد التى أستخدمت ، فى عمل " تجمد " للوقت أو التاريخ هذه طريقة بعيدة كل البعد عن هذا كله وتحقق المطلوب ، وأنا أستخدمها منذ مدة طويلة وتحقق ماأريد وهذا حل " وأتمنى أن تكون إضافة بالطبع " وهوحل بدون معادلات ولا أكواد وخطواتة كاللأتى: 1- ضع دالة "NOW " فى الخلية التى تريد إظهار الوقت بها 2- ثم نضغط على "F2 " 3- ثم نضغط على "F9 " 4- ثم نضغط على مفتاح "ENTER " من " KEY BOARD " 5- ثم كليك يمين على الخلية الذى يوجد بها الوقت ، ثم نختار " FORMAT CELLS " ومن هذه القائمة نختار تنسيق الوقت أو التاريخ أيهما نفضل ومبروووووووووك عليكم ثبات التاريخ أو الوقت مهما أغلقت أو فتحت أوراق عملك أتمنى أن تكون إضافة ومفيدة للأخو الزملاء تقبلوا تحياتى
  25. أولا - وقبل أى شئ مرحبا بك أخا عزيزا بين زملائك وأخوتك وأتمنى من كل قلبى أن تكون عضوا فعالا أى تفيد كما تستفيد وكذلك أتمنى منك تغيير أسم ظهورك إلى العربية ليسهل التواصل بينك وبينهم كذلك أتمنى مستقبلا أن يكون سؤالك ، مشفوعا دائما بمثال ، وتصور لنتيجة هذا السؤال حتى يكون الحل دقيقا وتوفيرا لوقت زملائك ثم ماهى طبيعة البيانات فى العمود المقابل للتسلسل الذى سيتم التسلسل على أساسها إعطى مثال أخى للبيانات ، لاتكفى الصورة وعلى العموم أنظر لهذه المعادلة حيث سيتم وضعها فى العمود "A " ويتم سحبها لأسفل =IF(MOD(ROW(),4)=1,INT((ROW()-1)/4)+1,"") وهذه المعادلة هى نفس المعادلة السابقة ولكن تم ربطها بعمود البيانات ، وأنا بالطبع أفترضت أنه العمود " B " =IF(AND(B1<>"",MOD(ROW(),4)=1),INT((ROW()-1)/4)+1,"") تقبل تحياتى تسلسل خاص.rar
×
×
  • اضف...

Important Information