احمد ابوزيزو

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

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

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

=FLOOR(IF(A1>32083.33;6427.083+(A1-32083.33)*0.25;IF(A1>15416.66;2677.08+(A1-15416.66)*0.225;IF(A1>3750;343.75+(A1-3750)*0.2;IF(A1>2500;156.25+(A1-2500)*0.15;IF(A1>1250;31.25+(A1-1250)*0.1;IF(A1>0;A1*0.025;0))))));0.1) باعتبار ان الخلية a1 هي صافي الوعاء الخاضع الشهري للضريبة بعد خصم جميع الاعفاءات والاعفاء الشخصي والشريحة المعفاه =FLOOR(IF(A1>385000;77125+(A1-385000)*0.25;IF(A1>185000;32125+(A1-185000)*0.225;IF(A1>45000;4125+(A1-45000)*0.2;IF(A1>30000;1875+(A1-30000)*0.15;IF(A1>15000;375+(A1-15000)*0.1;IF(A1>0;A1*0.025;0))))));10) باعتبار ان الخلية a1 هي صافي الوعاء الخاضع السنوي للضريبة بعد خصم جميع الاعفاءات والاعفاء الشخصي والشريحة المعفاه

شيت اكسيل به معادلة لحساب الضريبة اعتبار من 1 / 7 / 2020 بعد القانون 26 لسنة 2020 حسبة الضريبة.xls

شكرا لحضرتك Ali Mohamed Ali وعذرا لحضرتك اري ان العضو الذي اضاف الموضوع هو من يحدد اذا تمت الاجابة علي الموضوع من عدمه

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

شكرا للمعلومة اضافة علي التنسيق السابق لاظهار الرقم بعلامة عشرية واحدة 0.0 [2000000-$] لاظهار الرقم بعلامتين عشريتين 0.00 [2000000-$] السؤال هنا ماذا لو اردنا تنسيق الرقم واظهار فاصل الآلف ؟

استاذ / ناصرالمصرى يمكنك الاستعانة بهذا البرنامج https://www.facebook.com/pg/salaryscale/posts/

لم تصدر تعليمات الحافز الجديد بعد وقد تصدر التعليمات ومعها انشاء كود ( اقتصادي شجرة ثانية وثالثة ) جديد للحافز الجديد او ان ينص القرار علي اضافة مبلغ الحافز الجديد الي الحافز الاضافي الـ 150 جنية الذي تقرر في يوليو 2019

السادة الاعضاء الكرام ...السادة المشرفين المحترمين تحية طيبة ،، تم البحث عن الكود وتم الحمد لله العثور علي كود مناسب من خلال الصفحة https://www.mrexcel.com/board/threads/insert-a-page-break-before-a-specific-cell-value.808182/ وتم التعديل علي الكود ليناسب المطلوب فاصبح الكود كالتالي Private Sub Worksheet_Activate() 'ازالة فواصل الصفحات واعادة ضبط الزروم الي100في المائة Cells.Select ActiveSheet.ResetAllPageBreaks ' ضبط الزوم للصفحة الي 85في المائة With ActiveSheet.PageSetup .Zoom = 85 End With If TypeName(ActiveSheet) <> _ "Worksheet" Then Exit Sub Dim find_text As Variant find_text = "فاصل" If find_text = False Then Exit Sub Dim num As Long Dim cell As Range num = 0 For Each cell In Range("a:a") If LCase(cell.Value) = ("فاصل") Then num = num + 1 cell.PageBreak = xlPageBreakManual End If Next cell End Sub كما تم اضافة عمود في بداية ورقة كشوف لاضافة كلمة "فاصل" اسفل الصف المراد ادراج فاصل صفحة تحتة شكرا لحضراتكم بعد اضافة كود فاصل الصفحات ...المرتبات قانون81 شهر يوليو2020لعدد220موظف.xlsb

الاستاذ / سليم حاصبيا شكرا علي اهتمامكم ما زالت الرسالة تظهر عند الضغط علي زر الماكرو .......والاوفيس 2013

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

السادة الاعضاء الكرام ...السادة المشرفين المحترمين تحية طيبة ،، المرفق ملف مرتبات يكفي لعدد 220 موظف مقسم كل 20 موظف في صفحة واسفل هذه الصفحة يوجد صف اجمالي يستخدم هذا الملف من قبل وحدات كثيرة ليس بالضرورة ان يكون لديها الـ 220 موظف وبالتالي ان تم عمل فاصل صفحة لكل الصفحات يظهر جميع الصفحات عند الطباعة المطلوب ان يتم عمل فاصل صفحة تلقائي بورقة كشوف بناء علي قيمة خلية بالصف اذا كانت هذه الخلية اكبر من صفر يتم ادراج فاصل صفحة تحت هذا الصف (الاجمالي لكل 20 موظف ) شكرا مقدما للجميع المرفق المرتبات قانون81 شهر يوليو2020لعدد220موظف.xlsb

تم حل النقطة الخاصة بالتنقل داخل الفورم وفقا للترتيب رقم امر الدفع - المبلغ - النوع - التاريخ - الاضافة وذلك بعد ملاحظة انة يتم ترتيب التنقل بنفس ترتيب ادارج او اضافة الايقونات (TextBox و Combo box ) للفورم وعلية تم حذف الايقونات واضافتها للفورم بالترتيب المطلوب . في انتظار حل نقطة ان يظهر التاريخ بالفورم علي الصورة YYYY/MM/DD

