ضاحي الغريب

أخي الحبيب / بن علية حاجي بارك الله فيك علي مبادرتك معي وجزاك الله خيرا بالنسبة للاجزاء العشرية انا ضبط التقريب الي رقمين فقط بعد العلامة العشرية وهنا استحقاقات نهاية الخدمة المتبع في اغلبية الشركات وسوف اقوم بترك القواعد سهلة التعديل حتي يتسني للمستخدميين تعديلها حسب لوائح الشركة والموضوع يخاطب العمالة الموجودة بالدول العربية والمعاش ايضا سبب من اسباب نهاية الخدمة ويعامل معاملة (الاستغناء عن الخدمات) ده علي حسب معلوماتي لذلك طرحت الموضوع للمناقشة والمراجعة بارك الله فيك اخي وجعل كل اعمالك في ميزان حسناتك تقبل تحياتي

أخي الحبيب // أبوعبدالله ((الجزيرة)) بارك الله فيك وجزاك الله خيرا واللهم يجعلنا عند حسن ظنكم تقبل تحياتي

أخي الكريم اضفت لك البحث والتعديل والاضافة للفورم بالمرفقات عمولة التحويلات المالية.rar

الاخ / قنديل لاتنسي تقوم بتعديل (J11) الي =IF(AND(H11="غائب";I11="غائب");"غائب";I11/2) حتي تظهر درجة نصف العام في الدرجة الفعلية Book1.rar

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

اخي الكريم // قنديل الصياد قم بتغيير(OR) الي (AND) المعادلة في الخلية (I11) لتصبح =IF(AND(D11="غائب";E11="غائب";F11="غائب";H11="غائب");"غائب";SUM(D11;F11;G11;H11)) وفي الخلية )P11) =IF(AND(K11="غائب";L11="غائب";M11="غائب";N11="غائب";O11="غائب");"غائب";SUM(K11;M11;N11;O11)) وفي الخلية (R11) =IF(AND(J11="غائب";Q11="غائب");"غائب";SUM(J11;Q11)) وفي الخلية (S11) =IF(AND(H11="غائب";O11="غائب";R11="غائب");"غائب";IF(AND(R11>=90;H11>=H$6);"ناجح";"له دور ثانى")) بالمرفقات التطبيق وقم بتطبيقها علي باقي الخلايا وشاهد النتيجة Book1.rar

الملف بعد التعديل بالمرفقات تم اضافة التنسيق مع مفتاح التعديل جرب ووافيني بالنتيجة الثلاجة 2.rar

الاخ الكريم / محمد انا عدلت عند الادخال فقط علي اية حال تعديل اخي الحبيب بن علية حاجي ممتاز جدا بارك الله فيه وجزاه خيرا

اخي الحبيب // محمود بارك الله فيك وجزاك الله خيرا وندعوا الله ان يتقبل منا ومنكم صالح الأعمال وان يجعل اعمالنا خالصة لوجه الكريم عندما تقوم بمسح البيانات امسح البيانات فقط من بداية الخلية A2 الي m للاسفل قم قوم بنسخ البيانات من ملفك الاصلي عمود عمود جرب وان شاء الله ينجح معاك ان لم تنجح انقل الفورم والموديلات من الملف الاخير الي ملفك مع تعريف الاسماء تقبل تحياتي

أخي الحبيب// محمد اليك الملف بعد التعديل بالمرفقات وخلي بالك ليكون عامل الثلاجة مشترك في الموقع ويكون عرف الباس وورد تقبل تحياتي ثلاجة معدل.rar

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

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

أخي الكريم// محمد عبدالصمد محرر الاكواد محمي بباس ووور وعلي اية حال لو فرضنا ان تريد ادخال ارقام فقط في تكست بوكس 1 استخدم الكود التالي Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 46, 48 To 57 Case Else KeyAscii = 0 MsgBox "فضـلا أستخدم الأرقام فقط" End Select End Sub أو هذا الكود Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsNumeric(TextBox1.Value) Then MsgBox "فضلا قم بادخال أرقام فقط" Cancel = True End If End Sub واذا كنت تريد ان يدخل الرقم بتنسيق رقم استخدم السطر التالي اضفه مع مفتاح الادخال لديك بفرض ان التكست بوكس 1 TextBox1.Text = Format(TextBox1.Text, "0")

أخي الحبيب /// حسام السلام عليكم ورحمة الله وبركاته الملف مضبوط وكود (((اخي الحبيب بن علية حاجي)))..... رائع ويعمل بكفاءة. وهذه صورة من الملف والملف رفعته لك مــرة أخري (((علي الرابط التالي ))) http://

اخي الكريم ضاحي الغريب اشكر سرعة ردك وتجاوبك... و ارجو الإفادة اذاكان ممكن الإجابة على السؤال الثاني اعلاه بارك الله جهودك و رعاك أخي الكريم قم بتغيير المعادلة في A30 الي =IF(A25>=A28;A29/1500;-A29/1500) FM-F16, جرد الصندوق.rar

اخي الكريم // السلام عليكم ورحمة الله كل شيء سهل ان شاء الله ويأتي بالتجربة والخطأ اليك موضوع يمكنك البدء منه لاخي الحبيب // حمادة عمر طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=45232 بشرح ميسر وبسيط اتبع الخطوات وطبقها وان احتجت اي شيء لا تتردد في طلبه او الاستفسار عنه ومعك خطوة خطوة والله ولي التوفيق

اخي الحبيب /// محمود بارك الله فيك وجزاك خيرا راجع الملف جيدا وان كان هناك أي تعديلات تيسر عملك لا تتردد في طلبها تقبل تحياتي

أخي الكريم / أحمد غانم السلام عليكم ورحمة الله وبركاته قم بتغيير المعادلة في ((A29)) الي =IF(A28="";"";A25-IF(A28>0;A28;-A28)) بالمرفقات التطبيق FM-F16, جرد الصندوق.rar

الأخ الكريم // ............... انا والله مو عارف اسمك حتي الأن ...!؟ علي اية حــال تم معالجة الفورم حسب طلباتك. وضبط ناحية الطباعة .......................... وظبط خصائص البحــث , واضافة كمبوبوكس اذا احببت ان تختار رقم الموظف مباشرة جرب واعلمني بالنتيجة . والله ولي التوفيق شئون الموظفين مبسط - الاصدار الثاني.rar

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

أخي الكريم // فارس الرشيدي ......... بالمرفقات الملف بعد تعديل عميدنا ومعلمنا الاستاذ / دعيدي ((بارك الله فيه وجزاه عنا خير الجزاء)) وتم اضافة تعديلات العمليات الحسابية وكود التعديل وبالتوفيق ان شاء الله حركة العميل.rar

أخي الحبيب الأستاذ / حمادة عمر بارك الله فيك وجزاك خيرا دائما سباق لفعل الخيرات جعلها الله في ميزان حسناتك تقبل تحياتي

بعد اذن اخي الحبيب / حمادة عمر (روح المنتدي) تم نقل كود الأستاذ // حمادة عمر لملفك الجديد (اليومية الرئيسية) عمولة التحويلات المالية الرئيسية.zip

أخي الحبيب // فارس الرشيدي جزاك الله كل خير علي دعائك والفضل لله وحده سبحانه وتعالي كلنا اخوان في الله بارك الله فيك تقبل تحياتي

اخي الحبيب // حمادة عمر الله لا يحرمنا من روائعك اخي الخبيب ابوالقبطان بارك الله فيك