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

بسم الله الرحمن الرحيم وبه نستعين والصلاة والسلام على رسول الله ... اللهم صلى عليه أفضل الصلاة وأذكى السلام الساده الزملاء والزميلات السلام عليكم جميعا ورحمته الله وبركاته بمراجعة معادلة ضريبة الدمغه النسبية على المرتبات والمطروحة على صفحات صرحنا العريق تبين أن هناك خطأ جسيما فى تطبيقها حيث انها تفتقد للدقه نظرا لما يتخللها من زيادات غير مبرره الامرالذى أستدعى إعادة صياغتها نحوالاصوب وكما تعلمون سيادتكم أنه ووفقا لنص المادة رقم 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))

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

السلام عليكم اكيد انني ادخلت الملل في قلوبكم من فورمات البحث هذه ولكن للضرورة احكام ولكل شخص رغبة معينة في تنفيذ شي معين ولعل هذا التعدد في الملفات يفي بجوانب كثيرة في البحث موضوعنا هذا اليوم طبعا فورم للبحث ولكنه يبحث ليس في ملف واحد فقط وانما يبحث في مجموعة ملفات ( تكون في ملف واحد مع الملف الرئيسي) وايضا يقوم بفتح اي ملف مغلق من هذه الملفات تلقائيا عند دخولك فورم البحث مباشرة وايضا نتيجة هذا الكم من مجموعة البحث عملت زر( للبحث افتراضي) ختى تستطيع ان تكمل كلمة البحث التي تريدها بدون ان يقوم الكود مياشرة بالبحث عند ادخال اي حرف وايضا ابقيت الخاصية السابقة للبحث التلقائي ( اختياري) (وهذا العمل يصلح لاي واحد تكون معه ملف رئيسي ومجموعة ملفات ملحقة يقوم بالبحث فيها) العمل ده طلب الاخ SAFWAT ارجوا ان نكون عملنا جولة كاملة في اغلب نواحي البحث ونرجوا من الله القبول بفضله وكرمه في هذا الشهر الكريم تقبل الله منا ومنكم صالح الاعمال ودمتم في حفظ الله ======================================== ارجوا ملاحظة الملف المعدل في المشاركة رقم 10 التعديل: في الصفحة الرئيسية اضفنا جدول يتم من خلاله التحكم في اعدادات البحث الملفات والاوراق ونطاق البحث ======================================== Class.rar

