بلانك قام بنشر أكتوبر 15, 2023 مشاركة قام بنشر أكتوبر 15, 2023 ترتيب عمود بنفس قيم عمود اخر ترتيب عمود بنفس قيم عمود اخر.xlsx رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أكتوبر 15, 2023 مشاركة قام بنشر أكتوبر 15, 2023 ما المشكلة شوف طريقة الترتيب في العمود الاول وليكن تصاعدي وتفذها على العمود الثاني ستحصل على نفس الترتيب إذا كانت نفس البيانات في العمودبن بالتوفيق رابط هذا التعليق شارك More sharing options...
بلانك قام بنشر أكتوبر 15, 2023 الكاتب مشاركة قام بنشر أكتوبر 15, 2023 استاذي ومعلمي الاستاذ محمد صالج ... شكرا على الرد السريع ولكن يوجد اسماء بالقائمة ا لا توجد في القائمة ب واريد وضع كل اسم امام الاخر قي القائمتين ويبقى الاسم الذي ليس له مقابل يبقى فارغا والمطلوب في الملف الذي سارفعه للتوضيح ترتيب عمود بنفس قيم عمود اخر.xlsx رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أكتوبر 15, 2023 مشاركة قام بنشر أكتوبر 15, 2023 لعل هذه الطريقة تفيدك في الوصول للهدف تم وضع 3 معادلات: معادلة لوضع الاسم إذا كان موجودا في ب وإلا يترك خاليا (في العمود الذي تم إدراجه B ) ومعادلة لتحديد غير الموجود في ب (في العمود D) معادلة لجلب الأسماء الموجودة في ب وغير موجودة في أ (أسفل القائمة في العمود B ) بالتوفيق ترتيب عمود بنفس قيم عمود اخر.xlsx 2 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر أكتوبر 15, 2023 مشاركة قام بنشر أكتوبر 15, 2023 (معدل) بعد ادن الاستاد الفاضل أ/محمد صالح ملاحظة سيتم التحقق من قيم القائمة 1 فقط في حالة وجود نفس القيمة في القائمة 2 سيتم جلب الاسم المقابل وفي حالة وجود فراغ في القائمة 1 يتم جلب قيمة القائمة 2 في حالة عدم وجودها يتم ترك الخلية فارغة ادا كنت قد استوعبت طلبك تفضل جرب وضع المعادلة في الخلية C2 مع سحبها للاسفل للتاكد من النتائج المتوقعة =IF(A2<>"",IFERROR(VLOOKUP(A2,B$2:$B$20,1,0),""),B2) في حالة الرغبة باستخراج النتائج في عمود B يمكنك استخدام الكود التالي Sub Insert_formula() Dim derligne As Long, K As String Dim wsdata As Worksheet: Set wsdata = Worksheets("Sheet1") derligne = wsdata.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row K = "=IF(A2<>"""",IFERROR(VLOOKUP(A2,B$2:$B$" & derligne & ",1,0),""""),B2)" Application.ScreenUpdating = False With Range("C2:C" & derligne) .Formula = [K] .Value = .Value End With For i = 2 To derligne Range("B" & i) = Range("C" & i) Next i Range("C2:C" & derligne).ClearContents Application.ScreenUpdating = True End Sub 2ترتيب عمود بنفس قيم عمود اخر.xlsm تم تعديل أكتوبر 15, 2023 بواسطه محمد هشام. 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أكتوبر 15, 2023 مشاركة قام بنشر أكتوبر 15, 2023 ربما يرجع اختلاف الحل المقدم من الأخ الفاضل @محمد هشام. بسبب اختلاف فهم المطلوب أعتقد أن المطلوب * إن كان الاسم الموجود في ( أ) موجود في (ب) يتم كتابة نفس الاسم / وإذا لم يكن موجودا في (ب) يتم ترك الخلية أمامه فارغة (وهذا تم تنفيذه) * إن كان الاسم الموجود في (ب) غير موجود في (أ) يتم كتابة نفس الاسم من (ب) ويتم ترك الخلية أمامه في (أ) فارغة (وهذا لم يتم تنفيذه) بالتوفيق للجميع 3 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر أكتوبر 15, 2023 مشاركة قام بنشر أكتوبر 15, 2023 (معدل) حل اخر Sub Recher_des_valeurs() Dim List1 As Range, List2 As Range, lr As Long Set wsdata = Sheets("Sheet1") lr = wsdata.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Application.ScreenUpdating = False With wsdata .Range("c2", Range("c" & Rows.Count).End(4)).ClearContents For Each List1 In .Range("a2:a" & .Cells(Application.Rows.Count, 2).End(xlUp).Row) Set List2 = .Columns(2).Find(List1.Value, , xlValues, xlPart) If Not List2 Is Nothing Then List1.Offset(, 2).Value = List2.Value Else List1.Offset(, 2).Value = "" If List1.Value = Empty Then List1.Offset(, 2).Value = List1.Offset(, 1).Value Next List1 End With '***(B) نقل النتيجة لعمود 'With wsdata ' .Range("c2:c" & lr).Cut .Range("b2:b" & lr) 'End With Application.ScreenUpdating = True End Sub ترتيب عمود بنفس قيم عمود اخر 3.xlsb تم تعديل أكتوبر 15, 2023 بواسطه محمد هشام. 1 رابط هذا التعليق شارك More sharing options...
بلانك قام بنشر أكتوبر 20, 2023 الكاتب مشاركة قام بنشر أكتوبر 20, 2023 المطلوب ترتيب عمود بنفس قيم عمود اخر مع العلم توجد اسماء رباعية واسماء ثلاثية .... فكيف تتم المقارنة المطلوب ترتيب عمود بنفس قيم عمود اخر.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر أكتوبر 21, 2023 أفضل إجابة مشاركة قام بنشر أكتوبر 21, 2023 ربما يفيدك هذا الموضوع بالتوفيق رابط هذا التعليق شارك More sharing options...
بلانك قام بنشر أكتوبر 21, 2023 الكاتب مشاركة قام بنشر أكتوبر 21, 2023 خبراء اكسل واساتذتنا ارجو الحل العمود الاول يوجد اسماء رباعية وخماسية والعمود الاخر به اسماء ثلاثية وبالتاي يعتبر الاسماء غير متطابقة ...... مالحل اذا ؟؟؟؟؟؟؟؟؟؟؟؟؟ رابط هذا التعليق شارك More sharing options...
ابو بهاء المصري قام بنشر أكتوبر 30, 2023 مشاركة قام بنشر أكتوبر 30, 2023 (معدل) تحياتنا لكم مقدما يا اوفيسنا الغالي هل ممكن نزيد الامر صعوبة بيانات العمود الاول هيه الاساس وبيانات العمود الثاني هيه التي ارغب في ترتيبها بناء علي الاسماء في العمود الاول بس الامر الجديد هو اذا كانت البيانات التي سوف تترتب بناء علي العمود الاول في اكثر من عمود مثال كما بالملف المرفق انا طبقت المعادلة مش الكود وكررتها في ثلاثة اعمدة وغيرت في المعادلة رقم العمود وظبطت معايا لو ليها طريقة تاني مفيش مشاكل بس لاحظت مشكلة لو الاسم في العمود الاول ثلاثي ونفس الشخص بس اسمه مكتوب رباعي او خماسي في العمود الثاني المراد ترتيبه بيعتبر الاسمين مختلفين وغير متطابقين وتصبح الخلية فارغة هل ممكن نعدل في الدالة بحيث تبص علي الاسم حتي الثلاثي علي الاقل وشكرا ليكم دائما وابدا درجات امتحان طالب.xlsx تم تعديل أكتوبر 30, 2023 بواسطه ابو بهاء المصري رابط هذا التعليق شارك More sharing options...
بلانك قام بنشر أكتوبر 31, 2023 الكاتب مشاركة قام بنشر أكتوبر 31, 2023 نفس الطلب ... لو تكرمتم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان