emadoo

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

الأستاذ الفاضل أبو عبدالله تحبة طيبة مجهود كبير لن يذهب سدى انشاءالله واقل ما يمكن ان يقال عنه انه أكثر من رائع ويدل على انك صاحب فكر عالي لدي خبرة لابأس بها في الاكسل وبالذات في ربطه بالفيجوال بيسك وكذلك في استعمال الفورم فأضعها كاملة بين يديك وانا في الخدمة في أي وقت أنا لست بمحاسب ولا أفهم بالمحاسبة ولكن لي تجربة كبيرة في برنامج المحاسبة فأنا في المراحل النهائية لتصميم برنامج محاسبي شامل دورة محاسبية كاملة من شجرة الحسابات إلى الميزانية العامة والارباح والخساشر واقفال الحسابات بالتعاون مع اح الأصدقاء المحاسبي ولكنه يختلف كثيراً نوعا ما من برنامج ( وأكرر انا لست محاسب ولا افهم بالمحاسبة ) وانشاء الله عتد اكماله ستراه لكن اسمح لي ببعض الملاحظات الهدف منها انشاءالله الافادة عمليات تكرار البيانات لديك مرهقة للملف أي اسماء الحسابات لديك في كل مكان ويمكنك الاستغناء عن ذلك طريقة عملي كالتالي لدي بيانات الحسابات وبيانات القيود المرحلة مرة واحدة فقط ومن ثم عند استخدام البرنامج يتم معالجة هذه البيانات وطلبها حسب ما اريده من البرنامج من كشوفات او موازين المراجعة وكشوفات الاستاذ العام وشجرة الحسابات ومعرفة الارصدة ومن تقارير مختلفة من حركة القيود حسب نوعها او من بحث عن مبالغ معينة في القيود وعند طباعتها او الانتهاء منها يرجع كل شئ كما كان وبالتالي يبقى الملف على حاله ولا يزيد الا عند ترحيل قيود جديدة او تعريف حسابات جديدة - انا اصنف الحسابات كالتالي 1000000 مجموعة ميزانية 1100000 مجموعة رئيسية 1110000 مجموعة فرعية 1111000 مجموعة استاذ عام 1111001 مجموعة استاذ مساعد ولي معادلات خاصة لدي عملتها لكي يتم التعرف على نوع الحساب وتصنيفه وبالتالي لا اكون مضطراً لكتابة هذه الحسابات اكثر من مرة وانما عند طلبها يقوم البرنامج بفرزها ومعالجنها حسب المطلوب منه - الفورم: تستعمل لكل حدث فورم معين وعند حدث أخر يتطلب تقريباً نفس الفورم تستدعي فورم أخر وكان بامكانك استعمال نفس الفورم وتقوم بتغير المسميات اذا استعملت ال if انا عندي فورم واحد يستعمل لأضافة الحسابات والتعديل على استعمالها والغاء الحسابات و و و واقوم بتشكيله كما اريد بالتوفيق ياابو عبدالله برنامجك قيم ومتعوب عليه فعلاً ولمساتك الفنية واستعمال المنطق لديك ملفت للنظر وانا في الخدمة في اي شئ أخوط الصغير عماد الحسامي

