نجوم المشاركات

أخواني وأخواتي الأعزاء تحية طيبة وبعد ،،،،،،،، أقدم اليوم إليكم برنامج الرواتب والموارد البشرية حسب قانون الخدمة المدنية الفلسطيني قبل التعديل ، وأتمنى أن تستفيدوا من الأفكار والبرمجة الموجودة بداخله حيث أنه مفتوح المصدر. توجد به حركة الرواتب من 30/4/2004 وحتى 31/12/2005 حيث كان الاحتساب يبدأ بتاريخ نهاية كل شهر مثال ذلك 30/4/2004 أو 31/5/2004 أو 30/6/2004 أو 31/12/2005 وهكذا فإذا أردت طباعة أي استمارة راتب مثلاً كل ما عليك أن تدخل رقم الموظف في خانة من .. الى .. وتاريخ الاحتساب. أتمنى لكم التوفيق Salaries_2005.rar

كتبت هذا الموضوع لأن أكثر من شخص قد قام بالسؤال حوله وقد تفضل أكثر من أخ بالإجابة عليه وتتلخص الإجابة فى التالى فقط قم بتنسيق الشهادة أو الرسالة التى تريد إرسالها وإضافة حقول الدمج لها وقم بتكرارها فى الصفحة بعدد المرات التى تريد وبين كل رسالة أو شهادة فقط تفضل بإضافة السطر التالى «Next Record» وفى نهاية الصفحة كذلك «Next Record» ثم بعد ذلك إضغط إنهاء ودمج ستجد فى المستند الناتج قد تكررت الشهادة أو الرسالة فى الصفحة الواحدة مع اختلاف المرسل إليه أو اسم صاحب الشهادة إذا استفدت فلا تنسنا من الدعاء لى ولأبى ولأمى ولأمة محمد أجميعن بالرحمة والمغفرة ملحوظة أرفقت مثال لأحد الاخوة كان يسأل عن كيفية عمل مثل هذه الشهادة وتكرار ها وقد قمت بالتعديل عليه سبحان الله.rar

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

فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة هو طلب للاخ الكريم / وليد زقزوق في موضوع وطلب له علي الرابط http://www.officena.net/ib/index.php?showtopic=49438 ولكن ما دعاني لوضعه في موضوع جديد هو ان عنوان الرابط المذكور (( كود لحذف ورقة عمل جديدة )) ********************************** فأردت وضعه في موضوع جديد بعنوان جديد للتسهيل علي من يبحث عن مثل هذه الاوامر ********************************************* وتم تنفيذ طلب للاخ الحبيب / إبراهيم ابوليله ايضا علي نفس الرابط بمنع اضافة الشيتات في حالة تكرار الاسم ارجو ان ينال اعجابكم .... ويكون فيه الافادة للجميع جزاكم الله خيرا sama-add-sheet.rar

السلام عليكم وكل عام وانتم بخير , ولو انها متأخره شوي اتمنى العنوان يكون سليم ( لاهنتم وجزاكم الله خيراً اولاً واخيراً , لدي برنامج تحضير صباحي وعدد الموظفين يفوق الـ 200 ولاتوجد اي مشاكل فيه وهو من عمل العم ابوخليل الله يطول في عمره إن شاءالله , اتمنى تعديل بسيط فيه وهو ( اذا كان الموظف في اجازة سنوية يضيفة للتحضير اليومي تلقائي بدون تدخل مني ) مثلاً اذا موظف سجلت له اجازة لمدة 60 يوم من التاريخ 01/01/2013 ولغاية 01/03/2013 خلال هذه الفتره لايوجد له اسم في فورم الحضور الصباحي . مثال آخر ( لدي عدد 10 موظفين في فورم التحضير وعدد 2 في اجازة سنوية , بهذه الحالة يكون في الفورم فقط 8 موظفين يعني ماله داعي كل يوم اسجل فلان الفلاني مجاز سنوي ) شغلة متعبة اذا عدد المجازين 30 موظف كل شهرين , ادري فاهمين قصدي بس للتوضيح يمكن شرحي مو وااضح ,,, وسلاامتكم ,, ALL_HD.rar

الموضوع بسيط فقط ضف السطر التالى بعد كل شهادة «Next Record» أياً كان مصدر البيانات فالأمر بسيط وإذا اردت شرح اكثر وضح فقط الأمر الذى توقف معك وأنا فى الخدمة ولا تنسنا من الدعاء لى ولأبى ولأمى ولأمة محمد أجمعين المستند الاساسي بعد التعديل.rar

السلام عليكم ورحمة الله وبركاته ادة جديدة بعد عمل ستب لها تضاف لمجموعة الاوفيس فى الحفظ باسم خيار الحفظ بصيغة pdf ,xps تم التجربة فى الاكسيل وفى الورد اتمنى ان تفيدكم سعد عابد اضافة لاوفيس لحفظه pdf.rar

تم الاجابة علي الرابط التالي ... بعنوان (( فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة )) http://www.officena.net/ib/index.php?showtopic=49585

=IF(ISERROR(VLOOKUP(A2;'القائمة الرئسية'!$A$2:$B$1000;2;0));"اعتماد";IF(VLOOKUP(A2;'القائمة الرئسية'!$A$2:$B$1000;2;0)=B2;"موجود";"تحديث"))

السلام عليكم جرب الكود التالي الصقه في حدث الفورم Private B_T, B_Lf Private Sub UserForm_Activate() B_T = Me.Top: B_Lf = Me.Left End Sub Private Sub UserForm_Layout() If Not IsEmpty(B_T) Then: Me.Top = B_T: Me.Left = B_Lf End Sub