تم التوصل الي حل للنقطة الاولي ((/يظل نوع امر الدفع وتاريخة بعد الاضافة لاول مره حتي يمكن استخدامهما في الاضافات التالية دون الحاجة لاعادة كتابتهما ...مع امكانية تغييرهما عند الحاجة)) وذلك بايقاف مسح بيانات ComboBox1 و ComboBox2 تبقي التنقل بواسطة زر Tab وتنسيق التاريخ ليظهر بالفورم علي الصورة المعتادة yyyy / mm / dd

السادة المشرفين .. السادة الاعضاء ..تحية طيبة الملف المرفق به فورم او شاشة إدخال ( مقتبس من المنتدي ) به عدد 4 بيانات لامر الدفع ( رقمه _ نوعه _ مبلغه _ تاريخه ) المطلوب التعديل علي الفورم بحيث : ــ 1/يظل نوع امر الدفع وتاريخة بعد الاضافة لاول مره حتي يمكن استخدامهما في الاضافات التالية دون الحاجة لاعادة كتابتهما ...مع امكانية تغييرهما عند الحاجة ( وذلك لان اليومية الواحدة ذات التاريخ الواحد تحتوي علي العديد من اوامر الدفع من نفس النوع ) 2/ التنقل في الادخال بالضغط علي زر Tab بالترتيب التالي الرقم _ النوع _ المبلغ _ التاريخ _ الاضافة 3/ هل يمكن تعديل الكود بحيث يعمل علي الورقة النشطة بدلا من تحديد الورقة (لان الملف يحتوي علي عدد 12 ورقة بعدد اشهر السنة تم نسخ الكود 12 مرة فقط يتم تغيير اسم الورقة التي يتم عليها الادخال ) 4/ يظهر تنسيق التاريخ بالفورم علي الصور yyyy/mm/dd بدلا من الصورة mm/dd/yyyy حتي لا يحدث لبس عند المدخل شكرا مقدما للجميع .......... 2اوفيسنا.xlsb

السادة الاعضاء المحترمين ...السادة المشرفين المحترمين تحية طيبة المرفق ملف لتسجيل اوامر الدفع الصادرة يستخدم في الوحدات الحسابية في ورقة يوليو تم قيد عدد من اوامر الدفع الصادرة وتم تسوية بعضها خلال هذا الشهر وتبقي عدد من اوامر الدفع لم تتم تسويتها خلال الشهر وظهرت كلمة " يرحل " في العمود A وتم تميز هذه الاوامر باللون الاحمر المطلوب ترحيل بيانات الخلايا الموجود من العمود C الي العمود F ..... بشرط ان تكون القيمة في الخلية المجاور A يرحل يتم ترحيل هذه البيانات وبنفس الترتيب الي ورقة الشهر التالي اغسطس بداية من الصف رقم 504 حتي اخر امر دفع لم يتم تسويته وستتكر هذه العملية من شهر الي الشهر التالي له عما بان الاوامر التي لم تتم تسويتها يتم ترحيلها فقط الي الشهر التالي لها مباشرة ولا تمتد الي الشهر بعد التالي الاوراق مؤمنة برقم (1) شكرا مقدما لحضراتكم ‏‏اوامر الدفع الصادرة - نسخة.xlsb

الاستاذ المحترم سليم حاصبيا تم الانتباه الي رقم الزر BUTTON وتم تعديل الكود الكود يعمل بكفاءة شكرا لحضرتك

الاستاذ المحترم سليم حاصيبيا .........شكرا لاهتمامكم تم تعديل الكود بالشكل التالي Option Explicit Sub Click_me() Static t% If t Mod 2 = 0 Then Selection.AutoFilter Field:=1, Criteria1:="اطبع" Me.Shapes("Button 1").TextFrame. _ Characters.Text = "الكل" Else Selection.AutoFilter Field:=1 Me.Shapes("Button 1").TextFrame. _ Characters.Text = "افرز" End If t = t + 1 End Sub عند الاستخدام تظهر الرسالة التالية اما عند ايقاف ( Me.Shapes("Button 1").TextFrame. _ Characters.Text = "الكل" Me.Shapes("Button 1").TextFrame. _ Characters.Text = "افرز" يعمل الكود مثل الكود الاول شكرا مقدما

الاستاذ المحترم / سليم حاصبيا ............تحية طيبة ...........متعكم الله بموفور الصحة وتمام العافية تمام الكود يفي المطلوب واذا تفضلتم ....هل يمكن تغيير اسم الزر من ( افرز الي الكل ) بالتبادل عند استخدام الزر او تغيير لون الزر شكرا لحضرتك علي الاهتمام والرد

السادة الاعضاء المحترمين بالشيت المرفق عدد 2 زر تم ربط كل زر منهما ليقوم بتنفيذ ماكرو معين المطلوب استخدام زر واحد ليقوم بتنفيذ الماكرو الاول منفردا وعند استخدامه (نفس الزر ) مره اخري يقوم بتفيذ الماكرو الثاني منفردا وهكذا زر واحد لتنفيذ عدد 2 ماكرو بالتبادل الزر الاول باسم اطبع الزر الثاني باسم الكل ضبط الارصدة النظامية.xls

وجزاكم خيرا

يتم الرجوع الي مجلس ادارة الصندوق اكيد اوراق انشاء الصندوق واللائحة الداخلية له موجوده لدي المسئولين عن ادارة الصندوق