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

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

بسم الله الرحمن الرحيم وبه نستعين والصلاة والسلام على رسول الله ... اللهم صلى عليه أفضل الصلاة وأذكى السلام الساده الزملاء والزميلات السلام عليكم جميعا ورحمته الله وبركاته بمراجعة معادلة ضريبة الدمغه النسبية على المرتبات والمطروحة على صفحات صرحنا العريق تبين أن هناك خطأ جسيما فى تطبيقها حيث انها تفتقد للدقه نظرا لما يتخللها من زيادات غير مبرره الامرالذى أستدعى إعادة صياغتها نحوالاصوب وكما تعلمون سيادتكم أنه ووفقا لنص المادة رقم 79 من القانون رقم 111 لسنة 1980 وتعديلاته بأن تكون الشرائح على النحو التالى الشريحة الاولى أقل من أويساوى 50.00 جنيها معفاه الشريحة الثانية أكبرمن 50.00 وأقل من أويساوى 250.00 جنيها × 6 الالف = 1.20 الشريحة الثالثه أكبرمن 250.00 وأقل من أويساوى 500.00 جنيها × 6.5 الالف = 1.63 مقربا الى 1.65 الشريحة الرابعه أكبرمن 500.00 وأقل من أويساوى 1000.00 جنيها × 7 الالف = 3.50 الشريحة الخامسة أكبرمن 1000.00 وأقل من أويساوى 5000.00 جنيها × 7.5 الالف = 30.00 الشريحة السادسه أكبرمن 5000.00 وأقل من أويساوى 10000.00 جنيها × 8 الالف = 40.00 الشريحة السابعه أكبرمن 10000.00 × 3 الالف حساب الدمغه النسبية فأنه يتم وفقا للعملية الحسابية التالية ( الاجرالاساسى المجرد من العلاوات + الاجرالمتغيربدون العلاوات الغيرمضافة وبدون المزايا العينية ) مطروحا منه ( أقساط التأمينات الاجتماعية للأجرين الاساسى والمتغير) مضروبا فى النسبة المحددة وفقا للشرائح السابق ذكرها ويجبر مبلغ ضريبة الدمغة الي مضاعفات الخمسه قروش الي اعلي وبناءا عليه فقد تم تصويب المعادلة بمعادلة أخرى تحريت فيها الدقه المطلوبه كما ورد بالمرفق التالى تقبل الله منا ومنكم صالح الاعمال تقبلوا وافر احترامى وتقديرى وجزاكم الله خيرا =IF(D5<=50;"";CEILING(IF(AND(D5>50;D5<=250);(D5-50)*0.006;IF(AND(D5>250;D5<=500);(D5-250)*65/10000+1.2;IF(AND(D5>500;D5<=1000);(D5-500)*7/1000+2.83;IF(AND(D5>1000;D5<=5000);(D5-1000)*75/10000+6.33;IF(AND(D5>5000;D5<=10000);(D5-5000)*8/1000+36.33;IF(D5>10000;(D5-10000)*3/1000+76.33))))));0.05))

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

السلام عليكم كثرت الاسئلة عن لوائح منسدلة مترابطة و اليكم موضوع بهذا الشأن لوائح منسدلة مترابطة.rar

للمهتمين بإدارة المشاريع خصم خاص لأعضاء أوفيسنا للتسجيل لحضور منتدى دبي العالمي لإدارة المشاريع خصم 20% عن القيمة المعلنة للتسجيل يرجى مراسلة register@dipmf.ae ارسل بريد من بريدك العادي الي register@dipmf.ae بها بيانات التواصل معك و رغبات التسجيل بحسب ما هو فى الموقع على أن يكون عنوان الرسالة الاليكترونية Officena و سيقوم فريق العمل الخاص بالتسجيل بالتواصل معكم لاستكمال التسجيل يضم البرنامج كوكبة من أبرز خبراء إدارة المشاريع العالميين يعقد المنتدى 29 و 30 سبتمبر الجاري بقاعة المؤتمرات بمدينة جميرا - دبي موقع المنتدى www.dipmf.ae

الاخوة الاعزاء لدى ملف pivot table مسجل فيه استلامات افراد في العمل لادوات مهام شخصية عايز احصل على طريقة اعطى الملف ده مجموعة ارقام وظيفية للعمال ويعطينى كل رقم منهم استلم ايه بالكمية والتاريخ وشكرا

وعليكم السلام هذه الدالات معمولة بالكود يجب نقل الكود الخاص بالدالة الى ملفك استخدم هذا الكود يعمل على اي خلايا يتم تحديدها Sub kh_TrimSelection() On Error Resume Next Dim cel As Range For Each cel In Selection.Cells If Not IsNumeric(cel) Then cel.Value = WorksheetFunction.Trim(cel) End If Next On Error GoTo 0 End Sub تحياتي

السلام عليكم ورحمة الله مشاركة بسيطة مما تعلمته من هذا الصرح العظيم (( صفحة تصلح لواجهة برنامج )) واجهة صفحة.rar

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

السلام عليكم اخى الاستاذ محمد الخازمى قمت بحل لك عن طريق معادلة صفيف ولكن ليس ب vlookup تم الحل بمعادلات index وهى ستؤدى الغرض ان شاء الله تعالى تقبل خالص تحياتى دالة Vlookup بشرطين.rar

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

استاذ علي/السلام عليكم اليك هذا الملف ربما كان المطلوب مجموع النسب.rar

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

اخي الكريم تم التعديل على الملف ليعمل كما تريد لوائح منسدلة مترابط حسام عيسىى.rar

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

وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520 ============== الادارة ==============

السلام عليكم ضع المعادلة التالية في الخلية C8 واسحبها لاسفل =IFERROR(LEFT(VLOOKUP($A8;تكويد_تعريفات!$A$2:$B$10;2;0);1)&TEXT(SUMPRODUCT(N(LEFT($C$7:C7;1)=LEFT(VLOOKUP($A8;تكويد_تعريفات!$A$2:$B$10;2;0);1)))+1;"000")&"-000";"") تحياتي

السلام عليكم بارك الله جهودكم الحقيقة قمة في الإبداع ملاحظة:الرجاء الشرح على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة .

بسم الله الرحمن الرحيم وجدت لدى الاكواد التاليه تعمل على اكسيل 2003 و لم تعمل معى على 2007 لاطفاء مفتاح Save As Sub File_DisEable() CommandBars("Worksheet menu bar").Controls("File").Controls("Save As").Enabled = False End Sub و لاعادته مره اخرى Sub File_Enable() CommandBars("Worksheet menu bar").Controls("File").Controls("Save As").Enabled = True End Sub و اذا كان الاكسيل بالعربى استبدل "File"ب "ملف" و هكذا و لالغاء عمل مفتاح F2 Sub F12_Disable() Application.OnKey "%{F12}", "" End Sub و لاعادته مره اخرى Sub F12_Enable() Application.OnKey "%{F12}" End Sub السلام عليكم