حسام نور

جزانا وأياكم الخير وجعله في ميزان حسناتنا يوم القيامه نسيت أن أقول لأحبائي أن الكتاب بإمتداد Pdf ويجب أن يكون برنامج الأكروبات محمل على جهازك لتتمكن من تشغيله وفقكم الله

وجدت هذا الكتاب على الأنترنت لتعلم الأكسيل وأرجوا أن يفيدكم لتحميل الكتاب إضغط هنا وفقكم الله

ارجوا وضع كامل مقترحاتكم وإضافاتكم ليتم التعديل بصوره عامه مره واحده وشكرا لكم

بسم الله الرحمن الرحيم اليوم نقدم لكم برنامج جديد أرجوا أن تجدوا فيه الفائدة وأن يحقق لأحدكم النفع في حياته العمليه ملحوظه ( جميع البرامج السابقة سنجمعها لكم قريباً وبصورة أرجوا أن تنال رضاكم ) برنامج اليوم : هل لديك عقار صغير تقوم بتأجيره ؟ إذا كان الجواب نعم . فأليك برنامج اليوم الذي سيساعدك في تسجيل كل عملية تأجير ومتابعة تسديد الدفعات والأيجارات والمصروفات والحصول على تقارير كاملة عند تشغيل البرنامج ستظهر لكم الشاشة التالية وعند الرغبة في تسجيل تأجير جديد عليك أولاً الذهاب لصفحة الأسماء وتسجيل أسم المستأجر وسوف يقوم البرنامج تلقائياً بأعطاؤه رقم متسلسل فلا تقوم بالترقيم بنفسك .. الرقم هام جدا فسوف نحتاجه في كل خطواتنا بالبرنامج الآن وبعد أن قمنا بتسجيل أسم المستأجر الجديد وعرفنا رقمه . نقوم بالتوجه لصفحة تسجيل بيان أيجار جديد ونكتب فقط رقم المستأجر ليظهر لنا أسمه .. وهنا نقوم بأدخال مبلغ الأيجار المطلوب بالكامل منه وكذلك نكتب بيان يصف عملية الأيجار للتذكير . التاريخ سيظهر تلقائياً وفق تاريخ اليوم ويمكنك تعديله أن أردت ذلك الآن في حال الرغبه في تسديد دفعات من هذا المستأجر عليك التوجه الي صفحة التسديد وسنقوم أيضاً بكتابة رقم المستأجر وسيظهر لنا أسمه والمبلغ المطلوب منه وبياناته السابقه . نقوم بكتابة المبلغ أو الدفعه التي سيسددها وستظهر رساله بالباقي عليه وسيظهر تاريخ اليوم ويمكن تعديله ويمكننا تسجيل وصف لعمليةالتسديد للتذكير يمكنك الحصول على تقرير بحالة المستأجرين وستجد زر بالصفحة الرئيسية يذهب بك لتلك الصفحه . ولكن عند طباعة التقرير يجب الضغط على زر الطباعه الموجود بالصفحه لكي يطبع لك البيانات فقط دون الحاجه لطباعة الصفحات الفارغة يمكنك الحصول على تقرير عام بالأجماليات عبر الزر المخصص لذلك بالصفحة الرئيسية يمكنك الحصول على تقرير بحالة مستأجر واحد وذلك بالضغط على الزر المخصص لذلك وعند الذهاب للصفحه فقط عليك كتابة رقم المستأجر البرنامج في المرفقات مضغوط ببرنامج الـ Winrar لا تنسونا من خالص الدعاء منتظر إقتراحاتكم للتطوير أو التعديل .. وبالتوفيق للجميع _______________.rar

ماهي المشكله لديك ..؟

أخي أبو شهد .. بالفعل تم طرح النسخة العربيه من البرنامج في المنتدى أشكركم على دعواتكم الجميله

لا أعرف كيف أشكركم على هذه الدعوات الجميله

نشكرك على جهدك الجميل hosamnoor@yahoo.com وياحبذا لو تضع جميع أعمالك في ملف مضغوط وترسلها لي على الأيميل لإنني لم أستطيع تحميل أي ملف منها وبارك الله فيك

عمل رائع ومميز

جميل جدا ... ألف شكر

أبداعات متكرره كما عودتنا أخي الكريم ......

متابعه جميله للموضوع ... بارك الله في جهودك ووفقك

بحاجه لتعديل بسيط وهو أن تم إدخال رقم غير موجود في ورقة العمل Id يجب أن لا يبقى آخر أسم في الخليه B في الورقه List وبارك الله في جهودك

يبدوا ان نظام الأمان لديك مرتفع وانت بحاجه لتخفيضه الي المنخفض لتعمل معك الماكروهات اتبع التالي من شريط الأدوات ومن قائمة ( أدوات - ماكرو - أمان - أختر منخفض ) وأحفظ المتغيرات واعد التشغيل للملف أو بالأنجليزيه .. Tools-Macro-Security-Low وبعدها أضغط موافق وأغلق الملف وأحفظ المتغيرات وأعد التشغيل أعتقد أن هناك أختلاف بين أوفيس 2003 و 2007 وبعض الملفات لا تتوافق مع كلاهما

