ابو هاله النبلسي قام بنشر أبريل 7, 2020 مشاركة قام بنشر أبريل 7, 2020 السلام عليكم ورحمة الله وبركاته شيت بالمرفق فيه قائمة رئيسية وفرعي يرجى ترتيب القائمة الفرعيه ابجديا مع باقي خلاياها حسب القائمة الرئيسية وفقط المكرر يعني اذا تم ايجاد مكرر بكلتا القائمتين يرجى ترتيبهما ابجديا New Microsoft Excel Worksheet (2).xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 8, 2020 مشاركة قام بنشر أبريل 8, 2020 السؤال مبهم بعض الشيء 1- هل تريد ما موجود في العامود الاول وليس في الثاني؟؟ 2-هل تريد ما موجود في العامود الثاني وليس في الاول؟؟ 3-هل تريد المشترك بين العامودين؟؟ تم استخراج الفيم بواسطة المعادلات في الأعمدة من I الى K (الاعمدة مخفية لحسن الرؤية) لكن ليست مرتبة أبجدياً على كل خال جرب هذا الماكرو يقوم بترتيب النتائج ابجدياً في الاعمدة من M الى O Option Explicit Sub Exract_Common_Values() Rem This Macro Extract The common Of two Columns by Order Rem Created By Salim Hasbaya on 8/4/2020 If ActiveSheet.Name <> "Salim" Then GoTo Leave_Me_Please Application.ScreenUpdating = False Dim st, I% If Range("M1").CurrentRegion.Rows.Count > 1 Then _ Range("M1").CurrentRegion.Offset(1).Clear st = "SUM(IF(COUNTIF($A$2:$A$44,$E$2:$E$44)+COUNTIF($E$2:$E$44,$A$2:$A$44)=2,1,0))" st = Evaluate(st) For I = 2 To st + 1 Range("M" & I).FormulaArray = _ "=INDEX(E$2:E$44,SMALL(IF(COUNTIF($A$2:$A$44,$E$2:$E$44)+COUNTIF($E$2:$E$44,$A$2:$A$44)=2,ROW($E$2:$E$44)-ROW($E$2)+1),ROWS($A$1:A" & I - 1 & ")))" Range("N" & I).FormulaArray = _ "=INDEX(F$2:F$44,SMALL(IF(COUNTIF($A$2:$A$44,$E$2:$E$44)+COUNTIF($E$2:$E$44,$A$2:$A$44)=2,ROW($E$2:$E$44)-ROW($E$2)+1),ROWS($A$1:A" & I - 1 & ")))" Range("O" & I).FormulaArray = _ "=INDEX(G$2:G$44,SMALL(IF(COUNTIF($A$2:$A$44,$E$2:$E$44)+COUNTIF($E$2:$E$44,$A$2:$A$44)=2,ROW($E$2:$E$44)-ROW($E$2)+1),ROWS($A$1:A" & I - 1 & ")))" Next With Range("m1").CurrentRegion .Value = .Value .Sort KEY1:=.Cells(1, 1), Header:=1 If .Rows.Count > 1 Then With .Offset(1).Resize(.Rows.Count - 1) .Interior.ColorIndex = 6 .Borders.LineStyle = 1 .InsertIndent 1 With .Font .Size = 14: .Bold = True End With .Columns.AutoFit End With End If End With Leave_Me_Please: Application.ScreenUpdating = True End Sub الملف مرفق EXTRA_FOUND.xlsm 1 رابط هذا التعليق شارك More sharing options...
ابو هاله النبلسي قام بنشر أبريل 8, 2020 الكاتب مشاركة قام بنشر أبريل 8, 2020 الله ينور عليك استاذ انتا منتظرك من البارحة استاذنا الفاضل انا احتاج المشترك في العمودين المكرر فقط لكن ابجديا مثلا عندما نستخدم التنسيق الشرطي لاظهار اللون الاحمر في تمييز الخلايا المكررة في القائمتين اعمل تصفيه حسب اللون الاحمر في العمود الاول هنا ياتي ما احتاجه انا انه يترتيب العمود الاول ابجدي والعمود الثاني وملحقاته يترتيب حسب ترتيب العمود الاول ابجديا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 8, 2020 مشاركة قام بنشر أبريل 8, 2020 الكود في Vba لا يتعامل مع التنسيق الشرطي لانه يأخذ اللون الحقيقي للخلية وليس لونها من خلال التنسيق الشرطي لفهم ما تريد ارجو ادراج جدول بسيط بالنتائج المتوقعة(يدوياً) مع اختصار البيانات الى 7 او 10 صفوف لا أكثر (كي يمكن تتبع عمل الكود) لا ضرورة لكتابة اسماء طويلة يمكن استعمال الأحرف مثالاً A3 A2 A1 .... و ذلك لسرعة مقارنة النتائج رابط هذا التعليق شارك More sharing options...
ابو هاله النبلسي قام بنشر أبريل 8, 2020 الكاتب مشاركة قام بنشر أبريل 8, 2020 احتاج كود فقط يعمل على فرز الاسماء المكررة في الحقلين وعزلهما ابجديا فقط في عامودين والفرز يعتمد على القائمة الاولى رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 8, 2020 مشاركة قام بنشر أبريل 8, 2020 3 دقائق مضت, ابو عبد الرحمن العراقي said: احتاج كود فقط يعمل على فرز الاسماء المكررة في الحقلين وعزلهما ابجديا فقط في عامودين والفرز يعتمد على القائمة الاولى الملف الدي ارسلته لك يعمل هذا الشيء و يضع النتيحة في الاعمدة M,N,O رابط هذا التعليق شارك More sharing options...
ابو هاله النبلسي قام بنشر أبريل 8, 2020 الكاتب مشاركة قام بنشر أبريل 8, 2020 الشرح استاذي @سليم حاصبيا في داخل الملف EXTRA_FOUND (1).xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 8, 2020 مشاركة قام بنشر أبريل 8, 2020 هذا الأنك تقوم بالترتيب على كل الاعمدة من A الى G لذلك يجب ان تقوم بالتصفية في العامود A فقط رابط هذا التعليق شارك More sharing options...
ابو هاله النبلسي قام بنشر أبريل 8, 2020 الكاتب مشاركة قام بنشر أبريل 8, 2020 جربت العمليه ولكن لو حضرتك تجرب تعمل تصفيه حسب الاحرف الابجدية سيتم تغيير الحقل الفرعي وانا جربت ولم تعمل ياريت لو تكرمت تعمل على نفس الملف سواء vba او معادلات @سليم حاصبيا رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أبريل 8, 2020 أفضل إجابة مشاركة قام بنشر أبريل 8, 2020 تفضل EXTRA_FOUND (2).xlsm 1 رابط هذا التعليق شارك More sharing options...
ابو هاله النبلسي قام بنشر أبريل 8, 2020 الكاتب مشاركة قام بنشر أبريل 8, 2020 كلمة شكر قليل بحقك استاذ @سليم حاصبيا يا امير وبارك الله يا طيب والله يحفظ لبنان واهل لبنان وتعيش الثورة 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان