أباالحسن

الإخوة الأفاضل 
احمد ابوزيزو
سعيد بيرم

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

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

فهل اجد لدى حضراتكم اخر قانون رسمي لحساب ضريبة الدمغة
الرجاء نشره ان كان متوفرا لديكم

وشكرا لحضراتكم 

الاخ الفاضل / احمد ابوزيزو
نعم البرنامج جاهز على الاستخدام ويتطلب ادخال البيانات الخاص بالمعلمين والاداريين
وهناك روابط شرح استخدام البرنامج 

* لايوجد تدخل من المستخدم الا فى البيانات الاساسية مثل
كتابة الاسم / ادخال اساسي 30-6 القديم واساسي 1-7 الجديد واختيار الوظيفو الدرجة المالية والنقابات المشترك بها 

* فعلا الضريبة تحسب حسب الشريحة الاخيرة التى وقع بها المرتب (وهو المعمول به فى البرنامج)

* هناك ثلاث طرق للدمغة  لاختلاف نسبتها  وطريقة عملها من ادارة لاخري 
فيمكن للمستخدم اختيار الطريقة التى تناسبه 

كما يمكن التحكم فى قيمة الدمغة الناتجة وكذلك كسب العمل
من خلال (ضبط وتحكم / تبويب الدمغة وكسب العمل )
 

الاخ الفاضل / احمد ابوزيزو

اشكرك على هذه الملحوظات
أولا :  بالنسبة للاساسى المجرد من العلاوات ، فيقوم المستخدم بادخال القيمة بنفسه
وهناك ايضا خانة مخصصة لاضافة أى مبالغ أخري لم يحسبها البرنامج
وهي تدخل فى حساب كسب العمل 

ثانيا : فى النسخة التجريبية انا وضعت الشريحة الثالثة مثل الثانية تماما
ضريبة 10%  -  وحد اعفاء 85%
لكن الصحيح ماذكرته انت وهو  ( ضريبة 15%  -  وحد اعفاء 45% )
لذا يمكن التصحيح عن طريق ايقونة ضبط وتحكم >>> ثم التبويب الخاص بكسب العمل
وتعديل الشريحة الثالثة 

وبالمناسبة ان قمت بذلك قصدا ، لان من يدخل فى الشريحة الثالثة يتجاوز كسب العمل له 105ج 
اما اذا جعلت الشريحة الثانية مثل الثالثة فيكون كسب العمل فى حدود 28 ج فقط 

النسخة التجريبية المنشورة
 لايوجد لها اسم مستخدم او كلمة مرور 
ويمكن الدخول مباشرة

أقدم لحضراتكم
النسخة التجريبية (أ) من برنامج مرتبات أبي الحسن (اصدار 11)
وهذا هو رابط تحميلها 
==============================
http://bit.ly/2XdT4BD
==============================

وهذه بعض الروابط المهمة المتعلقة ببرنامج المرتبات:-
-----------------------------
* تعريف ببرنامج مرتبات أبي الحسن. 
http://bit.ly/2Ke7kqI
-------------------------------------------------------
* الفرق بين النسخة التجريبية والنسخة الكاملة من برنامج مرتبات أبي الحسن.
http://bit.ly/2EJjGmO
-------------------------------------------------------
* الجديد فى اصدار رقم 11 والفرق بينه وبين الاصدارات السابقة من البرنامج.
http://bit.ly/2Xg8Ps3
-------------------------------------------------------
* دروس فيديو شرح للبرنامج (على YouTube)
http://bit.ly/2KdgX8Z

##################################
****** نماذج للكشوف التى ينتجها البرنامج *********
1- كشوف المرتب كبيرة الحجم.
http://bit.ly/2XiYDPw
-------------------------------------------------------
2- كشوف المرتب متوسطة الحجم A3
http://bit.ly/30UFVjj
-------------------------------------------------------
3- كشوف المستقطعات المختلفة.
http://bit.ly/2ELUDzH
-------------------------------------------------------
4- كشف تأمين ومعاشات.
http://bit.ly/2JMSmIz
-------------------------------------------------------
5- صافي مرتبات البنوك المختلفة.
http://bit.ly/2Ww5Jmx
-------------------------------------------------------
6- مفردات مرتب واخر صرفية.
http://bit.ly/2EVrtyn
-------------------------------------------------------
7- مفردات مرتب الأعمال الامتحانات.
http://bit.ly/2YVE38b
-------------------------------------------------------
8- كشوف مكافأة الامتحانات.
http://bit.ly/2Z3h2jT