هل تستطيع إزالة برنامج الأوفيس من لديك الأصدار 2007 وتحميل أوفيس XP أو أوفيس 2003 ؟ إن كان نعم فستنتهي المشكله فوراً ... إن كنت لا تستطيع فأنتظر حتى أقوم بتحميل الأوفيس 2007 من النت وبعدها تحميله على جهازي وعمل الملف على هذا الأصدار وشكراً

جرب المرفق وأخبرني بالنتيجه __________.zip

صدقني أخي الفاضل .. لو أتبعت الخطوات السابقه بدقه فستحصل على المطلوب ملف الأكسيل المرفق فيه ساعه وتتحرك .. وأعضاء آخرون حملوه ويعمل معهم إذاً أين الخلل ؟؟؟ أرفق لي الملف الذي تريد عمل الساعه به وسأضعها لك في الخلية التي تريد وفقك الله

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

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

- ملحوظه : كانت هناك مشكله في ظهور الكود الأول بالرد وتم الآن التصحيح ... وشكراً

يمكنك ببساطه إضافة ساعه رقمية Digital الي أي ملف أكسيل تريد . وسوف تتغير الساعه كل ثانيه ودقيقه وساعه لحظياً . وبالطبع هذا وفقاً لوضع الساعة بجهازك ولهذا عليك أن تظبط الساعه بجهاز الكمبيوتر لديك أولاً . الخطوات ... - أفتح ملف الأكسيل المراد التنفيذ به - في لوحة المفاتيح لديك أضغط Alt + F11 لتفتح شاشة الفيجول بيسك - من القائمة الموجودة يسار الشاشه أتجه الي This Workbook وأضغط عليها - أتجه الي الجانب الأيمن لتقوم بوضع الكود التالي بها Private Sub Workbook_Open() Call Timer End Sub والآن مازلنا في شاشة الفيجول بيسك .. من شريط الأدوات بالأعلى أتجه الي Insert ثم Module وقم بوضع الكود التالي Sub Timer() Application.OnTime Now + TimeValue("00:00:01"), "ChangeTime" End Sub Sub ChangeTime() Sheets("Clock").Range("C7") = Now() Call Timer End Sub ملحوظه : لاحظ في الكود السابق أمر هام وهو أن أسم ورقة العمل في الكود Clock وتجد الأسم بين قوسين في السطر الخامس ويمكنك تغييره حسب أسم ورقة العمل لديك .. ملحوظه 2 : ولاحظ أيضاً أننا أخترنا أن تظهر الساعه في الخليه C7 وستجد هذا الخيار في نفس السطر في الكود ويمكنك أيضاً تغييره حسب الخليه المراد التطبيق عليها مرفق ملف Time.zip

حاولت تلوين الرقم عبر المنتدى ولكن لم انجخ عموما ... السطر الثاني من الكود ستجد به رقم ( 2 ) هذا هو رقم العمود الذي ستقوم بالكتابه به ليظهر في العمود الذي بجواره الترقيم لاحظ في السطر التالي في الكود "=IF(COUNTA(RC[1]:RC[1])=1,COUNTA(R[color="#FF0000"][color="#FF0000"]2[/color][/color]C[1]:RC[1]),"""")" الرقم ( 2 ) هو رقم الصف الذي سيبدأ الترقيم منه . ويمكن تغييره حسب الرغبه

أولاً .. هذا هو الكود كاملاً Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then If Target.Value <> "" Then With Cells(Target.Row, Target.Column - 1) .FormulaR1C1 = _ "=IF(COUNTA(RC[1]:RC[1])=1,COUNTA(R2C[1]:RC[1]),"""")" End With Else Cells(Target.Row, Target.Column - 1).ClearContents End If End If End Sub لاحظ في السطر الثاني من الكود If Target.Column = 2 Then هذا هو رقم العمود الذي سنقوم بالكتابة به وهو هنا رقم ( 2 ) أي العمود ( B ) ويمكننا تغييره حسب الرغبه . وسيتم الترقيم في العمود المجاور له لاحظ في السطر التالي في الكود "=IF(COUNTA(RC[1]:RC[1])=1,COUNTA(R[color="#FF0000"]2[/color]C[1]:RC[1]),"""")" الرقم ( 2 ) الملون بالأحمر هو رقم الصف الذي سيبدأ الترقيم منه . ويمكن تغييره حسب الرغبه

أعتذر لتغيبي الفترة السابقة سأعود لتوضيح أستفساراتكم لاحقاً ... وشكراً

الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then If Target.Value <> "" Then With Cells(Target.Row, Target.Column - 1) .FormulaR1C1 = _ "=IF(COUNTA(RC[1]:RC[1])=1,COUNTA(R2C[1]:RC[1]),"""")" End With Else Cells(Target.Row, Target.Column - 1).ClearContents End If End If End Sub وفي المرفقات مثال ____________.zip