الساده / أعضاء المنتدى المحترمين السلام عليكم ورحمه الله وبركاته أقدم لكم طريقة مبسطة لشرح آلية الترحيل بالكود وقد إستخدمت كود مبسط لكى يكون سهل التعديل عليه حسب ما ترغبون وهذا الكود للترحيل مع مسح البيانات المدخله مع آلية الترقيم التلقائى الشرح في المثال المرفق ستجد ورقتا عمل " Invoice " " List" وسيتم إدخال البيانات في الورقه " Invoice " ثم بعد الإنتهاء نضغط على الزر لتنتقل في أماكن محدده بورقة العمل " List " .. * تعالوا نرى الكود كود: Sub MoveData() Dim EndRow As Long If Sheets("Invoice").Range("B3").Value = "" Or Sheets("Invoice").Range("D3").Value = "" Or Sheets("Invoice").Range("a5").Value = "" Or Sheets("Invoice").Range("D6").Value = "" Or Sheets("Invoice").Range("B8").Value = "" Or Sheets("Invoice").Range("D8").Value = "" Then MsgBox prompt:="تأكد من إدخال كافة البيانات", Title:="خطأ" Else EndRow = Sheets("List").Range("A1").CurrentRegion.Rows.Count Sheets("List").Cells(EndRow + 1, 1).Value = EndRow Sheets("List").Cells(EndRow + 1, 2).Value = Sheets("Invoice").Cells(3, 2).Value Sheets("List").Cells(EndRow + 1, 3).Value = Sheets("Invoice").Cells(3, 4).Value Sheets("List").Cells(EndRow + 1, 4).Value = Sheets("Invoice").Cells(5, 1).Value Sheets("List").Cells(EndRow + 1, 5).Value = Sheets("Invoice").Cells(6, 4).Value Sheets("List").Cells(EndRow + 1, 6).Value = Sheets("Invoice").Cells(8, 2).Value Sheets("List").Cells(EndRow + 1, 7).Value = Sheets("Invoice").Cells(8, 4).Value Sheets("Invoice").Range("B3,D3,A5:D5,D6,B8,D8").ClearContents MsgBox prompt:="تم ترحيل البيانات بنجاح", Title:="رسالة تأكيد" End If End Sub * الكود السابق هو الخاص بعملية الترحيل من الورقه " Invoice " الي الورقه " List " ولكن ماذا يعني الكود وكيف نعدل فيه حسب الرغبه ؟ * في الكود التالي وضعنا شرط على الخلايا التي يتم إدخال البيانات بها بالورقه "Invoice" بحيث تظهر رساله تفيد بأنه يجب التأكد من إدخال كافة البيانات مع العلم أنه يمكن الأستغناء عن بعض الخلايا أو كلها بحذف الشرط أو جزأ منه كود: If Sheets("Invoice").Range("B3").Value = "" Or Sheets("Invoice").Range("D3").Value = "" Or Sheets("Invoice").Range("a5").Value = "" Or Sheets("Invoice").Range("D6").Value = "" Or Sheets("Invoice").Range("B8").Value = "" Or Sheets("Invoice").Range("D8").Value = "" Then MsgBox prompt:="تأكد من إدخال كافة البيانات", Title:="خطأ" * وهنا سيبدأ البحث عن أول صف فارغ لنقل البيانات أليه مع الترقيم في العمود A كود: EndRow = Sheets("List").Range("A1").CurrentRegion.Rows.Count * هنا سيقوم بنقل البيانات المدخله في الورقه "Invoice" في الخليه الموجوده في الصف الثالث - العمود الثاني الي الورقه " List " في الخليه الموجوده في العمود الثاني - الصف الأول كود: Sheets("List").Cells(EndRow + 1, 2).Value = Sheets("Invoice").Cells(3, 2).Value * وهكذا ينطبق الكود السابق على باقي الخلايا المدخل بها البيانات الي أن نصل الي * هذا الكود يقوم بمسح البيانات المدخله بالورقه " Invoice" بعد نقلها للورقه " List " كود: Sheets("Invoice").Range("B3,D3,A5:D5,D6,B8,D8").ClearContents * بقي كود يظهر رسالة تأكيد بإنتهاء العمليه بنجاح كود: MsgBox prompt:="تم ترحيل البيانات بنجاح", Title:="رسالة تأكيد" أسأل الله العلى القدير أن أكون وفقت فى الشرح ومرفق نموذج للتطبيق العملى وتقبلوا منى وافر الإحترام والتقدير شرح الترحيل.rar

اكتب في اول سطر من الكود محل المشكلة الجملة التالية : on error resume next

اخى محمد السلام عليكم ورحمه الله وبركاته هذه محاوله بسيطه منى ارجو ان اكون وفقت فى ذلك شرح.rar

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

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

سوف ينبري لها احد افراد اوفسينا الكرام فلا تقليق لذلك ولا تياس

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

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

السلام عليكم قم بحفظ الملف المراد تحويله حفظ باسم ومن خيارات الامتداد اختر single file web page ثم افتح ملف جديد في الاكسل ومن نافذة ملف اختر فتح وقم باختيار ملف الوورد الذي عملت له حفظ باسم ( اي الملف المراد تحويله ) وفي اسفل القائمة ستجد الخيار فتح وبجانبه مثلث صغير (قائمة منسدلة) اضغط عليه واختر فتح في اكسيل . سيفتح ملف الوورد كأنه اكسيل وهنا بامكانك التعامل معه وعمل التنسيقات المطلوبة وبامكانك حفظه . يمكن اتباع نفس الطريقة لتحويل ملف اكسل الى وورد ما عليك سوى التبديل بين وورد واكسيل .

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

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

الف مبروك الترقيه الف مبروك الترقيه الف مبروك الترقيه

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

الف مبروك و جزاكي الله خيرا على جهودك

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

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

الف مبروك زادك الله علما ونفع بك

