كل الانشطه

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

وعليكم السلام ورحمة الله تعالى وبركاته جرب هل هدا ما تقصده Sub test() Dim WS As Worksheet, lastRow As Long, i As Long, dict As Object Dim cnt As String, dateStr As String, tmps As Date, maxDate As Date, tbl As Long Set WS = Sheets("Sheet1") lastRow = WS.Cells(WS.Rows.Count, 1).End(xlUp).Row Set dict = CreateObject("Scripting.Dictionary") Application.ScreenUpdating = False For i = 2 To lastRow cnt = Trim(WS.Cells(i, 1).Value) dateStr = Trim(WS.Cells(i, 2).Value) tmps = IIf(IsDate(dateStr), CDate(dateStr), 0) If cnt <> "" Then If Not dict.exists(cnt) Then dict.Add cnt, Array(tmps, i) ElseIf tmps > dict(cnt)(0) Then dict(cnt) = Array(tmps, i) End If End If Next i For i = lastRow To 2 Step -1 cnt = Trim(WS.Cells(i, 1).Value) If dict.exists(cnt) Then tbl = dict(cnt)(1) If i <> tbl Then WS.Range("A" & i & ":C" & i).Delete Shift:=xlUp ' OR WS.Rows(i).Delete End If Next i Application.ScreenUpdating = True End Sub

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

تم الحل في هذا الموضوع : البحث عن تكرار في فترة زمنية سابقة ب 03 شهور

ارجو المساعدة حيث لدى لملف اكسل به عدد عملاء يتعدى 200 الف عميل وعندى مشكلة فى تكرار اكواد هذه العملاء نتيجة تكرار تاريخ التركيب للعملاء بمعنى : 1- يمكن ان يتكرر الكود اكثر من مرة حين يتم زيارة العميل بأكثر من تاريخ 2- ممكن ان يكون تاريخ التركيب للسجل مرة خالى وممكن ان يكون به تاريخ زيارة وعند عمل ازالة للأكواد المكررة من Remove Duplicates يتم حذف الاكواد المكررة بصورة عشوائية ما اريده هو حذف الاكواد المكرره بشرط ان ما يتبقى بعد الحذف هو كود اخر تاريخ تركيب او زيارة للكود مرفق مثال بسيط للتطبيق عملاء مكررين.XLSX

بارك الله فيك استاذنا محمد هشام .... وشفى الله نجلك عاجل غير اجل ان شاء الله رب العالمين

وعليكم السلام ورحمة الله تعالى وبركاته تحويل الورقة بالكامل الى لغة عربية دون تغير لغة الجهاز -v3 .xlsb

العفو أخي الكريم @2saad

شكرا جزيلا أخي الفاضل وبارك الله فيك وأكثر الله من أمثالك الخيرين

العفو أخي الكريم ,,

استاذ @Foksh شكرا لك بارك الله فيك تحياتي

جاري التجربة ......

جميل جداً .. اذا تفضل هذا الاستعلام بعد ضبط الفرز بشكل تصاعدي للتاريخ SELECT R.[تاريخ المستند], R.[نوع المستند], R.[رقم المستند], W.[اسم المادة ومواصفاتها], W.[الرقم الرمزي], IIf(R.[نوع المستند]='وارد مخزني',W.[الكمية رقما],Null) AS [كمية واردة], IIf(R.[نوع المستند]='صادر مخزني',W.[الكمية رقما],Null) AS [كمية مصروفة], (SELECT Sum(IIf(R2.[نوع المستند]='وارد مخزني', W2.[الكمية رقما], 0)) - Sum(IIf(R2.[نوع المستند]='صادر مخزني', W2.[الكمية رقما], 0)) FROM [راس الوارد] AS R2 INNER JOIN [اطراف الوارد] AS W2 ON R2.[كود المستند] = W2.[كود المستند] WHERE W2.[الرقم الرمزي] = W.[الرقم الرمزي] AND ( R2.[تاريخ المستند] < R.[تاريخ المستند] OR ( R2.[تاريخ المستند] = R.[تاريخ المستند] AND R2.[رقم المستند] < R.[رقم المستند] ) OR ( R2.[تاريخ المستند] = R.[تاريخ المستند] AND R2.[رقم المستند] = R.[رقم المستند] AND W2.[كود الطرف] <= W.[كود الطرف] ) ) ) AS [الرصيد التراكمي] FROM [راس الوارد] AS R INNER JOIN [اطراف الوارد] AS W ON R.[كود المستند] = W.[كود المستند] ORDER BY R.[تاريخ المستند], W.[الرقم الرمزي], R.[تاريخ المستند], R.[رقم المستند], W.[كود الطرف];

استاذ @Foksh النتائج صحيحه 100% لكل ماده فقط ان كل مادة تظهر بالنموذج الرئيسي لوحدها مثل ورق A4 وتفاصيلها تظهر بالنموذج الفرعي تحياتي

حسناً أخي @Ahmed_J ، قبل الشروع في تنفيذ فكرتك ، هل المطلوب تحقيقه بهذه النتيجة ؟؟؟ Query3 تاريخ المستند نوع المستند رقم المستند اسم المادة ومواصفاتها الرقم الرمزي كمية واردة كمية مصروفة الرصيد التراكمي 2025-05-06 وارد مخزني 46324 ورق A4 11111 10 10 2025-05-08 صادر مخزني 100 ورق A4 11111 1 9 2025-05-09 صادر مخزني 45 ورق A4 11111 5 4 2025-05-09 صادر مخزني 45 ورق A4 11111 3 1 2025-05-06 وارد مخزني 46324 ورق A3 22222 8 8 2025-05-09 صادر مخزني 45 ورق A3 22222 5 3

