اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

ما المشكلة

شوف طريقة الترتيب في العمود الاول وليكن تصاعدي

وتفذها على العمود الثاني

ستحصل على نفس الترتيب إذا كانت نفس البيانات في العمودبن

بالتوفيق 

قام بنشر

استاذي ومعلمي الاستاذ محمد صالج ... شكرا على الرد السريع ولكن يوجد اسماء بالقائمة ا لا توجد في القائمة ب واريد وضع كل اسم امام الاخر قي القائمتين ويبقى الاسم الذي ليس له مقابل يبقى فارغا والمطلوب في الملف الذي سارفعه للتوضيح

ترتيب عمود بنفس قيم عمود اخر.xlsx

قام بنشر

لعل هذه الطريقة تفيدك في الوصول للهدف

تم وضع 3 معادلات:

معادلة لوضع الاسم إذا كان موجودا في ب وإلا يترك خاليا (في العمود الذي تم إدراجه B )

ومعادلة لتحديد غير الموجود في ب (في العمود D)

معادلة لجلب الأسماء الموجودة في ب وغير موجودة في أ  (أسفل القائمة في العمود B )

بالتوفيق

ترتيب عمود بنفس قيم عمود اخر.xlsx

  • Like 2
قام بنشر (معدل)

 بعد ادن الاستاد الفاضل أ/محمد صالح  

ملاحظة سيتم التحقق من قيم القائمة 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

تم تعديل بواسطه محمد هشام.
  • Like 1
قام بنشر

ربما يرجع اختلاف الحل المقدم من الأخ الفاضل @محمد هشام.

بسبب اختلاف فهم المطلوب

أعتقد أن المطلوب

* إن كان الاسم الموجود في ( أ) موجود في (ب) يتم كتابة نفس الاسم / وإذا لم يكن موجودا في (ب) يتم ترك الخلية أمامه فارغة (وهذا تم تنفيذه)

* إن كان الاسم الموجود في (ب) غير موجود في (أ) يتم كتابة نفس الاسم من (ب) ويتم ترك الخلية أمامه في (أ) فارغة (وهذا لم يتم تنفيذه)

بالتوفيق للجميع

  • Like 3
قام بنشر (معدل)

حل اخر 

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

تم تعديل بواسطه محمد هشام.
  • Like 1
قام بنشر

خبراء اكسل واساتذتنا ارجو الحل العمود الاول يوجد اسماء رباعية وخماسية والعمود الاخر به اسماء ثلاثية وبالتاي يعتبر الاسماء غير متطابقة  ...... مالحل اذا ؟؟؟؟؟؟؟؟؟؟؟؟؟

  • 2 weeks later...
قام بنشر (معدل)

 

تحياتنا لكم مقدما يا اوفيسنا الغالي

هل ممكن نزيد الامر صعوبة 

بيانات العمود الاول هيه الاساس 
وبيانات العمود الثاني هيه التي ارغب في ترتيبها بناء علي الاسماء في العمود الاول

بس الامر الجديد هو اذا كانت البيانات التي سوف تترتب بناء علي العمود الاول في اكثر من عمود 

مثال كما بالملف المرفق

انا طبقت المعادلة مش الكود وكررتها في ثلاثة اعمدة وغيرت في المعادلة رقم العمود وظبطت معايا 

لو ليها طريقة تاني مفيش مشاكل 

بس لاحظت مشكلة لو الاسم في العمود الاول ثلاثي ونفس الشخص بس اسمه مكتوب رباعي او خماسي في العمود الثاني المراد ترتيبه بيعتبر الاسمين مختلفين وغير متطابقين وتصبح الخلية فارغة هل ممكن نعدل في الدالة بحيث تبص علي الاسم حتي الثلاثي علي الاقل

وشكرا ليكم دائما وابدا

درجات امتحان طالب.xlsx

تم تعديل بواسطه ابو بهاء المصري

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information