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

[اوفيس 2003]

وهذا مثال بسيط لذلك

اريد طريقة اعرف بها الأرقام المكررة اولا ثم احذفهم

Test.rar

[عادل حنفي]

السلام عليكم

اخي

تم عمل المطلوب بتحديد فقط المكرر في كلا العمودين

اما بالنسبه للالغاء لم اضعه في الاعتبار و اذا كنت تريد الالغاء فقط اعلمني بذلك

تحياتي

Test.rar

تم تعديل فبراير 7, 2009 بواسطه aah_aah2008

[اوفيس 2003]

جزاك الله خير اخي الغالي

بس بعد التجربة لي ملاحظات

1- اريد شرح مختصر لما قمت به حتى اطبق الطريقة على اكثر من ملف

2- لو فرضنا هناك الف رقم ، انا اريد الأرقام تظهر لي متتالية حتى اراها ومعاها الإسم المجاور حتى اتأكد من البيانات ربما ادخلت انا الرقم خطأ ولا اريد ان امسحه

3- انا اقوم عندما اتعرض لهذه المسأله بطريقة يدوية وهي اقوم بعمل فرز للأرقام ومن ثم انظر اليهم والاحظ هل هناك مكرر ام لا ومن ثم امسحهم وطبعا مملة علشان عيني هاتروح وقتها بالنظر الى الف رقم

[عادل حنفي]

السلام عليكم

اخي

و هذان ملفان الاول لالغاء المكرر

و الثاني

لالغاء اللون عن خليه مكرره تم ازالة ما يجعلها مكرره

الكود يعمل علي العمود الول و الاني فقط و حتي الصف ال 1000

كما تم ارفاق ملف فيديو يبين طريقة نسخ الكود لملف اخر

كما طلبت و ان وجد اي شيئ اخبرني

تحياتي

delete.rar

Test5.rar

code.rar

[عادل حنفي]

السلام عليكم

و هذا ملف اخر تم عمله بازرار

زر لتحديد المكرر و الاخر للالغاء

حتي تتمكن من المراجعة

تحياتي

select_delete.rar

[amoudi]

السلام عليكم

ممكن تتطلع المكرر بعدة طريق :

