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

مميزات التقويم 1-هجري / ميلادي 2- يمكن البحث بالسنوات الهجرية ما بين 1318 و 1500 3- يوضح بالألوان فصول السنة 4-حسب تقويم أم القرى المعتمد من مدينة الملك عبدالعزيز للعلوم والتقنية 5-إمكانية إضافة المواعيد والمهام وتعديلها وحذفها 6-يوفر فرز للمواعيد والمهام القادمة والفائتة 7- يميز مواعيد والمهام المنفذة والفائتة 8- في التقويم يميز اليوم الموجود فيه موعد أو مهمة غير منفذة 9-يمكن تسجيل المواعيد والمهام بالتاريخ الهجري أو الميلادي تم تعديل الملف ليناسب الجميع التقويم.xlsx

وعليكم السلام ورحمه الله وبركاته

يوجد ملف لأم القرى باسم: EventsCalendar_20070118.rar تم رفع الملف هنا لتمام الاستفادة EventsCalendar_20070118.xlsm

وعليكم السلام قد يفيدك أحد الموضوعين التقويم الدراسي والمواعيد وتنظيم الأعمال والمشاريع هدية للأعضاء والزوار تقويم أم القرى المميزالاصدار الأول

يمكنك استعمال هذه المعادلة في الخلية K3 للبحث بثلاثة معايير : اسم الصنف والشهر والسنة =INDEX('m cost'!$E$3:$E$1062,MATCH(1,('m cost'!$B$3:$B$1062=C3)*('m cost'!$C$3:$C$1062=O3)*('m cost'!$D$3:$D$1062=N3),0)) بالتوفيق

محاولة غير صحيحة ولكن القى نظرة عليها ولكن من قبيل التجربة والتعلم hafez-3.rar

مشاركة مع اخي @mohamed_ets هل هذه الصورة المطلوبة ؟؟؟؟

السلام عليكم الاستاذ @كريم نظيم جزاك الله كل خير لكن الكود لا يعمل الاستاذ @أبوأحـمـد بارك الله فيك و رحم الله والديك الكود يعمل جيدا

وعليكم السلام ورحمة الله وبركاته الحل قبل الحذف فك حماية الورقة وحمايتها مرة أخرى بعد الحذف فك الحماية ActiveSheet.unprotect Password:="123" إعادة الحماية ActiveSheet.protect Password:="123" مع مراعاة رقم الحماية الخاص بك بدل 123

حسب علمي _ والله اعلم _ يجب ان يكون المرجع فريدا بحيث لا تكون الحقول متشابهه .. الحقل المناسب كمرجع في الجدول هو رقم السند ، وطبعا هو رقمي وانتظر من اخوانك هنا .. ربما تجد حلا افضل اليك التعديل Aziz5_13.rar

حياك الله عزيزي تحتاج تحترز ... بحيث إذا كان الوقت الحالي أكبر من وقت نهاية التشغيل تجعل حقول النتائج فاضية.

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

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

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

شكرا لكلماتك الطيبة أخي الكريم كما قلت سابقا هذه المعادلة للبحث بأكثر من شرط ورقم 1 يعني أن الدالة تبحث عن رقم 1 في نتائج مطابقة الشروط التالية ونضع الشروط في الجزء الخاص بدالة match على صورة (المدى=الخلية) لاحظ الأقواس حول المدى والخلية المراد مطابقة المدى لها ثم علامة الضرب * ثم باقي الشروط وتعني النجمة المعامل and يعني تحقق جميع الشروط (حيث أن نتيجة تحقق الشرط هي إما 1 أو 0 فإذا ضربنا 1 * 1 * 0 يعني تحقق شرطين ولم يتحقق الثالث تكون النتيجة صفر وهكذا يجب تحقق جميع الشروط ليجلب نتيجة البحث) وإذا أردت معامل المقارنة Or يمكنك استعمال علامة الجمع + بدلا من علامة الضرب * بين الشروط (أما في حالة + فيكفي تحقق شرط واحد فقط من الشروط ليجلب نتيجة البحث) بالتوفيق

هذا الملف جاهز والفلتر شغال الى أكثر من 10000 سجل _العملاء- 2023م - نسخة.xlsb