الف مبروووووووووووك للاستاذة الفاضلة / أم عبدالله

السلام عليكم الف مليون تريليون مبروك للاخت الفاضلة ام عبد الله الترقية المستحقة وهنيأ لنا [اول خبيرة معتمدة تحياتي

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

السلام عليكم فورم الدرجات1.rar

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

أولا / أخي الحبيب حسن لا أدري معظم مرفقاتك تحتاج عندي لفك الضغط عنها إلى رقم سري ... ! ثانيا / والله أعلم مشاكل التحويل إلى MDE أو ACCDE تكمن في الكود فتأكد من الأكواد ويمكنك التأكد من الأكواد عن طريق فتح محرر الفيجوال بيسك ALT + F11 ثم Debug ثم Compile أرجو أن أكون قد أحسنت

اخى تفضل المرفق مثال_دمج خلايا نصية.rar

السلام عليكم عليك ادارج عمود جديد وجرب الدالة عليه لتجميع الاسماء وليس دمج الاسماء كما فى مثال 1 المرفق 1مثال.rar

أخي حسن اليوسف جزاكم الله خيرا على ثنائكم هذا والشكر موصول للأساتذة الأفاضل بالمنتدى وحبيبي الأستاذ محمود الشريف والأستاذ سليم حاصيبا وأختنا الفاضلة أم عبد الله ولصاحب الملف الأصلي وبخصوص أنه يعمل على 11 اسم فقط فإليك الحل مبدئيا إلى حين رفع ملف ( حيث لا يمكنني رفعه الأن ) قم بتنشيط الخلية f11 و G11 وسوف يظهر لك في لجانب الأيسر أو الأيمن السفلي( على حسب لغة الأوفس عندك ) لجزء التنشيط مربع أسود صغير قم بالضغط عليه مع السحب لأسفل ( لعمل تعبئة تلقائية ) وسوف يقوم بنسخ المعادلات تلقائيا لعدد الصفوف التي تقف عندها والله الموفق في انتظار اسم الظهور العربي

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

اخى العزيز محمود الشريف جزاك الله خيرا موضوع ممتاز واهم ما يميزه البساطه فى الشرح و التنظيم المتقن بارك الله فيك ولاثراء الموضوع ,وافادة الاعضاء الجدد ورقه العمل داخل اى مصنف اكسيل هى عباره عن object اى كائن له خصائصه ولاعطاء شكل بسيط الى الاكواد نقوم تعريف ورقة العمل عند بداية الكود باسم مختصر عن طريق جملة set واستخدام هذا الاسم داخل الكود بدلا من كتابة اسم الورقه كل مره داخل الكود Sub MoveData() Set li = ThisWorkbook.Sheets("List") Set inv = ThisWorkbook.Sheets("Invoice") Dim EndRow As Long If inv.Range("B3").Value = "" Or inv.Range("D3").Value = "" Or inv.Range("a5").Value = "" Or inv.Range("D6").Value = "" Or inv.Range("B8").Value = "" Or inv.Range("D8").Value = "" Then MsgBox prompt:="تأكد من إدخال كافة البيانات", Title:="خطأ" Else EndRow = Sheets("List").Range("A1").CurrentRegion.Rows.Count li.Cells(EndRow + 1, 1).Value = EndRow li.Cells(EndRow + 1, 2).Value = inv.Cells(3, 2).Value li.Cells(EndRow + 1, 3).Value = inv.Cells(3, 4).Value li.Cells(EndRow + 1, 4).Value = inv.Cells(5, 1).Value li.Cells(EndRow + 1, 5).Value = inv.Cells(6, 4).Value li.Cells(EndRow + 1, 6).Value = inv.Cells(8, 2).Value li.Cells(EndRow + 1, 7).Value = inv.Cells(8, 4).Value li.Range("B3,D3,A5:D5,D6,B8,D8").ClearContents MsgBox prompt:="تم ترحيل البيانات بنجاح", Title:="رسالة تأكيد" End If End Sub استخدام كلمة thisworkbook تمنع وقوع اى خطا فى الكود اذا كان هناك اى ملف اكسيل اخر مفتوح بالتوفيق

السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري