كل الانشطه

السلام عليكم جرب الكود Sub تلوين_المكرر() Dim ws As Worksheet Dim lastRow As Long, lastCol As Long Dim rng As Range, r As Range, c As Range Dim dict As Object, k As String, v As Variant Set ws = ActiveSheet lastCol = 10 lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row If lastRow < 5 Then lastRow = 5 Set rng = ws.Range(ws.Cells(5, 1), ws.Cells(lastRow, lastCol)) Application.ScreenUpdating = False rng.Interior.ColorIndex = xlNone For Each r In rng.Rows Set dict = CreateObject("Scripting.Dictionary") For Each c In r.Cells v = c.Value2 If Not IsError(v) And Not IsArray(v) Then k = Trim$(CStr(v)) If Len(k) > 0 Then If dict.Exists(k) Then dict(k) = dict(k) + 1 Else dict.Add k, 1 End If End If End If Next c For Each c In r.Cells v = c.Value2 If Not IsError(v) And Not IsArray(v) Then k = Trim$(CStr(v)) If Len(k) > 0 And dict.Exists(k) And dict(k) > 1 Then c.Interior.Color = vbRed End If End If Next c Next r Dim col As Range For Each col In rng.Columns Set dict = CreateObject("Scripting.Dictionary") For Each c In col.Cells v = c.Value2 If Not IsError(v) And Not IsArray(v) Then k = Trim$(CStr(v)) If Len(k) > 0 Then If dict.Exists(k) Then dict(k) = dict(k) + 1 Else dict.Add k, 1 End If End If End If Next c For Each c In col.Cells v = c.Value2 If Not IsError(v) And Not IsArray(v) Then k = Trim$(CStr(v)) If Len(k) > 0 And dict.Exists(k) And dict(k) > 1 Then c.Interior.Color = vbRed End If End If Next c Next col 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

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

أخي بلال عدل خاصية ال Text Format في الجدول إلى Rich Text وعدل نفس الخاصية في النموذج : والنتيجة لما تظلل النص : التقرير العام.accdb

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

استاذ بلال لا تبخل بشرح المطلوب بالتفصيل حتى نلبي طلبك !

السلام عليكم لدي حقل (مذكرة) لتعديل على حجم الخط التقرير العام.accdb

فعلا أخي هذا سلوك معروف في Excel. السبب الحقيقي ليس الإعدادات عند استخدام التصفية المخصصة Custom Filter على عمود تاريخ: Excel يتجاهل تنسيق الخلية تمامًا ويقرأ التاريخ من نظام ويندوز مباشرة ثم يعرض أسماء الشهور حسب تقويم النظام (هجري) لذلك: الخلية = يناير (ميلادي) التصفية = محرم (هجري) وهذا Bug قديم في Excel العربي.

ستكون إتقان للاستشارات الأكاديمية والتدريب حاضرة في معرض القاهرة الدولي للكتاب 2026 لتقديم دعم أكاديمي متخصص للباحثين والطلاب الذين يرغبون في عرض أعمالهم الأكاديمية والبحثية، في هذا المعرض ستتاح لك الفرصة لتحويل الرسائل العلمية إلى كتاب بفضل الخبرات المميزة التي تقدمها إتقان، لا تفوت فرصة التفاعل معنا في معرض القاهرة الدولي للكتاب، واحصل على إرشادات مهنية لتطوير أعمالك الأكاديمية وتحقيق النجاح في الدورة 57 للمعرض.