nicebird قام بنشر أكتوبر 23, 2006 قام بنشر أكتوبر 23, 2006 أخوتي الأعزاء خبراء الأكسل ،إذا كان لدي عمود يحتوي على أرقام ، هل ممكن من خلال الأكسل أن يفرز لي الأرقام المتكررة ، بحيث يفرز لي الأرقام المتكررة في تقرير منفصل. المثال المرفق : يوضح لنا بالعمود A1 ، قيم ، ويوجد بالعمود قيم مكررة مثل ، 20 و 26 و 14 65 و ..... أريد إستخراج تقرير مفصل بالقيم المكررة بطريقة سريعة ، تلقائي وليس عن طريق تصفية تلقائية لكل قيمة ومعرفة ما إذا كانت مكررة أم لا ؟ ارجوا المساعدة وكل عام وأنتم بخير . TEST.zip
nicebird قام بنشر أكتوبر 25, 2006 الكاتب قام بنشر أكتوبر 25, 2006 أخي العزيز علي ، كل عام وأنت بخير ،والله ما قصريت ، بس يا عزيزي القيمة 56 و 35 و 58 و 48 ليس مكررة بالقائمة الأصلية ..يفترض لا تظهر في قائمة القيم المكررة ، أليس كذلك . لذا من المفروض أن تظهر في قائمة القيم المكررة فقط القيم المكررة من القائمة الأصلية .. ارجو التأكد من المعادلات والمحاولة مرة أخرى .. وشكرا لك على تعاونك
علي السحيب قام بنشر أكتوبر 28, 2006 قام بنشر أكتوبر 28, 2006 في الوقت الذي قمت فيه بوضع الرد على السؤال كنت في عجلة من أمري ولم أتأكد من أن القيم التي تم سردها هي القيم المتكررة فقط أو أكثر من ذلك .. على كل حال تم إضافة التعديل المطلوب على الصيغ .. وبالإضافة إلى ذلك قمت بكتابة الكود التالي ليقوم بفرز القيم المتكررة نيابة عن خمس أعمدة من الصيغ .. فأختر من الطريقتين ما يناسبك. Private Sub Worksheet_Change(ByVal Target As Range) TC = Target.Column TR = Target.Row If TC = 1 And TR > 1 And TR < 23 Then Set MyRange = [C2:C22] Application.ScreenUpdating = False MyRange.ClearContents For R = 2 To 22 If Application.WorksheetFunction.CountIf([A2:A22], Cells(R, 1)) > 1 Then With Columns(3).Rows(65536).End(xlUp) .Offset(1, 0) = Cells(R, 1) End With End If Next For Each Cell In MyRange If Application.WorksheetFunction.CountIf(MyRange, Cell) > 1 Then Cell.ClearContents End If Next MyRange.Sort [C2], xlAscending Application.ScreenUpdating = True End If End Sub شاهد المرفق، _______________________________________.rar 1
nicebird قام بنشر أكتوبر 28, 2006 الكاتب قام بنشر أكتوبر 28, 2006 بارك الله بيك يا اخي الغالي علي ، جزاك الله ألف خير ، ما شاء الله عليك ، اللهم لا حسد ، وعيني عليك بارده ، الله يوفقك ويسدد خطاك ويغفر لوالديك يا رب يا رحيم يا كريم أجزي لأخي في الله ( علي) كل خير ووفقه وأجعلها في ميزان حسناته ، اللهم أمين .
الردود الموصى بها