كل الانشطه

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

وجب الاعتذار من اخى واستاذى لعدم انتباهى للجزء الثانى من الشرط

السلام عليكم ورحمة الله وبركاته كل عام وحضراتكم بالف خير لي عند حضراتكم طلب اريد ان انفذ هذه الأوامر عند فتح الشيت علي كل اوراق العمل بدل من تنفيذها علي كل ورقة علي حده ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False ActiveWindow.DisplayGridlines = False Application.DisplayFullScreen = True ولكم مني جزيل الشكر والتقدير

السلام عليكم مشاركه مع اخى واستاذى محمد البرناوى اخى محمد حلك جميل ولكن بالنسبه للفقره الاول انت اختبرت المبلغ لو اقل ومع امثله الاستاذ الفاضل هو عاوز المبلغ اللى اكبر يتم طرحه يعنى مث ما هو موضح بالمثال بالاعلى 21000 هتكون 15000 *0.1 والباقى اللى هو 6000 *0.15 Option Compare Database Function calc(val As Double, Optional colVal = "") Const val_15 = 15000 Dim bak If colVal = 10 Or colVal = 0.1 Or colVal = "" Then colVal = 0.1 ElseIf colVal = 15 Or colVal = 0.15 Then colVal = 0.15 End If If val <= val_15 Then calc = val * colVal If val > val_15 Then bak = val - val_15 val = val_15 End If If colVal = 0.1 Then calc = val * colVal ElseIf colVal = 0.15 Then calc = bak * colVal Else calc = 0 End If End Function وتقبلوا مشاركتى ومرورى واحبكم فالله

السلام عليكم استاذ kkhalifa1960 اولا لدية مشكلة في استراد الاكسيل المشكلة عند استراد البيانات لم يتم تعديل البيانات في النموذج ثانيا لدية الصورة عند القيام بادراج الصور ونقل البرنامج جهاز العمل لم تظهر اي صورة في النموذج تقرير_الموظفين.zip Images.zip

بارك الله فيك وجعله فى ميزان حسناتك وزادك الله علما

تفضل اختر ما يناسبك دمج مبلغ1.xlsx

تفضل استاذ @بلال اليامين . Bilal_Yamen.rar

المساعدة فى دمج خانتين للمبلغ فى خانة واحدة دمج مبلغ من خانتين.xlsx

تمام بارك الله فيك وجعله في مبزان حسناتك

السلام عليكم جرب الكود Sub تلوين_المكرر() Dim ws As Worksheet, rng As Range, cell As Range Dim dict As Object, lastRow As Long Dim r As Long, c As Long, key As String Set ws = ActiveSheet lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row If lastRow < 5 Then lastRow = 5 Set rng = ws.Range("A5:J" & lastRow) rng.Interior.ColorIndex = xlNone Application.ScreenUpdating = False For r = 5 To lastRow For c = 1 To 10 Set cell = ws.Cells(r, c) If Not IsError(cell.Value) And Len(cell.Value) > 0 Then key = Trim(cell.Value) Set dict = CreateObject("Scripting.Dictionary") For Each c2 In ws.Range(ws.Cells(r, 1), ws.Cells(r, 10)) If c2.Value = key Then dict(key) = dict(key) + 1 Next If dict(key) > 1 Then cell.Interior.Color = vbRed: GoTo NextCell ' التحقق عموديًا dict.RemoveAll For Each r2 In ws.Range(ws.Cells(5, c), ws.Cells(lastRow, c)) If r2.Value = key Then dict(key) = dict(key) + 1 Next If dict(key) > 1 Then cell.Interior.Color = vbRed End If NextCell: Next c Next r Application.ScreenUpdating = True End Sub

المطلوب كود لعمل تنسيق للعمود الواحد والصف الواحد للقيم المتكررة كود وليس تنسيقات.xlsx

اعمل استعلام وضع فيه هذا مع تعديل اسم الحق الذي به المبلغ واسم الجدول لديك SELECT Amount, IIf([Amount] <= 15000, [Amount] * 0.1, 15000 * 0.1) AS [10%], IIf([Amount] > 15000, ([Amount] - 15000) * 0.15, 0) AS [15%] FROM YourTableName;

الخبراء الاعزاء بعد التحية اود مساعدتى فى احتساب الحافز بفرض عندنا مبالغ معينة 19000 21000 9000 اريد عمل استعلام بة حقل اسمة 10% يقوم باحتساب نسبة 10% من هذة المبالغ حتى 15000 والمبلغ المتبقى نعمل حقل جديد اسمة 15% نقوم باحتساب نسبة 15% من المبالغ بعد 15000 مثال بمعنى 9000 حقل 10% = 900 وحفل 15% =0 اما 21000 حقل 10% = 1500 والباقى 6000 فى حقل 15% = 900 اتمنى يكون طلبى واضح

السلام عليكم استاذ يظهر خطأ

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

استاذ شكرا لك استاذ هل توجد طريقة أحرى وتوجد فيها الترقيم

لقد صممت بداية المشروع واضافات التسميات رجاء التكملة مخزن محاسبى - Copy.xlsm

تفضل استاذ @بلال اليامين محاولتي حسب ما فهمت . اليك الشرح والمرفق . ووافني بالرد. بلال اليامن.rar

استاذ نعم استاذ كما هو في الشرح

شوف الافكار هنا بها تحقيق طلبك تماما وبدون تخزين محافظة الميلاد ولا تاريخ الميلاد ولا السن حتى داخل الجدول Test.accdb

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

استاذ هذه الفكرة

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

وعليكم السلام ورحمة الله وبركاته جرب الكود حيث قبل التنفيذ، يقوم بحذف أي دوائر سابقة 1الثالث.xlsb