m.hindawi

راجعت الملف المرفق اخي الكريم واظن انه لديك شروط متناقضة حاول ان توضح اكثر او تحدد الشروط بشكل ادق لاحظ ان الشروط كلها تبدأ من الصفر وهذا يؤدي الى خلق تناقض في قيم المعادلة لاحظ ما لايلي من 0 الى خمس سنوات المدة مضروبة في نصف الراتب الاساسي بفرض ان الراتب 1000 ريال وان المدة هي خمس سنوات الناتج 2500 لاحظ التالي بفرض ان المدة هي 6 سنوات على حسب شروطك الخمس سنوات الاولى مضروبة في نصف الراتب الاساسي مضروبة في ثلثين+ سنةواحدة مضروبة في نصف الراتب الاساسي مضروبة في ثلتين الناتج 2000 ريال كيف يعقل ان يكون من خدم خمس سنوات ياخذ تعويض اكثر ممن خدم ست سنوات على كل حال انا افترضت انه خطأ املائي وجعلت المعادلة كالتالي اكثر من خمس سنوات التعويض يساوي الخمس سنوات الاولى في نصف الراتب الاساسي+ الباقيفي نصف الراتب الاساسي في ثلثين وهذا الملف المرفق فيه المعادلة اذا كانت تحتاج الى تعديل ارجو منك توضيح الشروط اكثر وتوضيح الناتج اكثر Book19.rar

بسم الله الرحمن الرحيم جرب الكود التالي Private Sub Worksheet_selectionChange(ByVal Target As Range) If Target.Column < 9 And Target.Column >= 1 And Target.Column <> 4 Then Rows(Target.Row).Range("A1:H1").Select End If End Sub مع ملاحظة التالي عند الانتقال الى العمود رقم 4 فانك سوف تفقد التركيز على الصف عند الانتقال الى اي عمود غير 4 سوف يعود التركيز على الصف تسطيع النتقال عموديا في العمود رقم 4 فقط للانتقال افقيا استخدم مفتاح انتر

بسم الله الرحمن الرحيم انظر في الرابط التالي فييه نفس مشكلتك ايضا حسابات مستحقات موظف http://www.officena.net/ib/index.php?showtopic=8021

جرب الكود التالي MsgBox " رصيد اجازات الموظف هو " & Range("b5").Text & " بينما أيام الإجازة المطلوبة هي " & Range("b6").Text Range("C5").ClearContents Range("C6").ClearContents

بسم الله الرحمن الرحيم لم افهم طلبك جيدا عملت هذا الملف اذا كان يفي بالغرض Book1o.rar

بسم الله الرحمن الرحيم اليك الملف التالي employee.rar

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

بسم الله الرحمن الرحيم اخي الكريم فقط اكتب المعادلة التي يتم احتساب اجرة الايام على اساسها وساقوم بتعديل الملف لك مثال اجرة الايام =عددايام الدوام الفعلي* الراتب الشهري/عددايام الشهر اذا كان هذا ما تقصده فالتعديل بسيط جدا لانني وببساط اعتبرت الشهر 30 يوم وبانتظار ردك

بسم الله الرحمن الرحيم احسنت اخي محمد اختصار هائل و يعطي نفس النتيجة

بسم الله الرحمن الرحيم اليك الملف جاهز بعد التعديل الشديد احتاج الى اعادة انشاء من البداية ملاحظة في حال لديك اي استفسار لا تتردد في طرحه هنا ملاحظة اخرى قد لا يعمل الملف لديك ويعطيك رسالة خطأ بسبب المراجع الغير معرفة اذا ظهرت رسالة الخطأ قم بتعريف المرجع التالي microsoft windows common controls-2 6.0 واذا لم تجد المكتبة المحددة اخبرني لارفقها لها في المشاركة التالية وشكرا employee.rar

بسم الله الرحمن الرحيم الدالة convert تستطيع التحويل بين مختلف الماقاسات اذا اردت ان تحول من سنتمتر الى متر استخدم التالي =CONVERT(B1;"cm";"m") اذا اردت ان تحول من غرام الى كيلو غرام =CONVERT(B2;"g";"kg") لاحظ ان الدالة تختلف حسب المقاسات المراد استخدامها وهناك جدول للتحويلات راجع تعليمات الاكسل و لتحميل ملف اذهب الى قسم مؤقت لتحميل الملفات للاعضاء