يمكن وضع عمود بجانب عمود الأرقام وتضع به المعادلة (countif(A:A,A1 وتسحب المعادلة بافتراض انه اول خلية هي A1 وحيظهرك كم مره مكرر وبعدين تفرزها على حسب العمود

يمكن تضع المعادلة 1< (countif(A:A,A1 في التنسيق الشرطي على كامل العمود وتختار الفورمات المطلوبة للأشياء المكرره/ أكثر من مره (1) وحيشتغل معاك

يمكن تفرز العمود وتضع عمود بجانبه وتضع معادلة A2=A1 وتسحب المعادلة وحيظرلك True على الأشياء المكرره

واخيرا ممكن بالماكرو كما سبق في الردود

تحياتي

[اوفيس 2003]

مشكور على الردود

ومشكور مشرفنا الغالي

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

[عاشق ترابها]

السلام عليكم

اخي

و هذان ملفان الاول لالغاء المكرر

و الثاني

لالغاء اللون عن خليه مكرره تم ازالة ما يجعلها مكرره

الكود يعمل علي العمود الول و الاني فقط و حتي الصف ال 1000

كما تم ارفاق ملف فيديو يبين طريقة نسخ الكود لملف اخر

كما طلبت و ان وجد اي شيئ اخبرني

تحياتي

ياليت الطريقة لكي يتم تحديد المكرر بالألوان مثلما عملت في الملف الثاني وشكراً

[الجزيرة]

أخي القدير عادل

مشاركتك رقم 5 رائعة

وفي رأيي لو يكون الالغاء للمكرر بحذف السطر كاملا لكان أفضل

بارك الله فيك

[adam13]

عندى فى اوفيس 2007 طريقة سهلة من التنسيق الشرطى

[عادل حنفي]

السلام عليكم

اخي عاشق ترابها

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

For i = 1 To 1000 'من الصف الاول ال الالف
Cells(i, 1).Select 'حدد الخليه الاولي
If Selection > "0" Then 'اذا كانت اكبر من صفرا
For ii = i + 1 To 1000 'المقصود هنا تسمية الصفوف مرة اخري للبحث عن الخلية المساوية للخليه المحددة سابقا
If Cells(i, 1) = Cells(ii, 1) Then 'اذا كانت الخلية الاولي تساوي اي خليه اخري
Cells(i, 1).Interior.ColorIndex = 35 'لون خلفية الخلية الاولي يتم تغيره الي هذا اللون
Cells(ii, 1).Interior.ColorIndex = 35 'لون خلفية الخلية الثانية يتم تغيره الي هذا اللون
End If
Next
End If
Next
For n = 1 To 1000 'نفس الشئ للعمود الثاني
Cells(n, 2).Select
If Selection > "0" Then
For nn = n + 1 To 1000
If Cells(n, 2) = Cells(nn, 2) Then
Cells(n, 2).Interior.ColorIndex = 35
Cells(nn, 2).Interior.ColorIndex = 35
End If
Next
End If
Next

اخي العزيز الجزيرة

اشكرك علي كلماتك

اما بخصوص ما طرحته

وفي رأيي لو يكون الالغاء للمكرر بحذف السطر كاملا لكان أفضل

ممكن طبعا ان يتم ذلك و لكني افترضت هنا و ده طبعا حسب المطلوب الاساسي

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

التشابه في الرقم فقط او العكس

خالص تحياتي

[عاشق ترابها]

السلام عليكم

اخي عاشق ترابها

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

For i = 1 To 1000 'من الصف الاول ال الالف
Cells(i, 1).Select 'حدد الخليه الاولي
If Selection > "0" Then 'اذا كانت اكبر من صفرا
For ii = i + 1 To 1000 'المقصود هنا تسمية الصفوف مرة اخري للبحث عن الخلية المساوية للخليه المحددة سابقا
If Cells(i, 1) = Cells(ii, 1) Then 'اذا كانت الخلية الاولي تساوي اي خليه اخري
Cells(i, 1).Interior.ColorIndex = 35 'لون خلفية الخلية الاولي يتم تغيره الي هذا اللون
Cells(ii, 1).Interior.ColorIndex = 35 'لون خلفية الخلية الثانية يتم تغيره الي هذا اللون
End If
Next
End If
Next
For n = 1 To 1000 'نفس الشئ للعمود الثاني
Cells(n, 2).Select
If Selection > "0" Then
For nn = n + 1 To 1000
If Cells(n, 2) = Cells(nn, 2) Then
Cells(n, 2).Interior.ColorIndex = 35
Cells(nn, 2).Interior.ColorIndex = 35
End If
Next
End If
Next

اخي العزيز الجزيرة

اشكرك علي كلماتك

اما بخصوص ما طرحته

وفي رأيي لو يكون الالغاء للمكرر بحذف السطر كاملا لكان أفضل

ممكن طبعا ان يتم ذلك و لكني افترضت هنا و ده طبعا حسب المطلوب الاساسي

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

التشابه في الرقم فقط او العكس

خالص تحياتي

مشكور أخي الكريم وبصراحه لا علم لي بالأكواد ولا البرمجة لكن أنا بأقول لك حاجتي لهذه الطريقة

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

[عادل حنفي]

السلام عليكم

اخي عاشق ترابها

ارسل ملفا اخي مماثلا في الشكل للملف الاصلي بالضبط به

عدة بيانات بسيط للتجربة عليه و يتم عمل كود للمدي الذي تريد

مع شرح كافة ماتريد لتجهيزه لك ليساعدك علي انجاز عملك علي اكمل وجه

تحياتي

[عاشق ترابها]

السلام عليكم

اخي عاشق ترابها

ارسل ملفا اخي مماثلا في الشكل للملف الاصلي بالضبط به

عدة بيانات بسيط للتجربة عليه و يتم عمل كود للمدي الذي تريد

مع شرح كافة ماتريد لتجهيزه لك ليساعدك علي انجاز عملك علي اكمل وجه

تحياتي

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

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

[عاشق ترابها]

للأسف يرفض رفع الملف عن طريق الموقع

تم تعديل فبراير 14, 2009 بواسطه عاشق ترابها

[عاشق ترابها]

هذا رابط للبرنامج

http://www.zyzoomup.com/view.php?file=4e90ab25fc

تم تعديل فبراير 14, 2009 بواسطه عاشق ترابها

[عادل حنفي]

السلام عليكم

اخي لم استطع تحميل الملف لاني لم استطع الدخول علي الرابط اصلا

حاول مرة اخري حتي لو رفعته علي ايميلي

تحياتي

[عاشق ترابها]

أخوي أنا أسف جداً يبدو لي أن هناك مشكلة في الأنترنت في السعودية عموماً

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

[نزار سليمان عيد]

السلام عليكم

بعد اذنكم تم تنزيل الملف من الموقع وتحميله هنا

مع الشكر

ابو خالد

_______________.rar

[عاشق ترابها]

السلام عليكم

بعد اذنكم تم تنزيل الملف من الموقع وتحميله هنا

مع الشكر

ابو خالد

مشكور أخوي نزار فعلاً هذا هو الملف أخوي aah

[عاشق ترابها]

أخوي aah لازلت بإنتظارك

[عادل حنفي]

السلام عليكم

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

اخي عاشق ترابها

مرفق ملفان اختار منهما نا يناسبك

و اخبرني النتيجة

تحياتي

_______________.rar

_______________2.rar

تم تعديل فبراير 17, 2009 بواسطه aah_aah2008

[عاشق ترابها]

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

[عادل حنفي]

السلام عليكم

اخي العزيز عاشق ترابها

طبعا يمكن ذلك طالما تحتاجه في عملك

مرفق ملف بالمطلوب

تحياتي

_______________3.rar

[عاشق ترابها]

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

_______________.rar