ياسر الحافظ قام بنشر سبتمبر 8, 2011 قام بنشر سبتمبر 8, 2011 اخي واستاذي ابو حمد " عبد الله المجرب " تشكر ........ وجزاك الله كل الخير .... وفقك الله ابو الحارث
حسن قديمي قام بنشر سبتمبر 8, 2011 الكاتب قام بنشر سبتمبر 8, 2011 اخي عبدالله هذا نتيجة العمل الذي قمنا بة اليوم ولكن عدلت فية شوية باضافة شاشة افتتاحية للعمل ولكن اعتقد ان هناك خطاً حيث ان الشاشاة بعد ان يبدأ المؤشر بالتحميل ويتوقف لا تختفي الشاشة الإفتتاحية ويظهر ورقة ( قائمة المستأجرين ) هل ممكن تعملها لأني حاولت ولكن دون فائدة ( تعبت ...؟!!) windows-1256__شاشة دخول اكسل - كود.rar
عبدالله المجرب قام بنشر سبتمبر 9, 2011 قام بنشر سبتمبر 9, 2011 اخي حسن اعذرني على تاخري في الرد تفضل المرفق بعد التعديل عليه ابواحمد * للعلم المشكلة كانت في تكرارك لهذا الكود الخاص باخفاء الشاشة وبمجرد حذفة اصبح كل شيء على ما يرام Sub EndSplash() Unload UserForm1 End Sub نسخ من الحركة العامة للمستأجرين.rar
حسن قديمي قام بنشر سبتمبر 9, 2011 الكاتب قام بنشر سبتمبر 9, 2011 يارهيييييييييييييييييييييييييييييييب يا استاذ عبدالله طيب ممكن الوقت اللي في قائمة المستاجرين يكون شغال مثل الساعة الاليكترونية بالحقيقة في كمود وجربيتة جرب علية الشغل كلة ورحت حذفتة ممكن تعملها وصبرك علية
عبدالله المجرب قام بنشر سبتمبر 9, 2011 قام بنشر سبتمبر 9, 2011 طيب ممكن الوقت اللي في قائمة المستاجرين يكون شغال مثل الساعة الاليكترونية بالحقيقة في كمود وجربيتة جرب علية الشغل كلة ورحت حذفتة ممكن تعملها وصبرك علية اخي حسن اعذرني لم افهم المطلوب وهل تقصد مثل هذا (المشاركة رقم 2) http://www.officena.net/ib/index.php?showtopic=38308&view=findpost&p=208204 ان كذلك افتح موضوع جديد به هذا الطلب (حتى تعم الفائدة ) وضع عنوان مناسب (حتى يسهل العثور عليه عن البحث) وان شاء الله ستجد ما يسرك ابواحمد
حسن قديمي قام بنشر سبتمبر 9, 2011 الكاتب قام بنشر سبتمبر 9, 2011 اخوي عبدالله الله يعينك على حسن قديمي خطرت لي فكرة ودائماص الفكار تاتي من العباقرة مثلي وهي هل ممكن الخانة ( I8 ) نخليها فلاشية تومض وتطفى مثل التنبية وكمان نخلي فيها رسالة تقول ( لديك عدد كذا مستأجر لم يتم سدادهم للإيجار ) هي مجرد فكرة ولكن لو مافي امكانية فيها ابغاك تخلي المستطيل يومض مثل الفلاش
حسن قديمي قام بنشر سبتمبر 9, 2011 الكاتب قام بنشر سبتمبر 9, 2011 ايوة اخوي عبدالله بس المطلوب في الشيت الموجود عندك فيورقة العمل قائمة المستأجرين تحت خانة اليوم توجد خانة اسمها الساعة ممكن تعملها عندك وترفق الملف مرة اخرة بالإضافة للطلب اللي قبل المشاركة هذي ان تكرمت
حسن قديمي قام بنشر سبتمبر 9, 2011 الكاتب قام بنشر سبتمبر 9, 2011 ارفقت لك الملف مرة اخرى يوجد سهم لخانة فارغة يتم فيها جمع عدد المستأجرين الذين لم يسددوا يعني لوتكون المعادلة جميع العمود للعملاء اذا كانت الحالة ( السداد اليوم و لم يسدد) وانا عملت الوميض في الشيت ولكن ما يشتغل الا اذا رحت للماكرو وعملت علية تشغيل وانا ابغاة تلقائي نسخ من الحركة العامة للمستأجرين.rar
عبدالله المجرب قام بنشر سبتمبر 9, 2011 قام بنشر سبتمبر 9, 2011 اخي حسن صبرك علي خذ الملف المرفق الامر في الساعة راجع لك اذا اردت الساعة بالثواني فسيحدث اهتزاز كل ثانية في الشاشة وهذا غير محبب لذا انا قمت بضبط الساعة لعرض ساعة ودقيقة فقط وتتحدث باستمرار اذا اردت التغيير ليتم تحديث الساعة كل ثانية عدل هذا الجزء من الكود بحيث تستبد 00:0:30 ليصبح 00:00:01 Application.OnTime Now + TimeValue("00:00:30"), "ChangeTime" ابو احمد نسخ من الحركة العامة للمستأجرين.rar
حسن قديمي قام بنشر سبتمبر 9, 2011 الكاتب قام بنشر سبتمبر 9, 2011 كلامك سليم بالنسبة حصر عدد المستاجرين الغير مسددين انا استخدمت ها =COUNTIF(J13:J20000;"لم يسدد") وانت استخدمت =COUNTIF(rang;"لم يسدد") حاولت انسخ ذلك ولكن لم يتم الجمع وظهرت بدلها خطأ وشاكر لك جهودك عزيزي
حسن قديمي قام بنشر سبتمبر 9, 2011 الكاتب قام بنشر سبتمبر 9, 2011 اخوي عبدالله طيب عندي انا ابغى اول ما يفتح الملف دائماً يفتح على ورقة العمل ( قائمة المستأجرين ) مع اني حاولت اكتب الصيغة هذي في الوروك شيت ولكن دائماً تظهر رسالة خطاً Private Sub Workbook_Open() Sheets("قائمة المستأجرين").Select End Sub ايش الطريقة انا بارفق لك الملف ايضاً نسخ من الحركة العامة للمستأجرين.rar
حسن قديمي قام بنشر سبتمبر 9, 2011 الكاتب قام بنشر سبتمبر 9, 2011 جربت الطكود على اكسل فارغ مكون من 3 ورقات وانتقلت للوقة الثالثة وعملت حفظ وطبعاً حطيت الكود انة لو فتحت الملف ينتقل للورقة1 ونجحت العملية وفي الملف الخاص بالمستاجرين لم تقبل واعتقد ان هناك خطأ عندي لم انتبة له
عبدالله المجرب قام بنشر سبتمبر 9, 2011 قام بنشر سبتمبر 9, 2011 اخوي عبدالله طيب عندي انا ابغى اول ما يفتح الملف دائماً يفتح على ورقة العمل ( قائمة المستأجرين ) مع اني حاولت اكتب الصيغة هذي في الوروك شيت ولكن دائماً تظهر رسالة خطاً Private Sub Workbook_Open() Sheets("قائمة المستأجرين").Select End Sub ايش الطريقة انا بارفق لك الملف ايضاً خذ جرب الان بإذن الله سيفتح على ورقة قائمة المستأجرين بخصوص الدالة Countif لم افهم قصدك وفي ملفك الاخير الدالة تمام ابواحمد نسخ من الحركة العامة للمستأجرين (1).rar
حسن قديمي قام بنشر سبتمبر 9, 2011 الكاتب قام بنشر سبتمبر 9, 2011 تمام حبيبي عبدالله بس الظاهر في مشكلة في الساعة اول كانت تمشي مع ساعة الكمبيوتر بمعني اول ما تخلص الثواني وتقلب الدقائق تتغير الساعةاللي بالنموذج معاها الآن اشوفها تغيرت ثابتة مع اول وقت للجهاز او متاخرة شوية عن ساعة الكمبيوتر مرفق لكم ملف اخر تعديلاتنا نسخ من الحركة العامة للمستأجريننهائي.rar
عبدالله المجرب قام بنشر سبتمبر 9, 2011 قام بنشر سبتمبر 9, 2011 اخي حسن كما قلت فالتأخير بسيط ولا يتعدى 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 فسيصبح التأخير بسيط وغير ملحوظ تقريباً ابواحمد
حسن قديمي قام بنشر سبتمبر 9, 2011 الكاتب قام بنشر سبتمبر 9, 2011 جرت التجربة بنجاح جزيت خيرا لي عودة اخرى معك قد تخطر فكرة كذا او كذا على النموذج فطبعا اخي عبدالله موجود
حسن قديمي قام بنشر سبتمبر 9, 2011 الكاتب قام بنشر سبتمبر 9, 2011 الله حسيبك يا عبدالله .... من جدة للمنامة ... حاير قلبي علامة ... الله حسيبك يا عبدالله ... بيتهم وسط المحرق ... وأصلهم من بيت نشامة الله حسسيبك يا عبدالله ...الله حسيبك يا عبدالله .... الشمس تشرق وتغرب ... والقمر علية غمامة ... وصاحبي على خدة شامة .. الله حسيبك يا عبدالله ... تستاهل الخير... والخيريستاهلك
حسن قديمي قام بنشر سبتمبر 9, 2011 الكاتب قام بنشر سبتمبر 9, 2011 يحق لك حذف المشاركة ان لم تكن تضايقك
ياسر الحافظ قام بنشر سبتمبر 9, 2011 قام بنشر سبتمبر 9, 2011 الاخ حسن لماذا حذف المشاركة اخي وصديقي واستاذي " ابو احمد " عبد الله المجرب يستحق مديحك عن جدارة لانملك له الا الشكر والثناء لمتابعاته المتعددة واعماله المميزة وفقك الله ابو الحارث
حسن قديمي قام بنشر سبتمبر 9, 2011 الكاتب قام بنشر سبتمبر 9, 2011 شكراً اخي ياسر وعن جد الله يستر على عبدالله خلاليومين جهزت ملفي بفضل الله ثم بفضل اخوي عبدالله وعلى فكرة لو أنا سألت واحد من اصدقائي كان صرفني ( والله ما اعرف ... اشوفها لك بكرة ) والأكيد مو رايح يرد علية ولكن ابو عابد ماشاء الله علية
ابو الآء قام بنشر سبتمبر 10, 2011 قام بنشر سبتمبر 10, 2011 الله حسيبك يا عبدالله .... من جدة للمنامة ... حاير قلبي علامة ... الله حسيبك يا عبدالله ... بيتهم وسط المحرق ... وأصلهم من بيت نشامة الله حسسيبك يا عبدالله ...الله حسيبك يا عبدالله .... الشمس تشرق وتغرب ... والقمر علية غمامة ... وصاحبي على خدة شامة .. الله حسيبك يا عبدالله ... تستاهل الخير... والخيريستاهلك الاستاذ الكبير عبد الله يستحق كل الشكر والتقدير بارك الله فيه وزاده من علمه
عبدالله المجرب قام بنشر سبتمبر 10, 2011 قام بنشر سبتمبر 10, 2011 يحق لك حذف المشاركة ان لم تكن تضايقك ولماذا تضايقني ؟؟ الاستاذ ياسر الحافظ الاستاذ ابوالاء شكراً جزيلاً لمروركما وتشجيعكما وعن جد الله يستر على عبدالله خلاليومين جهزت ملفي بفضل الله ثم بفضل اخوي عبدالله وعلى فكرة لو أنا سألت واحد من اصدقائي كان صرفني ( والله ما اعرف ... اشوفها لك بكرة ) والأكيد مو رايح يرد علية ولكن ابو عابد ماشاء الله علية اخي حسن انا لم اقم الا باقل من واجبي تجاه هذا المنتدى واعضاءه الكرام واي عضو اخر كان سيقوم بما قمت به وزياده حبتين شكراً على القصيده والله حسيبك ابواحمد
حسن قديمي قام بنشر سبتمبر 13, 2011 الكاتب قام بنشر سبتمبر 13, 2011 (معدل) أخي عبدالله مساء الأنوار على الجميع ارفقت لك ناتج العمل ولكن لي طلب صغير في كشف الحساب للمستأجر توجد خانة اسمها ( حالة العقد ) وطبعاص يكتب فيها مستمر او منتهي حسب حالة العقد لدي للعقار المطلوب في شيت قائمة المستأجرين هناك حالة تجديد العقود انا ارغب في حال كانت حالة العقار منتهي يكتب منتهي في الخانة الخانات انا عملت ( لم يجدد العقد - متابعة التجديد ) اريد اضيف ( منتهي ) في حال كانت ( حالةاالعقار ) في كشف الحساب ( منتهي ) الحركة العامة للمستأجرين.rar تم تعديل سبتمبر 13, 2011 بواسطه حسن قديمي
الردود الموصى بها