بسم الله الرحمن الرحيم الاخ الاسد الجريح دالة الاخ lovecandel مضبوطة 100% وكذلك دالة الاخ محمد حجازي ايضا السبب في اختلاف رصيد المبالغ المجمدة في الورقة الثانية عن الاولى هو التالي لاحظ اسماء المدن التالية في الورقة الاولى الخميس الباحه الحفر بينما في الورقة الثانية خميس مشيط الباحة حفر الباطن فقط غير اسماء المدن لتتطابق في الورقتين وستتطابق الارصدة مع تحياتي

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الاخت زينة الطائي بالنسبة لرسالة الخطأ التي ذكرتي ليس في الكود اي خطأ وانما هناك خطأ في تعريف المراجع لديك على الجهاز تابعي الموضوع من اوله فهناك مناقشات كثيرة درات بيني وبين الاخ ايمن بشان المراجع وكانت تظهر لديه رسائل الخطأ وبعد المناقشة تمكن من اصلاح المشكلة ملاحظة هناك بعض الصور التوضيحية ولكنها تلخبطت يوم امس وطلبت من الاخ محمد حجازي ان يقوم با صلاح المشكلة لذلك اذا وجدت ان الصور التوضيحية لاتفي بالغرض فقط ادرجي مشاركة هنا و ساقوم بشرح مفصل عن كيفية ادراج المراجع مرة اخرى اخي الكريم ايمن الاصدار الثاني جاهز لدي ولكنني لا اريد الاستعجال في طرحه الاصدار الاول به عيوب فنية كثيرة يمكن ان الكثير لم ينتبهوا اليها واهم هذه العيوب انه يفترض ان المشروع جديد اي انه يبدا من الصفر لاحظ انه اذا كان لديك محل او مؤسسة فبالتاكيد انه سيكون هناك لديك عملاء وموردون واصناف وحركة كيف ستضيف هؤلاء الى البرنامج؟؟؟؟ ولا اقصد الاسماء وانما الارصدة والسداد والمدينونية على العملاء واستحقاق الموردين لايمكن اضافة رصيد لعميل الا عن طريق عملية البيع وبالتالي هذه نقطة ضعف وعيب فني بالبرنامج وكذلك الامر بالنسبة للموردين الاصدار الاثني اقوم بمراجعته حاليا ولن اطرحه هنا الا بعد التاكد 100% من صلاحيته وشكرا لكم

بسم الله الرحمن الرحيم ثانيا المشتريات ان سند استلام والمشتريات وسند ارتجاع المشتريات هي من المستندات الداخلية التي تستعمل داخل المؤسسة فقط وذلك لمراقبة الادخال للاصناف وارتجاع الاصناف المرتجعة حيث ان سند استلام المشتريات يتم ارفاقه مع فاتورة الشراء حيث يقوم قسم الحسابات بالتدقيق وتقييد القيمة للمورد وبالتالي فهو يختلف عن فاتورة البيع وليس بحاجة الى ان يكون على نموذج مطبوع ارجو ان يجيب هذا عن سؤال الاخ ايمن لماذا يختلف سند استلام المشتريات عن فاتورة البيع تبدا ارقام سند استلام المشتريات بالرقم P1001 وارتجاع المشتريات بالرقم S1001 وهذا الشكل يبين سند استلام مشتريات وسند ارتجاع مشتريات واظن انه ليس بحاجة لان يحمل اسماء الاصناف ما دامت الارقام موجود ومطابقة لفاتورة الشراء يتم طباعة سند الاستلام وارتجاع الستلام على ورق من النوع A4 حسب تنسيق الطباعة الموجود بالبرنامج وهو على الشكل التالي النماذج الجاهزة افضل اخي ايمن واسرع في الطباعة حيث انك لا تضطر الى النتظار وقت طويل لتنتهي الطابعة من الطباعة حيث ان الطابعة تطبع فقط الارقام ويمكنك ان تستفيد من نماذج الاكسل ولكن عند الطباعة ستجد انك ستنتظر وقت طويل حتى تنتهي الطابعة هذا بالنسبة لفواتير البيع وارتجاع المبيعات اما المستندات الداخلية كالتقارير والمشتريات فيكفي طباعتها على ورق ابيض من النوع A4

هذه هي الصور لمن لم يستعطع فتحها