العفو أخي الكريم ..

مشكور اخي Foksh

العفو أخي الكريم ،، ما عليك فعله هو كالآتي ، تحديد مربعات النص من 1 - 12 ، ثم التوجه الى التنسيق الشرطي ، وتقوم بإضافة شرطين كالآتي :- التطبيق في المرفق التالي :- Data19.zip

تمام ... بارك الله فيك وذادك علما على علم وجعلك عونا للاخرين امثالي وغيري وشكرا على تعبك معنا استاذنا / عبدالله بيك بشير

شكرا جزيلا أخي الفاضل أعذرني يا أخي الفاضل أنا عايز لو ظهر في النتيجة لأي مادة لون( أحمر) أو (غ ) ( يلون الخانة دي لون رصاصي بحيث يميز الطالب اللي عند لون أحمر في مادة أو غائب ) انظر يا أخي الكريم دا صف من نتيجة طالب فيه مربع مكتوب فيه لون ( أحمر ) وبجانبه مكتوب غ عايز لما يظهر لون أحمر أو غ لأي مادة يتلون بلون رصاصي علشان أعرف أميزه أرجو ان أكون وصلت الفكرة وأكرر اعتذاري

وهذا هو الاستعلام أخي الكريم :- SELECT t1.* FROM test AS t1 INNER JOIN (SELECT a.[رقم الزبون], a.[إسم المادة], a.[حجم المادة] FROM test AS a INNER JOIN ( SELECT [رقم الزبون], [إسم المادة], [حجم المادة], MAX([تاريخ الفاتورة]) AS MaxDate FROM test GROUP BY [رقم الزبون], [إسم المادة], [حجم المادة] ) AS b ON a.[رقم الزبون] = b.[رقم الزبون] AND a.[إسم المادة] = b.[إسم المادة] AND a.[حجم المادة] = b.[حجم المادة] WHERE a.[تاريخ الفاتورة] >= DateAdd("m", -3, b.MaxDate) GROUP BY a.[رقم الزبون], a.[إسم المادة], a.[حجم المادة] HAVING COUNT(*) > 1 ) AS t2 ON (t1.[حجم المادة] = t2.[حجم المادة]) AND (t1.[إسم المادة] = t2.[إسم المادة]) AND (t1.[رقم الزبون] = t2.[رقم الزبون]) WHERE (((t1.[تاريخ الفاتورة])>=DateAdd("m",-3,(SELECT MAX(x.[تاريخ الفاتورة]) FROM test AS x WHERE x.[رقم الزبون] = t1.[رقم الزبون] AND x.[إسم المادة] = t1.[إسم المادة] AND x.[حجم المادة] = t1.[حجم المادة] )))); رغم أنني سأكرر عليك ما تم الإشارة إليه في الكثير من المواضيع ، وهي استعمالك للأسماء العربية في الحقول و أسماء الجداول ... إلخ من مكونات قاعدة البيانات .

السلام عليكم اخي انا اريد مثلا اذا كانت اكير تاريخ هو 01-03- 2025 للزبون اريده ان بظهر الاستعلام التواريخ التى تساوي او اقل 01-03-2025 ب 03 اشهر اي من تاريخ 01-12-2024 الى غاية 01-03-2025 اما باقي التواريخ التي هي فبل تاريخ الفاتورة 01-12-2024 لا تظهر ربما في متال الاخير هو الانسب Query2 ID تاريخ الفاتورة رقم الزبون إسم المادة حجم المادة 1 2025-03-01 1001 سردين 1000غ 8 2025-03-01 1001 سردين 1000غ 12 2025-03-01 1006 جبن 500غ 13 2025-02-20 1006 جبن 500غ 14 2025-01-01 1006 جبن 500غ 15 2024-12-01 1006 جبن 500غ

هل تريد فعلاً العودة الى تلوين مربع النص حسب قيمته ؟؟؟؟ يعني اذا كان مربع النص 1 = أصفر = لون الخلفية أصفر !!!! واذا كان مربع النص 7 مثلاً = أزرق = لون خلفيته = أزرق !!!! نرجو منك التوضيح لأنك - واعذرني دون قصد - تفتقر الى الشرح المفهوم في معظم طلباتك وتكون عادة مبهمة وغير صريحة في تحديد المطلوب . بالنسبة الى طلبك وإن كان فعلاً ها ما تريده ، فأنا لن أعود بك الى ما كنت عليه سابقاً وسأجعلك تحاول تنفيذ ذلك من خلال التنسيق الشرطي فعلاً لمربعات النص المستهدفة في التلوين ,.

السلام عليكم حسب قهمى لطلبك ترتيب حسب اللون.xlsb

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق عند فتحه يظهر فورم عند اختيار الفصل الدراسي والفئة والصف ثم الضغط علي زر كشف تظهر النتيجة محتاج اعمل تنسيق شرطي للمواد مثل ( 1 = أحمر أو غ يلون معين ( رصاصي ) ) وهكذا مع الأخذ في الاعتبار ان الكشف واحد ولكن المواد في الصف الأول والثاني والثالث تختلف عن الصف الرابع والخامس والسادس . بارك الله فيكمData18.rar