وعليكم السلام ورحمة الله وبركاته محاولتي تم تبديل المرفق لأن عملية الطرح كانت معكوسة. WorkTime_02.accdb

تفضل لاحظ انك مخير بالادخال في هذه الحقول الذي تدخل فيه البيانات هو الذي سيظهر معك في الجدول ملحوظة : عند اجراء تعديل على جدول اسبوعي سابق حتى لو تعديل حصة واحدة .. يجب ان تقوم بالحفظ ثم التحديث التحديث : هو عملية حذف للجدول بالكامل ثم اعادة الحاقه times23.rar

الف شكر لحضرتك ولكن عند الضغط على الرابط فتح المتصفح مستقل وليس فى جزء من ملف اكسيل

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

تفضل عمل احترافي لا يخطر على بالك .. تم ازالة جميع الاكواد في محرر الفيجوال طريقة العمل : 1- اختر الدرجة 2- ادخل بيانات جميع الحقول ( جميع الاسبوع ) 3- حفظ ثم انقر على زر تحديث وانظر النتيجة . times22.rar

اهم شي ثغر مبتسم اها الاخ العزيز شايب يقول توجد افكار جميلة في المثال ولكن يمكن اختراقة عن طريق ارسال امر من قاعدة بيانات اخرى وبدون الدخول في التفاصيل شاهد الصورة المرفقة اخونا شايب 🌹

رصيد الافتتاح يجب أن يكون بعيدا عن رأس الجدول _العملاء 2023م - نسخة.xlsb

تفضل وأرجو أن أكون قد وفقت معادلة الاجمالي.xlsx

ربما بعض الأرقام بالمفتاح الدولي وبعضها بدونه وللتأكد دعنا نجرب مثلا آخر 6 أرقام من خلال هذه المعادلة على فرض أن الأرقام في العمود A1 ونازل ضع هذه المعادلة بالخلية B1 اسحب لأسفل ناتج المعادلة الطبيعي 1 وما زاد هو عدد التكرار =SUMPRODUCT(((RIGHT($A1:$A$1;6))=(RIGHT(A1;6)))*1)

كود الاستاذ الفاضل حسونه حسين و هو ينفذ المطلوب بشكل احترافى Option Explicit Sub CClose() Dim Ws As Worksheet, RangeArea As Range, C As Range, MergedRange As Range kh_Application False Set Ws = ThisWorkbook.ActiveSheet With Ws Set RangeArea = .Range(.Cells(1, 1).Address, .Cells(653, IIf(ActiveCell.Column = 1, 1, ActiveCell.Column - 1)).Address) .Unprotect Password:="1" If ActiveCell.Row <= 653 Then For Each C In RangeArea If C.MergeCells = True And C.MergeArea.Rows.Count = 1 Then Set MergedRange = C.MergeArea MergedRange.UnMerge MergedRange.HorizontalAlignment = xlCenterAcrossSelection End If Next C RangeArea.Locked = True End If .Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True End With kh_Application True End Sub Sub COpen() kh_Application False ActiveSheet.Unprotect Password:="1" If ActiveCell.Row <= 653 Then Range(Cells(1, 1).Address, Cells(653, ActiveCell.Column).Address).Locked = False End If ActiveSheet.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True kh_Application True End Sub Sub kh_Application(ibol As Boolean) With Application .ScreenUpdating = ibol .Calculation = IIf(ibol, -4105, -4135) .EnableEvents = ibol End With End Sub الف شكر استاذنا الفاضل حسونه حسين على تعبك و اهتمامك زادكم الله من فضله و علمه

ما رأيك بهذا مثال بسيط وجدته عندي ، علما اني لا استخدم هذا النهج في اعمالي ، وإنما استخدم طريقة قريبة من عمل الاخ بسام دخول.rar

جزيت خيرا يا استاذنا العزيز انا لم اغير في اكواد الأخ السائل وانما بعض الاضافات والتعديلات لاظهار اسم المستخدم في النموذج ، وتخصيص نموذج المستخدمين للمسؤول يمكننا تحويل الثغرة الى ثغر

تفضل Private Sub Worksheet_Change(ByVal Target As Range) Dim myRange As Range Dim x As Long Set myRange = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row + 1) If Target.CountLarge > 1 Then Exit Sub If Intersect(Target, myRange) Is Nothing Then Exit Sub If InStr(2, Target, " ") > 0 Then Target.WrapText = True Else Target.WrapText = False Target.ShrinkToFit = True End If Target.EntireRow.AutoFit End Sub