بسم الله الرحمن الرحيم ساحاول ان اشرح كيفية عمل البرنامج بالنسبة للطباعة اولا سابدا بفواتير البيع وارتجاع المبيعات وعروض الاسعار حيث انها كلها تستخدم نفس النموذج وهو نموذج مطبوع جاهز من نسختين او اكثر السبب في ذلك انها مستندات للتداول الخاجي بالاضافة الى انها مستندات داخلية تهم الحسابات في المؤسسة وبالتالي يجب ان تكون على نموذج مطبوع لو طبعت اي من المستندات على ورقة بيضاء سيظهر الشكل التالي لاحظ ان الطباعة تبدأ من ثلث الورقة الثاني ولكن البرنامج مصمم للطباعة كما قلت عى نماذج جاهزة كالشكل التالي لاجظ كيف ان الفاتورة منسقة وجيدة نوعا ما وهذا ينطبق كما قلت على فوتير البيع وعرةوض الاسعار وارتجاع المبيعات مقاس الورق المستخدم هو letter بالمليمتر عرض الورقة 2150 ملم وطول الورقة 2790 ملم المشاركة القادمة سوف اشرح مستندات المشتريات والمتعلق بها اذا لم تكن الصورة ظاهرة اضغط على رابط الصورة لمشاهدتها لا اعرف لماذا المنتدى لم يعد يقبل صور بالنسبة لمشاركة الاخ eldefry راجع الموضوع من اوله هناك بعض المراجع التي يجب اضافتها اولا لكي يعمل البرنامج على جهازك وشكرا

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

بسم الله الرحمن الرحيم أخي العزيز ايمن لتعديل البرنامج بشان الطباعة وبشان ملاحظتك حول طباعة كشوف الجرد حمل الملف المرفق فك االضغط إلى مجلد واحفظ الاسم لأنك سترجع إليه بعد قليل قم بالتالي أولا افتح البرنامج ادخل إلى محرر فيجوال بيسك بالضغط على alt +f11 على اليسار ستجد أسماء الماكروات Modules ابحث عن Module المسمى module13 انقر علية نقرة واحدة بزر الماوس سيتم تحديد الماكرو الآن من القائمة file اضغط على remove module13 سيظهر مربع حوار يسألك إن كنت ترغب بحفظ الماكرو اضغط لا قم بنفس الأمر مع ال module14 ومع ال module15 ومع ال INVENTORYPRINT بعد ذلك من نفس القائمة fille اضغط على import file ستظهر شاشة تخبرك أن تدخل اسم الماكرو كالتالي ابحث عن المجلد الذي نزلته من الموقع اختاره ثم قم بالفتح ستجد داخله أربع ملفات تحمل نفس أسماء ال modules التي قمت بإزالتها اختر أي واحد منها ثم موافق كرر العملية حتى يتم استيراد الملفات الأربعة بعد ذلك قم بالحفظ من زر الحفظ أعلى الشاشة على اليسار هذه الملفات فيها تعديل عملية الطباعة بالجرد وكذلك تعديل الطباعة ليتوافق مع اغلب الطابعات

