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

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

قام بنشر

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

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

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

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

_____________.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

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

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

Important Information