كل الانشطه

السلام عليكم استاذ 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

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

هل تقصد كهذه الفكرة ؟؟ لاحظ شريط التحرير والتنسيق في الصورة !!

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

استاذ استاذ طريقة اظهار الشريط بدون تظلل النص