اذهب الي المحتوي
أوفيسنا

محتاج مساعدة فى طريقة حذف كلمة مكررة في عمود وكذلك ترتيب عمود حسب قيم عمود اخر


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

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

احتاج بالله عليكم شرح التالي

1- لدي عمود مكرر به كلمة ( رقم الهوية : ) وبعدين ارقام الهويات عاوز احذف بمعدله كلمة رقم الهوية :  فقط

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

2- لدي عمود به ارقام ولدي عمود اخر به نفس الارقام ابغي ارتب العمود الثاني نفس الاول كما بالصورة ارجو المساعدة

image.png.d55f69b04c8d17c09fa5c5f733c17ba1.png

اوفسينا.xlsx

رابط هذا التعليق
شارك

أخي الكريم السلام عليكم ((مع رجاء إرفاق ملف للعمل عليه من قبل الزملاء الأفاضل)):

لإزالة السلاسل النصية من مجموعة من الخلايا في العمود B بدءاً من B2 نزولاً حتى آخر صف تريده يمكنك استخدام معادلة صفيف كما يلي :

في الخلية C2:
=SUM(MID(0&B2;LARGE(INDEX(ISNUMBER(--MID(B2;ROW($1:$99);1))*ROW($1:$99););ROW($1:$99))+1;1)*10^ROW($1:$99)/10)
استخدم ALT+SHIFT+ENTER 

ثم تنسخ الناتج وتلصقه (لصق قيم في العمود B مثلاً)

أو تسجل موديول كما يلي لمسح كلمات (رقم الهوية:) والإبقاء على الرقم في العمود ذاته:

Sub ReplaceText()
    Cells.Replace What:="الاسم:", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="رقم الهوية:", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

أما بقية الأسئلة ففي منتدانا من خلال البحث ستجد ضالتك إن شاء الله تعالى.

إو إن شئت استخدم المعادلة التالية في العمود الثالث كما يلي:

=IF($A1<>"";VLOOKUP(A1;$B$1:$B$170;1;0);"")

تقبل تحياتي العطرة والسلام عليكم.

ملاحظة: تمت كتابة معظم مشاركتي حسب طلبك كما جاء في الصورة التي أرفقت ....حرر للبيان.

اوفسينا.xlsm

  • Like 2
رابط هذا التعليق
شارك

2 ساعات مضت, mahmoud.dbour said:

بالله حد يعلمني كيف ارتب ارقام العمود يكون نفس ترتيب العمود اللى قبله كما انا محدد بجدول الاكسيل المرفق

 

هذه المعادلة والله أعلم. وإن كان أحد من الزملاء يرغب بالتعديل فله ذلك على الرحب والسعة.

3 ساعات مضت, محمد حسن المحمد said:

استخدم المعادلة التالية في العمود الثالث كما يلي:

=IF($A1<>"";VLOOKUP(A1;$B$1:$B$170;1;0);"")

 

رابط هذا التعليق
شارك

لحذف الاسم في العمود A بالمعادلات 

=SUBSTITUTE(A1;"الاسم:";"";1)
واسحب نزولاً

لحذف رقم الهوية في العمود B بالمعادلات أيضاً

=SUBSTITUTE(B1;"رقم الهوية:";"";1)
واسحب نزولاً

 

  • Like 1
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

السلام عليكم

هذه صورة عن الورقة التي أجري عليها الفرز بعد تفعيل الكود

image.png.87e4a4991121564b9772f9cb8c593c4d.png

لديّ Office 2016

على رسلك أخي الكريم @مهند محسن فالدلالة على خطأ وقع في كود ما ليس انتقاداً هداماً بل هو لتصحيح الخطأ وقد يكون من استخدام اسم الورقة العربي في الكود مثلاً

جزاكم الله خيراً كل من ساهم ويساهم في تطوير العمل بهذا المنتدى الكريم ...مع العلم أنني قلت لأخي الكريم @omar elhosseini أرجو لك مستقبلاً واعداً لمساهماته الطيبة ومساعدته للآخرين 

 

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

أسألكم اللين في المعاملة وانتقاء الأجوبة المشجعة وليس العكس مثل:

5 ساعات مضت, مهند محسن said:

انتبه من فضلك استاذ بلانك .... فالكود يعمل بكل كفاءة أعتقد المشكلة عندك انت

وقد تبين أن المشكلة ليست من عند السيد @بلانك حسبما ترى في الصورة أعلاه.

والسلام عليكم.

image.png

رابط هذا التعليق
شارك

العفو أخي الكريم @بلانك ولا يهمك أما الكود فهو للأخ الحسيني جزاه الله خيرا 

رمضان مبارك علينا وعليكم أعاده الله تعالى بالخير واليمن والبركات.

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information