المثال من البداية يحتوي على ثغرة تسمح بالدخول باي اسم كما يمكن اختيار اي مستخدم موجود وتوليف كلمة سر وبالتالي يمكن بسهولة الدخول على نموذج المستخدمين كل المطلوب اختيار المستخدم bassam وتوليف كلم مرور بطريقة معينة الاخ الفاضل شايب لا يهدف الى انتقاد العمل بقدر ما ينبه على وجود ثغرة في المثال حتى بعد تعديل الاستاذ الكبير اخونا شايب 🌹

بما انك مستجد على اكسس فانصحك باتباع الطرق الصحيحة عند كتابة العناصر وكافة الكائنات بحروف انجليزية حتى لو ان المعنى عربي من اجل يسهل عليك قراءة وفهم الاكواد ايضا من الاشياء الجميلة تمييز كائنات قاعدة البيانات عن بعضها بحيث انك حين ترى الاسم داخل الأكواد تعرف انه جدول او استعلام او نموذج او تقرير بحيث نكتب بادئة الاسم على النحو التالي : tbl للجداول qry للاستعلامات frm للنماذج reb للتقارير تم التعديل وعمل اللازم لا حظ انك لن تتمكن من فتح والدخول الى نموذج المستخدمين الا اذا دخلت باسم Bassam تجريب2.rar

جرب معادلة IF المصنف1.xlsx

اخي @سامر محمود لا عليك .. جرب المرفق هذا .................... test_kanory.accdb

وعليكم السلام بعدد اذن @أبوأحـمـد ابدا ابحث عن هذه الدوال @mo7amed2221 دوال الأساسية لتعلم الإكسل دوال الإكسل هي عبارة عن مجموعة من الوظائف التي يمكنك استخدامها في برنامج Excel لتنفيذ مهام وحسابات مختلفة. يوجد العديد من الدوال المتاحة في Excel، ولكن هنا سنذكر بعض الدوال الأساسية التي يمكن أن تساعد في البدء في تعلم الإكسل. **1. SUM:** هذه الدالة تستخدم لحساب مجموع مجموعة من الأرقام. تأخذ الدالة مجموعة أرقام كمدخلات وتعيد قيمة المجموع. **2. AVERAGE:** تستخدم هذه الدالة لحساب المتوسط الحسابي لمجموعة من الأرقام. تأخذ الدالة مجموعة أرقام كمدخلات وتعيد قيمة المتوسط. **3. MAX:** تُستخدم هذه الدالة للعثور على القيمة الأكبر في مجموعة من الأرقام. تأخذ الدالة مجموعة أرقام كمدخلات وتعيد القيمة الأكبر. **4. MIN:** تستخدم هذه الدالة للعثور على القيمة الأصغر في مجموعة من الأرقام. تأخذ الدالة مجموعة أرقام كمدخلات وتعيد القيمة الأصغر. **5. COUNT:** تستخدم هذه الدالة لحساب عدد الخلايا المحتوية على بيانات في مجموعة معينة. تأخذ الدالة مجموعة خلايا كمدخلات وتعيد عدد الخلايا المحتوية على بيانات. **6. IF:** تستخدم هذه الدالة لتنفيذ شرط معين وإجراء عملية معينة اعتمادًا على الشرط. تأخذ الدالة قيمة شرط، وإجراء في حالة إرجاع الشرط صحيح، وإجراء آخر في حالة إرجاع الشرط غير صحيح. هذه هي بعض الدوال الأساسية المستخدمة في Excel. هناك مجموعة أكبر من الدوال المتاحة ويمكنك استكشافها لمزيد من الوظائف المتقدمة في Excel.

اخي هده مسالة اخرى ليس لها علاقة بالقوائم ولم نشتغل عليها من قبل على العموم تفضل اخي Dynamic Orders - Pivot_V11.xlsm

