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

مطلوب كود او صيغة المدةالمتبقية على المستأجر لسداد الإيجار


الردود الموصى بها

اخي عبدالله هذا نتيجة العمل الذي قمنا بة اليوم ولكن عدلت فية شوية باضافة شاشة افتتاحية للعمل ولكن اعتقد ان هناك خطاً حيث ان الشاشاة بعد ان يبدأ المؤشر بالتحميل ويتوقف لا تختفي الشاشة الإفتتاحية ويظهر ورقة ( قائمة المستأجرين ) هل ممكن تعملها لأني حاولت ولكن دون فائدة ( تعبت ...؟!!)

windows-1256__شاشة دخول اكسل - كود.rar

رابط هذا التعليق
شارك

اخي حسن اعذرني على تاخري في الرد

تفضل المرفق بعد التعديل عليه

ابواحمد

* للعلم المشكلة كانت في تكرارك لهذا الكود الخاص باخفاء الشاشة وبمجرد حذفة اصبح كل شيء على ما يرام


Sub EndSplash()

Unload UserForm1

End Sub

779646062.gif

رابط هذا التعليق
شارك

يارهيييييييييييييييييييييييييييييييب يا استاذ عبدالله طيب ممكن الوقت اللي في قائمة المستاجرين يكون شغال مثل الساعة الاليكترونية بالحقيقة في كمود وجربيتة جرب علية الشغل كلة ورحت حذفتة ممكن تعملها وصبرك علية

رابط هذا التعليق
شارك

طيب ممكن الوقت اللي في قائمة المستاجرين يكون شغال مثل الساعة الاليكترونية بالحقيقة في كمود وجربيتة جرب علية الشغل كلة ورحت حذفتة ممكن تعملها وصبرك علية

اخي حسن اعذرني لم افهم المطلوب

وهل تقصد مثل هذا (المشاركة رقم 2)

http://www.officena.net/ib/index.php?showtopic=38308&view=findpost&p=208204

ان كذلك

افتح موضوع جديد به هذا الطلب (حتى تعم الفائدة ) وضع عنوان مناسب (حتى يسهل العثور عليه عن البحث) وان شاء الله ستجد ما يسرك

ابواحمد

رابط هذا التعليق
شارك

اخوي عبدالله الله يعينك على حسن قديمي

خطرت لي فكرة ودائماص الفكار تاتي من العباقرة مثلي وهي هل ممكن الخانة ( I8 ) نخليها فلاشية تومض وتطفى مثل التنبية وكمان نخلي فيها رسالة تقول ( لديك عدد كذا مستأجر لم يتم سدادهم للإيجار ) هي مجرد فكرة ولكن لو مافي امكانية فيها ابغاك تخلي المستطيل يومض مثل الفلاش

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

نسخ من الحركة العامة للمستأجرين.rar

رابط هذا التعليق
شارك

اخي حسن صبرك علي :wink2:

خذ الملف المرفق

الامر في الساعة راجع لك اذا اردت الساعة بالثواني فسيحدث اهتزاز كل ثانية في الشاشة وهذا غير محبب لذا انا قمت بضبط الساعة لعرض ساعة ودقيقة فقط وتتحدث باستمرار

اذا اردت التغيير ليتم تحديث الساعة كل ثانية عدل هذا الجزء من الكود بحيث تستبد 00:0:30 ليصبح 00:00:01


Application.OnTime Now + TimeValue("00:00:30"), "ChangeTime"

ابو احمد

779646062.gif

رابط هذا التعليق
شارك

كلامك سليم بالنسبة حصر عدد المستاجرين الغير مسددين انا استخدمت ها

=COUNTIF(J13:J20000;"لم يسدد")

وانت استخدمت

=COUNTIF(rang;"لم يسدد")

حاولت انسخ ذلك ولكن لم يتم الجمع وظهرت بدلها خطأ

وشاكر لك جهودك عزيزي :fff:

رابط هذا التعليق
شارك

اخوي عبدالله

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

Private Sub Workbook_Open()

Sheets("قائمة المستأجرين").Select

End Sub

ايش الطريقة انا بارفق لك الملف ايضاً

نسخ من الحركة العامة للمستأجرين.rar

رابط هذا التعليق
شارك

جربت الطكود على اكسل فارغ مكون من 3 ورقات وانتقلت للوقة الثالثة وعملت حفظ وطبعاً حطيت الكود انة لو فتحت الملف ينتقل للورقة1 ونجحت العملية وفي الملف الخاص بالمستاجرين لم تقبل واعتقد ان هناك خطأ عندي لم انتبة له

