عبدالله المجرب

ولماذا تضايقني ؟؟ الاستاذ ياسر الحافظ الاستاذ ابوالاء شكراً جزيلاً لمروركما وتشجيعكما اخي حسن انا لم اقم الا باقل من واجبي تجاه هذا المنتدى واعضاءه الكرام واي عضو اخر كان سيقوم بما قمت به وزياده حبتين شكراً على القصيده والله حسيبك ابواحمد

اخي احمد الغانم كل سنة وانت طيب هل تقصد ان خلايا الرصيد في Sheet1 تكون بالسالب اي الخلية D13 و الخلية G13 ةالخلية J13 ان كان هذا ما تقصده فالسبب هو وجود هذا الرقم 4000000 في الخلية C13 لان العملية في الخانات المذكورة سابقاً تتم بتنقيص خلية B - C وصفر ناقص 4000000 حتماً الناتج سيكون بالسالب راجع هذه المسألة ابواحمد

اخي ياسر شكراً لك ============= اخي طاهر بفضل الله ارفق لك المرفق فيه ثلاثة طرق للحل وإختر ما تريد وما يناسبك الحل الاول بإستخدام الدالة CONCATENATE لربط دالة IF & ISERROR وهو حل طويل ولكن ميزته انه بإستخدام دوال اكسل موجودة مسبقاً . الحل الثاني بإستخدام دالة الاستاذ هشام شلبي وهي دالة معرفة لها ميكرو في محرر الاكواد ( multvlookup) الرابط الخاص بالدالة multvlookup الحل الثالث بإستخدام دالة الاستاذ ابو تامر وهي دالة معرفة لها ميكرو في محرر الاكواد ( VLOOKON) الرابط الخاص بالدالة ( VLOOKON) والثلاثة الحلول لها نفس الناتج فختر ما يعجبك ابواحمد Book1 (2).rar

اخي حسن كما قلت فالتأخير بسيط ولا يتعدى 30 ثانية وللتغلب عل ذلك عدل الكود التالي Sub Timer() Application.ScreenUpdating = False Application.OnTime Now + TimeValue("00:0:30"), "ChangeTime" End Sub ليصبح Sub Timer() Application.ScreenUpdating = False Application.OnTime Now + TimeValue("00:0:10"), "ChangeTime" End Sub فسيصبح التأخير بسيط وغير ملحوظ تقريباً ابواحمد

بارك الله فيك ونسأل الله ان نصل الى مستوى اعداد العاب باكواد الاكسل ابواحمد

اخي طاهر انا استخدمت الدالتين IF & ISERROR ودور الدالة ISERROR في حال وجود خطاء في القيمة تعيد الدالة الى TRUE وفي حال عدم وجود خطاء تعيد النتيجة FALSE وبعدها ياتي دور الدالة IF والتي كما هو معروف تتألف من ثلاثة مدخلات الاول : القيمة الثاني : الناتج في حالة TRUE الثالث : الناتج في حالة FALSE وفي معادلتي المدخل الاول هو ISERROR(VLOOKUP(B2;rng;2;0)) قإذا كان ناتج الدالة ISERROR يساوي TRUE (بمعنى وجود خطاء في معادلة Vlookup) فسيتم ارجاع قيمة المعادلة VLOOKUP(B2;rng1;2;0) بينما لوكان الناتج في الدالة ISERROR يساوي FALSE (بمعنى ان عدم وجود خطاء في الدالة Vlookup) فسيتم ارجاع قيمة المعادلة VLOOKUP(B2;rng;2;0) ان شاء الله اكون وفقت في الشرح ولي سوال هل الارقام في جداول برنامجك الاربعة متسلسلة اذا كانت كذلك فبامكانك استخدام الدالة IF ابواحمد

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

خذ جرب الان بإذن الله سيفتح على ورقة قائمة المستأجرين بخصوص الدالة Countif لم افهم قصدك وفي ملفك الاخير الدالة تمام ابواحمد نسخ من الحركة العامة للمستأجرين (1).rar

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

اخي حسن صبرك علي خذ الملف المرفق الامر في الساعة راجع لك اذا اردت الساعة بالثواني فسيحدث اهتزاز كل ثانية في الشاشة وهذا غير محبب لذا انا قمت بضبط الساعة لعرض ساعة ودقيقة فقط وتتحدث باستمرار اذا اردت التغيير ليتم تحديث الساعة كل ثانية عدل هذا الجزء من الكود بحيث تستبد 00:0:30 ليصبح 00:00:01 Application.OnTime Now + TimeValue("00:00:30"), "ChangeTime" ابو احمد نسخ من الحركة العامة للمستأجرين.rar

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

اخي طاهر تفضل المرفق 2003 كلمة سر حماية المعادلات 1 ابواحمد انذار 2003.rar

استاذ احمد يعقوب (مشرفنا الخلوق) سمي ابني مرورك وتعليقك شرف كبير لي ودافع للتعلم والعطاء شكراً جزيلاً لك ابواحمد

اخي حسن اعذرني لم افهم المطلوب وهل تقصد مثل هذا (المشاركة رقم 2) http://www.officena.net/ib/index.php?showtopic=38308&view=findpost&p=208204 ان كذلك افتح موضوع جديد به هذا الطلب (حتى تعم الفائدة ) وضع عنوان مناسب (حتى يسهل العثور عليه عن البحث) وان شاء الله ستجد ما يسرك ابواحمد

حفظك الله يا ابا الحارث بل انت رجل المهمات الصعبة وكما قلت لك من قبل فانت مدرسة في الاخلاق والتواضع ونحن ننهل مما لديكم كفيت ووفيت ابواحمد

تم عمل اللازم وكلمة السر 1 تم التحايل على الاكسل بجعل التغير في الوقت يحدث كل 10 ثواني وبذلك يتوقف الاهتزاز ويمكنك ان تزيد المدة لتصبح مثلاً كل دقيقة يتم تحديث الكود فيصبح الاهتزاز كل دقيقة مرة واحدة جرب واعلمني بالنتيجة ابواحمد انذار.rar

الحمدلله ان هذا كان ما تريد ابواحمد

اخي الفاضل هل هذا ما تقصده. جرب المرفق ابواحمد UpdatesData..rar

اخي حسن اعذرني على تاخري في الرد تفضل المرفق بعد التعديل عليه ابواحمد * للعلم المشكلة كانت في تكرارك لهذا الكود الخاص باخفاء الشاشة وبمجرد حذفة اصبح كل شيء على ما يرام Sub EndSplash() Unload UserForm1 End Sub نسخ من الحركة العامة للمستأجرين.rar

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

انت بالفعل اخي حسن سجلت من 2003 ولكنك تأخرت 8 سنوات حتى شرفتنا بمشاركاتك ومعرفتك لا عليك ان شاء الله تصبح عضو تفيد وتستفيد كما نحن بفضل الله ثم فضل هذا المنتدى ابواحمد

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

اخي الفاضل ضع هذه المعادلة في الخانة التي تريد وانسخها للخلايا العملاء الاخرين وغير التعريف فقط بدل aa تصبح bb أو cc =IF(aa-C2>0;"مسدد";IF(aa-C2=0;"لم يسدد";"لم يسدد")) ابواحمد

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

اخي الفاضل حسب ما فهمته لما تطلب انك تريد البحث باسم الموظف والملف المرفق في مشاركة الاستاذ احمد حمور بها هذه الخاصية بالاضافة الى خاصية البحث بالرقم اي انه بامكانك البحث بالاسم او بالرقم فما هو المشكل اذاً اليس هذا هو طلبك؟؟؟ ابواحمد