اذا لدينا مجموعة من البيانات و ليكن عددها 394 قراءة مثلا و نود تصنيفها الي مجموعات و مطلوب استنتاج عدد المجموعات و مجال كل منها فان احدى الطرق المفيدة هي طريقة two to the k rule طريقة 2 أس K وفيها نبحث عن أكبر K ممكنة بحيث تكون 2 أس K أقل من عدد القراءات ففي حالة مثالنا هنا 2 أس 8 = 256 (أقل من عدد السجلات الذي هو 394) مقبول و 2 أس 9 = 512 (أكبر من عدد السجلات الذي هو 394) يرفض اذا تكون K = 8 أي أن لدينا 8 مجموعات و الان نريد معرفة نطاق هذه المجموعات الثمانية Interval = (H-L)/ K أي محسب الفرق بين أكبر قراءة و أضغر قراءة ثم نقسمه علي K مثلا لو كانت اكبر قراءة = 900 و اضغر قراءة = 50 فيكون سعة المجموعة = 106.25 على الاقل ، فيتم التقريب الي 110 و بذلك تكون المجموعات الثمانية كما يلي: From To 1 50 160 2 160 270 3 270 380 4 380 490 5 490 600 6 600 710 7 710 820 8 820 930 Clustering-Intervals rule.xlsx

جرب هذا الكود Option Explicit Sub TEST() Dim myvalu$, lr%, x1$, x2$ x1 = """" & Me.TextBox1 & """": x2 = """" & Me.TextBox2 & """" lr = Cells(Rows.Count, 1).End(3).Row myvalu = "=SUMPRODUCT((O6:O" & lr & "=" & x1 & ")*(P6:P" & lr & "=" & x2 & "))" 'for hide the formula Cells(1, "N") = Evaluate(myvalu) 'Or for show the formula Cells(2, "N").Formula = myvalu End Sub

السلام عليكم ورحمة الله وبركاتة ماشاء الله تبارك الله ممتاز جدا ممتاز قمت بتعديل بسيط جدا علي الكود ليكون Dim laste_row As Long, I As Long, non As Long laste_row = Cells(Rows.Count, 1).End(3).row Range("A8").Resize(laste_row - 7, 5).Interior.ColorIndex = xlNon myvalu = "=SUMPRODUCT(--(A8" & "&" & """*""" & "&" & _ "B8=$A$8:A" & 8 & "&" & """*""" & "&" & "B$8:B" & 8 & "))" Range("MM8").Resize(laste_row - 7).Formula = myvalu For I = 8 To laste_row If Range("MM" & I) > 1 Then 'Range("A" & I).Resize(, 5).Interior.ColorIndex = 6 'MsgBox "Duplicate: " & Chr(10) & Range("MM" & I) - 1 & IIf(Range("MM" & I) = 2, "Time", "Times") non = non + 1 End If Next MsgBox non Range("MM8").Resize(laste_row - 7).Clear تم اضافة متغير non يحسب اجمالي عدد السجلات المطابقة للسجل الموجود في اليوزر , ويتم اظهاره مرة واحدة فقط , الف الف شكرا لك استاذ سليم , وادعوا الله لك ان يبارك في علمك وصحتك ويزيدها

مع اني افضل هذا الكود لأنه لا ضرورة للضغط على OK في كل مرة تظهر رسالة التنبيه Private Sub CommandButton1_Click() Dim Final_row As Long, k% Final_row = Cells(Rows.Count, 1).End(3).row + 1 For k = 1 To 5 Cells(Final_row, 1).Offset(, k - 1) = Me.Controls("TextBox" & k) Next On Error GoTo EXIT_ME Cells(Final_row, 1) = CInt(Cells(Final_row, 1)) colorize_me For k = 1 To 5 Me.Controls("TextBox" & k) = vbNullString Next Exit Sub EXIT_ME: MsgBox "YOU MUST ENTER A NUMBER>0" Cells(Final_row, 1).Resize(, 5).ClearContents For k = 1 To 5 Me.Controls("TextBox" & k) = vbNullString Next End Sub '++++++++++++++++++++++++++++++++++++++ Sub colorize_me() Dim laste_row As Long, I As Long laste_row = Cells(Rows.Count, 1).End(3).row Range("A8").Resize(laste_row - 7, 7).Interior.ColorIndex = xlNon myvalu = "=SUMPRODUCT(--(A8" & "&" & """*""" & "&" & _ "B8=$A$8:A" & 8 & "&" & """*""" & "&" & "B$8:B" & 8 & "))" Range("MM8").Resize(laste_row - 7).Formula = myvalu Range("g8").Resize(laste_row - 7).ClearContents For I = 8 To laste_row If Range("MM" & I) > 1 Then Range("A" & I).Resize(, 5).Interior.ColorIndex = 6 Range("A" & I).Offset(, 6) = "Duplicate: " & _ Range("MM" & I) - 1 & IIf(Range("MM" & I) = 2, "Time", "Times") Range("A" & I).Offset(, 6).Interior.ColorIndex = 3 End If Next Range("MM8").Resize(laste_row - 7).Clear End Sub الملف SALIM_code_UPDATED(1).xlsm

