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

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

قام بنشر

السلام عليكم ... عندس جدول كما هو مرفق فيه مكرر في يعض الخلايا من خلايا الملق .. أردي معرفة الطريقة لحذف هذا المكرر ..
أكرر  أن المكرر هو في الخلية  وليس في الأعمدة
وشكرا لكم

test.rar

قام بنشر

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

جرب الكود التالي ..

Sub Test()
    Dim i           As Long
    
    Application.ScreenUpdating = False
        For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
            RemoveDuplicatesInCell Range("B" & i), Range("C" & i), "،"
        Next i
    Application.ScreenUpdating = True
End Sub

Sub RemoveDuplicatesInCell(rng As Range, rngT As Range, Optional delim As Variant)
    Dim d           As Object
    Dim arr()       As String
    Dim i           As Long
    
    If IsMissing(delim) Then delim = ", "
    Set d = CreateObject("Scripting.Dictionary")
    arr = Split(rng, delim)
    
    For i = LBound(arr) To UBound(arr)
        d(arr(i)) = 1
    Next i
    
    rngT.Value = Join(d.keys, " ، ")
    d.RemoveAll
End Sub

 

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

عذرا يا  شيخ   انا مبتدئ في هذا المجال .. فأين أضع هذا الكود
يعني ممكن أن تضع لي الكود في الملف المرفق وتحفظه وتعيد إرساله  وأنا أطبق ما أريد بواسطته؟ وشكرا لك

تم تعديل بواسطه hamra
قام بنشر (معدل)

شكرا لك  تم العمل كما في الفيديو و أنشأ لي عمود D  لكن لم يتم حذف المكرر بحيث بقيت كل القيم مثما هي كما في العمود B

هل هناك خلل في الكود ؟

تم تعديل بواسطه hamra
قام بنشر

بارك الله لك أخي الكريم أبا البراء

كود رائع

ولا يوجد مكرر في النص من الأساس أخي صاحب الاستفسار

وربما يتوجب عليك أن تعرف ما مضمون الكود الرائع للحبيب ياسر 

وهو تقسيم النص الموجود بالخلية بناء على وجود الفاصلة ( ، ) ومقارنة الكلمات بين الفصلات وحذف الكلمة التي سبق وجودها

 

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

في الملف المرفق يوجد كلمات مكررة ولم يشتفل الكود معي فقلت لعل في الملف مشكلة فعملت ملفا آخر قصير من سطر واحد ونسخت بعض الكلمات المكررة في الخلية  وطبقت الكود ولم تحذف.. لا أدري  أين الإشكال والله
 

تم تعديل بواسطه hamra
قام بنشر

شكرا لك لقد عمل معي الآن  بعد العمل على هذا الملف .. لكن عندي مشكلة لم أنتبه إليها هل ممكن التعديل على الكود بحيث يهمل التشكيل فمثلا عندي صَالح ، وصالِح، صالحٌ  هذه الكلمات كلمة واحدة أود حذفها والإبقاء على واحدة لكن الاختلاف في التشكيل يمنعني.. نعم استطيع حذف التشكيل نهائيا  ويضبط الامر  لكن أنا أريد النصوص بالتشكيل وشكرا لكم

قام بنشر

كمعلم لغة عربية

أود أن أوضح أن إهمال التشكيل غير صحيح في عمل برنامج القاموس

لأنك لن تستطيع إعادة التشكيل للكلمات المتبقية

  • Like 1

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