سؤال مهم

احيانا يتستغرف تنفيذ كود 30 ثانية مثلا 

فيمكن اعطاء رسالة للمستخدم بان عليه الانتظار

جزاكم الله خيرا

=IF(BE6="معلم مساعد";425;IF(BE6="معلم ";400;IF(BE6="معلم أول";375;IF(BE6="معلم أول  أ";375;IF(BE6="معلم خبير";325;IF(BE6="معلم كبير";300;0))))))

المعادلة بها أخطاء مثلا
كلمة معلم التى بالقائمة بعدها مسافة 
اما كلمة معلم التى فى المعادلة ليس بها مسافة ، لذا فهو يعتبر الكلمتان مختلفتان
على العموم هذا هو التصحيح
ضعها فى الخلية الثانية 
=IF(BE6="معلم مساعد";425;IF(BE6="معلم ";400;IF(BE6="معلم أول";375;IF(BE6="معلم أول  أ";375;IF(BE6="معلم خبير";325;IF(BE6="معلم كبير";300;0))))))

الإخوة الأفاضل
 

السلام عليكم

فى هذا الملف المكون من ثلاث أوراق
مطلوب تصدير جميع هذه الاوراق فى ملف PDF  واحد

حسب الشروط الاتية

1- اذا كانت الخلية D8 بها بيانات (غير فارغة)  يتم تصدير الورقة

كما هو الحال فى الورقة AAA1   و  AAA2 أما الورقة AAA3 فلا نريد تصديرها لانها فارغة

2- بعض الأوراق بها صفحتان فيجب تصدير الصفحتين (مثل الورقة AAA1)  ، وبعض الأوراق بها صفحة واحد مثل (الورقة AAA2)  فيجب تصدير الصفحة الواحد وترك الصفحات الباقية الفارغة

مع العلم اننى قمت بضبط نطاق الطباعة فى الملف الأصلى  (صفحة او اثنين حسب محتوى بيانات كل ورقة)

تـصـدير جميع اوراق الملف فى ملف واحد PDF.rar

السلام عليكم 
استخدم هذا الكود لإزالة الهمزات والمسافات الزائدة واستبدال (ى) بـ (ي) واستبدال (ة) بـ (ه)

Sub ReplaceChar()

On Error Resume Next

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual


   
   'هذا الكود لإزالة المسافات الزائدة فى الأسماء

Sheets("Teachers Data").Select
Sheets("Teachers Data").[B6:B324].Select
For Each cell In Selection
cell.Value = Application.WorksheetFunction.Trim(cell.Value)


'هذا الكود لاستبدال الحروف

    Sheets("Teachers Data").Range("B6:B324").Replace "أ", "ا"
    Sheets("Teachers Data").Range("B6:B324").Replace "إ", "ا"
    Sheets("Teachers Data").Range("B6:B324").Replace "آ", "ا"
    '-----------------
    Sheets("Teachers Data").Range("B6:B324").Replace "ة", "ه"
    Sheets("Teachers Data").Range("B6:B324").Replace "ى", "ي"
    Next

Sheets("Teachers Data").[B5].Select

MsgBox "ـ تم ضبط الاسماء بأستبدال ( أ - إ - آ )  بـ ( ا ) ـ" & _
vbCrLf & "ـ استبدال (ة) بـ (ه) || استبدال (ى) بـ (ي) ـ" & _
vbCrLf & "وإزالة المسافات الزائدة", vbInformation
End Sub

----
وهو يعمل لكنه بطئ ،  فهل هناك كود أفضل من ذلك 
أو كيف يمكن التعديل عليه ليعمل بصورة أفضل

استخدم هذه الدالة 
على فرض ان الرقم فى الخلية A1
 

=IF(A1-TRUNC(A1)=0.5;(A1);ROUND(A1;0.5))

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

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

تنبيه : هناك بعض الصفحات ليس عليها حماية بهذا الملف 

أعانى من نفس المشكلة لكن مع If فقط 
أريد وضع 24 شرط 
لكن البرنامج يقبل 7 بحد اقصى حتى مع Excel 2010

وفقكم الله