(تمت الاجابة) اعادة ترتيب الارقام حسب اخر ثلاثة ارقام مساوية لها في العمود المجاور

[أبو عبدالملك]

السلام عليكم ورحمة الله وبركاته

السؤال هو :

عندي عمودين من الارقام العمود الاول يتكون من 12 رقم والعمود الثاني من ثلاث ارقام والثلاث ارقام هي اخر ثلاث ارقام من العمود الاول..

السؤال هو

كيف ارتب العمودين بحيث تكون الثلاثة ارقام في العمود الثاني مقابل الرقم في العمود الاول المكون من 12 رقم بحيث تكون الثلاثة ارقام مقابل الرقم الكامل المجتزأ منه

في المرفقات موضح أكثر ومع مثال على سؤالي وطلبي

وشكرا لكم جميعاً

Ques.rar

[عبدالله المجرب]

السلام عليكم

جرب هذا الكود

Sub Abu_Ahmed()

Dim cl As Range, c As Range, w As Variant

t = 2

For Each c In [D2:D8]

For Each cl In [C2:C8]

If c = Val(Mid(cl, Len(cl) - 2, 3)) Then r = r & Trim(cl) & ",": GoTo 1

Next

1 Next

For Each w In Split(r, ",")

Cells(t, 3) = w

t = t + 1

Next

End Sub

شاهد المرفق

Ques.rar

[أبو عبدالملك]

_{الله يجزاك الخير اخوي ابو احمد ما شاء الله مبدع}

_{عندي سؤال قريب من السؤال الاول وهو}

_{انه العمود الاول واللي يتكون من 12 رقم .. كيف افصل الثلاث ارقام الاخيرة من اليمين واحطها في عمود ثاني مقابل للعمود الاول ..}

_{وشكرا لك واعتذر عن كثرة الاسالة}

تم تعديل فبراير 6, 2012 بواسطه أبو عبدالملك

[عبدالله المجرب]

السلام عليكم

_{وشكرا لك واعتذر عن كثرة الاسالة}

انت كذي تزعلنا منك فانت في اوفيسنا فلا تخجل من طرح ما تريد من استفسارات

لكن

اتمنى ان تضع عناوين مناسبة للمطلوب

=====

_{كيف افصل الثلاث ارقام الاخيرة من اليمين}

بفرض ان الرقم في الخلية C2

ضع هذه المعادلة في الخلية المقابله

=MID(C2;LEN(C2)-2;3)

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم، أقدم لك في الملف المرفق حلين (باللون الأحمر) الحل الأول هو معادلة تعيين باقي قسمة الأعداد على 1000 للحصول على الأرقام الثلاثة الأخيرة لكل عدد، والحل الثاني تم باستعمال الداليتن Index و MATCH...

أخوك بن علية

Ques.rar

[عبدالله المجرب]

الاستاذ الفاضل بن عليه

حل رائع جداً جداً جداً

[أبو عبدالملك]

الاخوة .. أبو أحمد وبن عليه

جزااااااااااكم الله كل خير .. والله بتنقذوني وبتختنصروا علي وقت وجهد كبير .. الله يجعلها في ميزان حسناتكم ويبارك فيكم ويحفظكم.

شكرا لكم مرة ثانية وشكرا لمنتدى أوفسينا.

أخوكم ابو عبدالملك.

[جروان]

والله ابداع مشكورين

[ahmed saif]

مشكورررررررررررررررو بارك الله فيكم

[ا بو سليمان]

ترفع المشاركة  لانها مفيده