صباح الثورة من بيروت/صيدا/النبطية/صور /طرابلس .....ومن كل شبر من أرض لبنان الحبيب ربما ينفذ هذا الماكرو ما تريده للتحكم بالاعمدة التي لا تريد اظارها يمكن معالجة ذلك من خلال تغيير المعطيات في الكود (ما بين علامات ++++++) Option Explicit Sub get_data_new() Application.ScreenUpdating = False Dim S As Worksheet Dim Cus As Worksheet Dim m%: m = 3 Dim LG Dim R% Set S = Sheets("Summary") With S .Cells.Clear For Each Cus In Sheets If Cus.Name Like "Customer" & "#" Then R = Cus.Range("B9").CurrentRegion.Rows.Count Cus.Range("B9").CurrentRegion.Copy .Cells(m, 1) With .Cells(m - 1, 1) .Value = Cus.Name .Interior.ColorIndex = 6 End With LG = .Cells(Rows.Count, "g").End(3).Row With .Cells(LG + 1, 6).Resize(, 2) .Columns(1) = "SUM:" .Columns(2).Formula = _ "=SUM(G" & m + 1 & ":G" & LG & ")" .Interior.ColorIndex = 3 .Font.Color = vbWhite .Value = .Value End With m = m + R + 2 End If Next Cus '+++++++++++++++++++++++++++++ .Range("C:C,D:D,H:H").EntireColumn.Delete '+++++++++++++++++++++++++++++ .Range("E:E").NumberFormat = "#,##0" End With Application.ScreenUpdating = True End Sub الملف بعد التعديل My project_SALIM.xlsm

ارجو ان يكون هذا ما تريد الغاء الفرز او التجميع بالكود.rar

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

جزاك الله كل خير استاذ ياسر ================================================ رائعه المحترم ياسر خليل كود لتحويل درجات الطلاب لمستويات ( تقديرات ) .. تصلح للترم الاول Option Explicit ' هذا الكود من روائع المحترم ياسر خليل 'الهدف من الكود هو تحويل درجات الطلاب الى مستويات ( تقديرات ) 'تم عمل هذا الكود بتاريخ 12/1/2017 Function Level(Mark As Variant, OutOf As Long) As String If IsNumeric(Mark) Then Mark = Mark / OutOf Select Case Mark Case Is <= 0 Level = "" Case Is < 0.5 Level = "دون المستوى" Case Is < 0.65 Level = "مقبول" Case Is < 0.75 Level = "جيد" Case Is < 0.85 Level = "جيد جداً" Case Is <= 1 Level = "ممتاز" Case Else Level = "" End Select Else Select Case Mark Case "غ" Level = "غ" Case "صفر" Level = "دون المستوى" Case "واحد" Level = "دون المستوى" Case "اثنان" Level = "دون المستوى" Case "ثلاثة" Level = "دون المستوى" Case Else Level = "" End Select End If End Function ======================================= Level UDF Using Select Case YasserKhalil ExcelLover.rar جزاه الله عنا كل خير

