ناصر سعيد

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

بارك الله فيكم وزادكم الله من فضله- طباعة اللجان بطريقة يدوية وآلية .... لايوجد التوزيع الالي موضع الدوائر على الشهادات يا اخي الكريم له شروطه فمثلا طالب لم يحصل على درجه ثلث درجة امتحان اخر العام مع ان مجموعه في هذه الماده فوق ال 50% يجب ان يوضع على هذه الدرجة العاليه في الشهاده دائره

للرفع رفع الله قدركم

جزاك الله كل خير ورزقك الله من الخير كله عاجله واجله ما علمنا منه وما لم نعلم

الاستاذ الكبير العلامه عبد الله باقشير اقدم لك اطيب الاماني لشخصكم الكريم وارجو ان يكتمل فرح الجميع باضافة كود الوائر الحمراء على هذا الملف مع ملاحظه ان الدائره الجمراء توضع للطالب الذي لم يحصل عل 30% من درجة اختبار اخر العام او الذي لم يحصل على 50 % من المجموع الكلي للماده او الغايب كود الدوائة الحمراء على الشهادات.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 15.8كيلو 19 عدد مرات التحميل

بارك الله فيك علامة الوطن العربي وجاري النجربه

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

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

للرفع رفع الله قدركم

جزاكم الله خيراً على هذا الموضوع المميز

اضافة كود الدوائر الحمرا على الشهادات في الملف المرفق الاجابه للعلامة عبد الله باقشير السلام عليكم يعمل الكود عندما يتم التغيير في الخلية F1 المرفق 2003 ملفات مرفقة أوائل الطلبه وشهادات3.rar 215.44 كيلو

اين الغالي بارك الله فيكم

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

للرفع رفع الله قدركم

هذا الملف من الموضوع الرائع التالي http://www.officena.net/ib/index.php?showtopic=46159&st=0&p=274951 أوائل الطلبه وشهادات3_2.rar

السلام عليكم ورحمة الله لو سمحتم اريد اضافة كود الدوائر الحمرا على الشهادات في الملف المرفق وجزاكم الله خيرا

جزاك الله خيرا وبارك لك الاستاذ المحترم ابو براء

الكود يعمل جيدا ولكن لي سوال مالفرق بين هذا الكود وكود العلامه للدوائر الحمرا القديم Sub اضافة_حذف() On Error Resume Next Dim XX As Shape Set XX = ActiveSheet.Shapes("الدائرة") With XX.TextFrame.Characters If .Text = "إضافة الدوائر" Then Circles1 .Text = "حذف الدوائر" Else RemoveCircles1 .Text = "إضافة الدوائر" End If End With On Error GoTo 0 End Sub Sub Circles1() Dim c As Range Dim MyRng As Range, V As Shape Dim X As Integer, G As Integer, R As Integer, d As Integer '================================================ G = 2 ' عمود رقم الجلوس R = 11 ' صف الدرجات Set MyRng = Range("l9:dn500") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ X = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For Each c In MyRng If Cells(c.Row, G) = 0 Or Cells(c.Row, G) = "" Then GoTo 1 If IsNumeric(Cells(R, c.Column)) And Not IsEmpty(Cells(R, c.Column)) And (c.Value < Cells(R, c.Column) Or c.Value = "غ" Or c.Value = "غـ") And c.Value <> "" Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left + 1, c.Top + 1, c.Width - 2, c.Height - 2) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 3 d = d + 1 End If 1 Next ActiveWindow.Zoom = X Application.ScreenUpdating = True MsgBox "تم إضافة " & d & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub Sub RemoveCircles1() Dim shp As Shape, d As Integer For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeOval Then shp.Delete: d = d + 1 Next shp MsgBox "تم حذف " & d & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub طباعة1.rar

بارك الله لك العلامة باقشيروالاستاذ رجب عند الضغط على زر اضافة لااجد اي دوائر .. لماذا ؟

جزيل الشكر .. بارك الله بك .. وفقك الله دائما

جزيل الشكر .. بارك الله بك .. وفقك الله دائما

جزيل الشكر .. بارك الله بك .. وفقك الله دائما

جزيل الشكر .. بارك الله بك .. وفقك الله دائما

بيانات .. التحقق من الصحة .. اعدادات ستجد السماح والصيغه في السماح اجعلها مخصص وفي الصيغه اكتب (156)char = جزاكم الله خيرا