رابط هذا التعليق
شارك

اخوي عبدالله

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

Private Sub Workbook_Open()

Sheets("قائمة المستأجرين").Select

End Sub

ايش الطريقة انا بارفق لك الملف ايضاً

خذ جرب

الان بإذن الله سيفتح على ورقة قائمة المستأجرين

بخصوص الدالة Countif لم افهم قصدك وفي ملفك الاخير الدالة تمام

ابواحمد

779646062.gif

رابط هذا التعليق
شارك

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

مرفق لكم ملف اخر تعديلاتنا

نسخ من الحركة العامة للمستأجريننهائي.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

فسيصبح التأخير بسيط وغير ملحوظ تقريباً

ابواحمد

رابط هذا التعليق
شارك

الله حسيبك يا عبدالله ....

من جدة للمنامة ... حاير قلبي علامة ...

الله حسيبك يا عبدالله ...

بيتهم وسط المحرق ... وأصلهم من بيت نشامة

الله حسسيبك يا عبدالله ...الله حسيبك يا عبدالله ....

الشمس تشرق وتغرب ... والقمر علية غمامة ...

وصاحبي على خدة شامة .. الله حسيبك يا عبدالله ...

تستاهل الخير... والخيريستاهلك

رابط هذا التعليق
شارك

الاخ حسن

لماذا حذف المشاركة

اخي وصديقي واستاذي " ابو احمد " عبد الله المجرب يستحق مديحك عن جدارة

لانملك له الا الشكر والثناء لمتابعاته المتعددة واعماله المميزة

وفقك الله

ابو الحارث

رابط هذا التعليق
شارك

شكراً اخي ياسر

وعن جد الله يستر على عبدالله خلاليومين جهزت ملفي بفضل الله ثم بفضل اخوي عبدالله وعلى فكرة لو أنا سألت واحد من اصدقائي كان صرفني ( والله ما اعرف ... اشوفها لك بكرة ) والأكيد مو رايح يرد علية ولكن ابو عابد ماشاء الله علية :clapping::fff::gift2::yes:

رابط هذا التعليق
شارك

الله حسيبك يا عبدالله ....

من جدة للمنامة ... حاير قلبي علامة ...

الله حسيبك يا عبدالله ...

بيتهم وسط المحرق ... وأصلهم من بيت نشامة

الله حسسيبك يا عبدالله ...الله حسيبك يا عبدالله ....

الشمس تشرق وتغرب ... والقمر علية غمامة ...

وصاحبي على خدة شامة .. الله حسيبك يا عبدالله ...

تستاهل الخير... والخيريستاهلك

الاستاذ الكبير عبد الله يستحق كل الشكر والتقدير

بارك الله فيه وزاده من علمه

رابط هذا التعليق
شارك

:imsorry: يحق لك حذف المشاركة ان لم تكن تضايقك

ولماذا تضايقني ؟؟

الاستاذ ياسر الحافظ

الاستاذ ابوالاء

شكراً جزيلاً لمروركما وتشجيعكما

وعن جد الله يستر على عبدالله خلاليومين جهزت ملفي بفضل الله ثم بفضل اخوي عبدالله وعلى فكرة لو أنا سألت واحد من اصدقائي كان صرفني ( والله ما اعرف ... اشوفها لك بكرة ) والأكيد مو رايح يرد علية ولكن ابو عابد ماشاء الله علية :clapping::fff::gift2:

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

شكراً على القصيده والله حسيبك

ابواحمد

رابط هذا التعليق
شارك

أخي عبدالله

مساء الأنوار على الجميع

ارفقت لك ناتج العمل ولكن لي طلب صغير في كشف الحساب للمستأجر توجد خانة اسمها ( حالة العقد ) وطبعاص يكتب فيها مستمر او منتهي حسب حالة العقد لدي للعقار المطلوب في شيت قائمة المستأجرين هناك حالة تجديد العقود انا ارغب في حال كانت حالة العقار منتهي يكتب منتهي في الخانة

الخانات انا عملت ( لم يجدد العقد - متابعة التجديد ) اريد اضيف ( منتهي ) في حال كانت ( حالةاالعقار ) في كشف الحساب ( منتهي ) :wink2:

الحركة العامة للمستأجرين.rar

تم تعديل بواسطه حسن قديمي
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information