برنامج التقسيط للأفراد والمؤسسات

[فيصل وصل]

احب ان أقدم شكري وتقديري إلى مشرفوا وخبراء موقعنا الجميل الذي يقدم ويقدم الكثير فألف شكر

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

وسوف ارفق البرنامج بالمرفقات متمنياً منكم سرعة التفاعل

وفق الله الجميع،،،

_____________.rar

[خالد نور]

بداية جيدة لكن الموضوع يحتاج الى كثير الكثير لكن دعنا نبداء من البداية عند الفتح لابد أن يفتح الملف على الصفحة الرئيسية بأجبار الآكسل على ذلك بوضع الكود التالى فى this workbook وكمان ممكن نضيف فى الكود امر أخفاء القوائم حتى نضع شكل احترافى على البرنامج

Sheets("زهير للتقسيط").Activate

Application.CommandBars("Standard").Visible = False

Application.CommandBars("Formatting").Visible = False

Application.DisplayFormulaBar = False

End Sub

 ثانيا ماكرو الآنتقال الى الصفحة الرئسية يحتاج الى تنقيح فيكفى فقط فى الكود أن يكون

Sheets("زهير للتقسيط").Activate

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

[code]Private Sub Workbook_Open()
 Sheets("زهير للتقسيط").Activate
Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.DisplayFormulaBar = False
End Sub

Sheets("زهير للتقسيط").

إعادة للاكواد لعدم وضوحها فى المشاركة السابقة وارجو ان تكون وضحت فى هذه المشاركة

[فيصل وصل]

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

متمنياً التوفيق لك ، وأنا سوف أبدأ معك خطوة خطوة ان أمكن ذلك من قبلكم ...وسوف أرفق أول ملف قمت بتعديلة حسب ردك السابق .. وبذلك يتبادر إلي سؤال : فقد واجهت اثناء تجاوالي بمنتديات أوفيسنا الحبيبة العديد من البرامج والتطبيقات وكنت أرغب بمعرفة أكواد بعض التطبيقات للإكسل فعند الضغط alt + f11 تظهر شاشة الفيجوال ولكن بعض الأكواد يلزم كلمة مرور واسم مستخدم .. فهل يمكن فك حمايتها موضحاً طريقة فكها لكي اتعامل مع بعض الاكواد البرمجية لكي أساعدك في انجاز هذا البرنامج متمنياً لك السعادة .

_____________.zip

[خالد نور]

جميل أخى فيصل الله ينور

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

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

http://www.sendspace.com/file/u2az5g

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

http://www.officena.net/ib/index.php?showtopic=5827

[فيصل وصل]

ألف شكر على تواصلك معي :

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

اتمنا منك معذرتي لإزعاجك فبدرت لي فكرة هي :

كيفية الأستعلام برقم سجل مدني خاص بالمشتركين ففي الورقة الأولى

بيانات المشتركين بالتقسيط وهي :

1- رقم السجل المدني.

2- اسم المشترك.

3-إحلال أول قسط.

4- إجمالي مبلغ التقسيط

ولو رغبت للإستعلام عن مشترك بنظام الأقساط استطيع من خلال الورقة الثانية ( كما سوف تجدة بالملف المرفق ) استطيع إدخال رقم سجل المدني للمشترك فتظهر بيانات سدادة كالتالي:

1- اسم المشترك.

2- الواصل من السداد.

3- المتبقي من قيمة إجمالي الأقساط.

4- الأقساط المتأخرة.

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

Book1.rar