ولااروع .. سهولة في التطبيق .. سرعه في التنفيذ كود استدعاء للمبدع ياسر العربي Sub ALL() ''هذا الكود للعبقري ياسر العربي حفظه الله '' تم هذا الكود بتاريخ 8 / 10/ 2016 ''الهدف من الكود هو استدعاء البيانات ''شرح الكود ''متغيرات Dim myArray, lr, X, targt, targt1, targt2, targtN Dim SERCH As Worksheet, _ DATA As Worksheet '____________________________________________ 'اسم شيت قاعدة البيانات Set DATA = Worksheets("رصد الترم الثانى") 'اسم الشيت الخاص بالبحث Set SERCH = Worksheets("كشوف الطلبه") '____________________________________________ 'المدى الذي سيتم مسحه في صفحه الهدف Range("D10:AB1000").Clear 'المدى الذي سيتم نسخه لعدد محدد بخليه محدده Range("C9:AB9").AutoFill _ Destination:=Range("C9:AB" & _ Range("B4").Value + 8), Type:=xlFillDefault 'اخر صف به بيانات lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row + 2 'مدى صفحة الهدف وهو يبدأ بعد عمود المسلسل 'والرقم الموجود هو رقم عمود البدايه ' 'مسح نطاق البحث القديم SERCH.Range("D9:AB" & SERCH.Cells(Rows.Count, 4) _ .End(xlUp).Row + 1).ClearContents 'معيارين البحث ' targt2 = targt targt = "له* دور ثان في" targt2 = "ناجح" 'نطاق قاعدةالبيانات ' صفحة المصدرالذي سيتم البحث فيه myArray = DATA.Range("A7:FF" & lr) '____________________________________________ ReDim Y(1 To UBound(myArray, 1), 1 To _ UBound(myArray, 2)) For X = LBound(myArray) To _ UBound(myArray) If targt = "" Then Exit Sub 'هنا التعديل للمعيارين If myArray(X, 101) Like targt & "*" _ Or myArray(X, 101) Like targt2 & _ "*" Then rw = rw + 1 'متغير ارقام 'الاعمده المطلوب الاستدعاء منها 'العمود التاني بعد المسلسل Y(rw, 1) = myArray(X, 2) 'العمود الثالث بعد المسلسل Y(rw, 2) = myArray(X, 3) 'العمود الرابع بعد المسلسل Y(rw, 3) = myArray(X, 13) 'العمود الخامس بعد المسلسل Y(rw, 4) = myArray(X, 22) 'العمود السادس بعد المسلسل وهكذا Y(rw, 5) = myArray(X, 31) Y(rw, 6) = myArray(X, 40) Y(rw, 7) = myArray(X, 51) Y(rw, 8) = myArray(X, 52) Y(rw, 9) = myArray(X, 82) Y(rw, 10) = myArray(X, 101) Y(rw, 11) = myArray(X, 102) ' Y(rw, 12) = myArray(X, 110) ' Y(rw, 13) = myArray(X, 111) End If Next X If rw > 0 Then SERCH.Cells(Rows.Count, 4).End(xlUp)(2, 1).Resize(rw, 13).Value = Y() End Sub الاستدعاء بطريقه ( خليفه عبد الله باقشير ) الاستاذ ياسر.rar

السلام عليكم ورحمته الله وبركاته طلب لاخى الفاضل الاستاذ / ناصر المصرى أحببت أن أضع هذا المرفق بموضوع مستقل للإفادة وسهولة البحث المرفق لحساب الدمغه العادية وفقا لنص المادة رقم 79 من القانون رقم 111 لسنة 1981 بالمعادلات والاكواد وبالطريقة المعتادة وعلى طريقة فصل المبلغ لخليتين أحدهما للقروش والاخرى للجنيهات لاتنسوا الاعفاءات المقررة بقوانين ثم توضع هذة المعادلات او الكود المشار اليه بالمرفق على صافى المبلغ قبل مبلغ الــ 50 جنيها المعفاة ولاتنسونا من دعائكم **** جزاكم الله خيرا **** وكل عام انتم بخير حساب الدمغه العادية ق 111 لسنة 1981 بالمعادلات والدلات المعرفة + التطبيق - سعيد بيرم.rar

اتفضل ياريس مش ورايا غيرك بقي يارب يكون المطلوب ترحيل البيانات لأعمدة محددة بدون صفوف فارغة لورقة عمل جديدة + 55.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 عدد مرات التحميل

أخى الفاضل عمل دمج لبعض الخلايا يصعب من تنفيذ الكود ولتعويض ذلك تم تنسيق الخلايا بطريقة مختلفة تشبه ما تريده أنت للحفاظ على تنفيذ الكود أرجو أن يكون ذلك قريب مما تريد 2 things1.rar

تفضل أخى 2 things1.rar