اخي استعمل الدالة التالية (CEILING(a1,1=

انا لما قلت ان استاذنا يحيى ملك المعادلات المستحيلة لم اقصد الأقلال من مجهودات الكل فأنا قصدت أنه ملك من ملوك المعادلات التي يعج بها المنتدى والذين لا يمكن احصاءهم في المنتدى فهنيأ للمنتدى بكم وبالتوفيق للجميع

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

أخي ما في كود معين بس بحكي على آليه الأكواد كل برنامج له اكواده يعني ترتيب الكود بناءاً على البرنامج

تفضل يا ابو فيصل ملفك جاهز بس انشالله يكون مثل ما فهمت انا رواتب-بعد التعديل.rar

أخي استخدم الأكواد فتستطيع استعمال if حتى 100000000000000 مرة

أخي أبو محمد يبدو انه لديك خطأ في تركيب المعادلات حيث انه يوجد لديك معادلات متداخلة ناتجة من عدة اسباب اهمها انك قمت باضافة اسطر او اعمدة للملف أو شئ من هذ القبيل اذهب الى القوائم :- tools ===== fourmla auditing

طبعا ينفع .. أخي زمن التكرار في الأكسل ولى من زمان يعني أنا عندي 10 جداول متنوعة وبترويسات متنوعة وبأحجام أعمدة مختلفة ومع هيك لم أستخدم إلا جدول واحد أستخدمه حسب نوع الكشف المراد طباعته .. أي عند طلب كشف معين يكون الجدول فارغ من كل شئ وبأحجام أعمدة رئيسية عندها تعبئ الترويسات والبيانات وتأخذ الأعمدة الحجم الذي أريد وعند الخروج من الكشف تمسح البيانات وكأن شئ لم يكن فلا أجعل البرنامج يخزن بالبيانات مما يقلل من حجم البرنامج وعند طلب كشف أخر أو كشف من نوع أخر تتم نفس العملية وبنفس المنطقة في الصفحة. أخي البرامج الآن تعمل كالتالي : تكون هناك بيانات رئيسية مخزنة ومن ثم عند طلب أي كود يتم مهالجة هذه البيانت لاستخلاص النتائج مما يقلل بالتالي من حجم الملف

أخواني أعضاء ومشاركي النتدى ... عند كتابة برنامج متعدد الصفحات ( أي يحتوي على صفحات كثيرة ) فأن ذلك يجعل البرنامج كبير نسبياً لذا وجدت تقنية بالأكسل تجعلك تكتب أي برنامج مهما كثرت صفحاته .. بصفحة واحدة فقط أي بإستخدام كود بسيط جداً يجعل الصفحة تبدأ من أي موقع تريده في الصفحة وأنا شخصياً أستفدت منه الكثير ... أنا حالياً أقوم بصنع برنامج محاسبة يحتوي على دورة محاسبية كاملة 100% ولم أستخدم سوى صفحة واحدة فقط في الأكسل -- وماذا أستفدت : -تخفيض حجم البرنامج ألى أدنى مستوى لم يتعدى ال 1 ميجا بالرغم من أنه برنامج كبير ومتشعب ولو اتبعت الاسلوب العادي لأحتجت ألى 20 صفحة - حماية أكبر حيث أنك تستطيع تجميد الصفحة أي لا يمكن الذهاب ألى الخانات اليسرى واليمنى أي أنك فقط تستطيع التفعيل ضمن الخانات التي امامك فقط -ولم أستخدم protection نهائياً وسأشرح أسلوب تجميد الصفحات في المرة القادمة أخوكم عماد الحسامي كيف تجعل الصفحة تبدأ من خلية معينة-الحسامي.rar

إهداء خاص الى الأستاذ يوسف عطا وددت ان اضع هذا الإهداء في موضوع منفصل ليستفيد منه أكبر قدر من الأعضاء والمشاركين أخوكم : عماد الحسامي الحسامي.rar

اخي العزيز عادة لكتابة البرامج كبيرة الحجم تستخدم تقنيات كثيرة اهما استخدام userform لانها لاتأخد حجم كبير كمافي صفحات الاكسل ... كذلك الصفحات الكثيرة تاخذ حجم كبير وهناك تقنية تمكنك من كتابة برنامجك مثلاً في صفحة واحدة فقط " نعم صفحة واحدة فقط " كذلك استخدام الفيجول في الاكسل له اهمية كبيرة لان الفيجول لا ياخذ حجم كبير كتابة صفحة في اكواد الفيجول تعادل حجمها جملة داخل الاكسل او حتى اقل اما حماية الاكواد سهلة ادخل إلى الفيجول tools --- VBAProject properties --- protection --- ثم ادخل الباسورد عندها لا يمكن لاي احد الدخول الى الاكواد إلا بكلمة سر

يتم استخدام هذا الكود في البرامج ذات الصفحات الكثيرة ويتم استخدامه كالتالي : يتم عمل برنامج فرعي يتم فيه أخفاء جميع الصفحات في البرنامج : اي بأستخدام الكود السابق " ثم يتم أستدعاء البرنامج الفرعي في جميع اكواد الذهاب للصفحات ويتم وضعه في نهاية الاكواد """ مع ملاحظة انه يجب أن تطون صفحة واحدة غير مخفية لان الاكسل لا يسمح بأخفاء جميع الصفحات " ثم عند تفعيل الصفحة التي تريد أضهارها تكتب كود الأظهار في بداية الكود اي مثل طريقة حماية الصفحات --عند الدخول فك الحماية --وعند الخروج وضع الحماية -- يا اخوان استخدامها ليس معقد -- اسهل مما تتصورون وبالتوفيق

اخي الكريم المشكلة حدثت لديك لأنك قمت بتغير أسم الصفحة الرئيسية من main إلى الرئيسية فقط أدخل إلى كود صفحة الشهادات وقم بتغيير main إلى الرئيسية ملاحظة1 : لتسريع الكود في أي كبسة أكتب الكود التالي في بداية كل كود Application.ScreenUpdating = false وفي نهاية الكود أكتب : Application.ScreenUpdating = True ملاحظة 2 : جملة On Error Resume Next تستخدم لمعالجة الأخطاء والمرور من خلالها ويجب أن توضع في كل كود لكن متى يتم وضعها .. يتم وضعها عند الأنتهاء من كتابة البرنامج لمعرفة الاخطاء عند تنفيذ اي كود أي بعبارة أخرى : لو لم تكتب هذه العبارة لعرفت الخطا بنفسك وبالتوفيق أخي الكريم وبصدق البرنامج جميل جداً ومتعوب عليه فعلاً

من أجل عيون الدغيدي الصفحات بالعربي اخفاء ال sheet نهائياً--بالعربي.rar

أخواني الكرام هذه طريقة لإخفاء صفحة من ملف اكسل نهائياً ولا يمكن استردادها الا بكود اخر طريقة سهلة وبسيطة اخفاء ال sheet نهائياً.rar

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

تفضل اخي طلبك حسب المطلوب ...واذا هنالك اية تعديلات انا بالخدمة job costing-بعد التعديل.rar

الاكسل المجرد يكون محدود نوعا ماو بواسطة الاكواد تسطبع فعل المستحيل واسازودوكم بكل ما يلزم في الاكواد قريبا....

تفضل اخي ملفك جاهز ...عسى ان يكون المطلوب Copy of Xl0000015--معدل.rar

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

العفو..والشكر لله ..نحن جميعا اخوان وانا بالخدمة دائماً للجميع

اخي العزيز هذا ملفك مع حل لمشكلتك Table _1-بعد التعديل.rar

اخي العزيز هذا ملفك مع حل لمشكلتك Table _1-بعد التعديل.rar