بسم الله الرحمن الرحيم أخي أيمن السلام عليكم ورحمة الله وبركاته بالنسبة للمراجع المفقودة لديك ليس لها اثر على البرنامج قمت بإزالتها من عندي ولم يتأثر عمل البرنامج بالنسبة لترقيم الأصناف تستطيع الترقيم حسبما ما تشاء ولكن الترقيم يفضل أن لا يكون عشوائيا بمعنى انه في جميع الشركات التي تقوم بإنتاج وبيع أصناف كثيرة تتبع نمط معين للترقيم مثال بفرض أن لديك أصناف كثير من نوع واحد مثلا كنت تعمل في صيدلية وفيها أصناف كثير متبادلة مثل حبوب الصداع اقترح أن يتم الترقيم كالتالي اجعل الرقم مكون من عشرة خانات أعطي احد الأصناف الرقم التالي 12010ADOL1 لاحظ أن الخمسة أرقام الأولى هي ما يسمى مفتاح الصنف وتدل على طبيعته أصبح لديك مفتاح للصنف ويدل على انه مثلا حبوب صداع (12010) أما الجزء الثاني من الرقم فيدل على نوع هذه الحبوب مثل حبوب بنادول أو باراسيتامول أو adol وعلى هذا المنوال إذا كان لديك صنف أخر من حبوب الصداع تستطيع أن تعطيه الرقم 12010PANAD لاحظ أن كلمة PANAD هي اختصار لكلمة PANADOL اتفقنا أن الخانات الخمسة الأخيرة تدل على نوع الصنف وإذا كان اسمه يتكون أكثر من خمسة أحرف عليك اختصاره ولكنني لم اجبر المستخدم على إتباع هذا النمط بل ترتكه اختياريا بمعنى انه كان بإمكاني أن اجعل البرنامج يرفض أي رقم يقل عن عشرة خانات ولكن تركته مفتوحا وذلك ليتماشى مع كثير من الأعمال الطريقة التي شرحتها بالترقيم تسهل أمور كثيرة مثل حفظ الأرقام بسهولة ويسر من قبل البائع فبمجرد النظر إلى الرقم 12010 يعرف انه حبوب صداع وبالنظر إلى الشق الثاني من الرقم يعرف نوع هذه الحبوب طبعا كما قلت أنت كان ممكن أن اجعل الكمبيوتر يقوم بالترقيم التلقائي كما في العملاء والموردين ولكن إذا كنت تتعامل مع أصناف كثيرة سوف تضيع وهنا طريقة أخرى للترقيم وهي السيريال نمبر لأي منتج بإمكانك اعتباره كرقم لهذا المنتج وهذا أيضا يسهل العمل على البائع ولا داعي لان يحفظ الأرقام فهي موجودة على علب الأصناف بالنسبة لترويسة التقارير اعتمدت اللغة الانجليزية يمكن تغير ذلك إذا أردت ذلك أعلمني وسوف اشرح لك كيفية التغير بالنسبة لرسالة الخطأ سببها نوع الطابعة الموجودة عندك وهي ليزرية على ما أظن قمت بحل المشكلة complile error variable not defined (module13 (code xlPrintErrorsDisplayed أما بالنسبة للرقم P1001 الذي ظهر ولم تدخله فهو استلام فاتورة المشتريات عندما تدخل المشتريات فانه يتم ترقيم كل فاتورة ابتداء من الرقم P1001 وهو ما يسمى بسند استلام المشتريات RECEIVENO اختصار لهذا الاسم باللغة الانجليزية لماذا هذا الترقيم؟ عليك أنت أن تجيبني أما التقارير جميعها لا يظهر فيها أسماء الأصناف وإنما أرقام الأصناف فقط لماذا واعتقد أن هذا كاف فبوجود الرقم تستطيع الرجوع إليه لمعرفة نوع الصنف وما إلى ذلك من معلومات بالنسبة لطابعتك أنا قمت بتعديل اكواد الطباعة عندي لتتلائم مع كل الطابعات إذا أردت أن تعدلها عندك أعلمني بذلك و إلا فانه عليك انتظار الإصدار الثاني من البرنامج وأخيرا شكرا لأخي ما جد جلال على هذه المعلومة التي لم أكن اعرفها

بسم الله الرحمن الرحيم بالنسبة لتحميل الصور تحتاج لبرنامج لاقط الشاشة تستطيع ان تحمله من الرابط التالي http://download.ec-software.com/tntsetup.exe بعد التحميل فك الكراك المرفق مع المشاركة الى مجلد البرنامج ثم اضغط PATCH بالنسبة لباقي الامور امهلني يومين لانني مشغول جدا اليوم وغدا واعدك بالرد باسرع ما يمكن ولك الشكر eattnts2c.rar

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

بسم الله الرحمن الرحيم ضع الصيغة التالية في الخلية b1 =IF(AND(A1>0;A1<=50);"ضعيف";IF(AND(A1>50;A1<=60);"مقبول";IF(AND(A1>60;A1<=70);"جيد";IF(AND(A1>70;A1<=85);"جيد جدا";"ممتاز"))))

بسم الله الرحمن الرحيم اخي ايمن ان المرجع Microsoft Excel 9.0 Object library هو الاصدار الاقدم ولايؤثر على عمل البرنامج ولكن ساحاول ان اعطيك بعض التعليمات اتبعها وحاول هذهالمرة عسى ان يعمل البرنامج اولا قم بتشغيل البرنامج افتح محرر الفيجوال ثم افتح refrences كما في الصورة قم بازالة جميع المراجع التي يمكن ازالتها كما بالصورة التالية هناك بعض المراجع لايمكن ازالتها لانها قيد الاستخدام بعد ذلك قم باضافة المراجع مرة اخرى كما في الصورة الاولى بعد ذلك قم بالحفظ من الايقونة في الاعلى على اليسار كما في الصورة التالية ثم اعد تشغيل الملف جرب وخبرني طبعا المراجع الموجودة عندك هي الاصدار 9 هذا لايهم

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