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

[accountant_mostafa]

برجاء اريد من الاخوة الافاضل في عمل تنسيق بحيث في حالة ادخال قيم مكررة في نفس العمود يقوم البرنامج بتنيهي علي ان هذة القيمة مكررة ويقوم البرنامج بتوجية للقيمة الاصلية والمكررة

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

وجزاكم الله كل خير

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

جرب المرفق

ان شاء الله هذا ما تريده

منع التكرار في عمود.rar

[هشام شلبى]

السلام عليكم

=====

اخى عبدالله

بارك الله فيك وكل عام وانتم بخير

الاخ accountant_mostafa

على نفس ملف اخى عبدالله اضفت لك فى التنسيق الشرطى للعمود A

=COUNTIF($A$1:$A$1000;A1)>1

ليشير اليك باللون للقيمة الاصلية المكررة

فمثلا عند كتابة العدد 1 فى الخلية A7 والضغط علة ENTER راقب ما يحدث

منع التكرار في عمود.rar

[ياسر الحافظ]

الاساتذة / : الخبير عبد الله المجرب " ابو احمد " - المشرف هشام شلبي

شكرا وفقكم الله

ياسر الحافظ " ابو الحارث "

[MAHMOUD ALI YOUSSEF]

السلام عليكم

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

وتقبلوا مروري

[edkawy]

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

الاخوة الكرام

جزاكم الله خير على مجهودكم و جعله فى ميزان حسناتكم , و لكن لى رجاء اذا تكرمتم

انا مش عارف اعمل كوبى للمعادلة فى الملف المرفق على الملف بتاعى , ومش عارف بردة ازاى ممكن اعرف مكان القيمة المكررة فى نفس العمود

برجاءالاجابة اذا تكرمتم

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

[إبراهيم محمد]

معادله منع التكرار.rarاسمحو لى بالمشاركه بعد اذن الاستاذة الافاضل فقط للتوضيح

الاخ العزيز ستجد معادله منع التكرار فى ملف الاستاذ عبد الله المجرب من خلال الدخول الى data validation كما بالصورة المرفقه

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

[edkawy]

الاخ العزيز

جزاك الله خير على ردك السريع , بس الالمعادلة شغالة لو حاولت اكتب نفس القيمة و مش شغالة اذا عملت كوبى

اللى انا محتاجة فى الملف بتاعى , لما اكتب او اعمل كوبى لأى قيمة تكون موجودة مسبقا فى نفس العمود تدينى تنبية ان نفس القيمة موجودة قبل كدة و ممكان وجودها مثلا فى الصف رقم كذا او الخلية رقم كذا

ااتمنى ان المطلوب يكون واضح و جزاكم الله خير مسبقا

[وليد المصرى 1]

للرفع

[رجب جاويش]

تفضل أخى

جرب هذا الكود فى حدث الصفحة

Private Sub Worksheet_Change(ByVal Target As Range)

Dim LR As Integer, cl As Range, cll As Range

LR = [A1000].End(xlUp).Row

'==========================================================

If Target.Count > 1 Then Exit Sub

If Target.Column <> 1 Or Target = "" Then Exit Sub

For Each cl In Range("A2:A" & LR)

If Application.WorksheetFunction.CountIf(Range(Cells(cl.Row, 1), Cells(LR, 1)), cl) > 1 Then

For Each cll In Range("A2:A" & LR - 1)

If Target = cll Then

arr = arr & cll.Address & ","

End If

Next

m = MsgBox("هذا الاسم مكرر فى الخلية" & Chr(10) & arr & Chr(10) & "هل تريد السماح بتكرار هذا الاسم", vbYesNo, "اسم مكرر")

If m = vbYes Then Exit Sub

Target = "": Target.Select: Exit Sub

End If

Next

End Sub

منع تكرار الاسم.rar

[edkawy]

الاستاذ الكريم / رجب جاويش

بارك الله فيك على مجهودك و اهتمامك بالموضوع , هو دة فعلا اللى محتاجة هنا

بس اسمحلى اطلب من حضرتك اذا امكن تعديل الكلام من العربى ليكون بالانجليزى عشان الشغل او ان امكن حضرتك تقوللى الطريقة و انا احاول

مثلا انا محتاج مكان ( هذا الاسم مكرر فى الخلية ) انه يكون ( Same Value Available in Cell )

و بدلا من هل تريد السماح بتكرار هذا الاسم ) انه يكون ( Repeat Same Value again)

, و بدلا من ( اسم مكرر ) انه يكون ( Repeated Value )

بارب اكون عرفت اوصل لحضرتك المطلوب و جزاك الله خير على مجهودك

محمد سعد

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

السلام عليكم

بعد إذن الاستاذ رجب

هذا اختصار للكود واضافة نص الرسالة باللغة الانجليزية

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A2:A" & [A1000].End(xlUp).Row)) Is Nothing Then

If Application.CountIf(Range("A2:A" & [A1000].End(xlUp).Row), Target) > 1 Then

If MsgBox("Same Value Available in Cell" & Chr(10) & arr & Chr(10) & "Repeat Same Value again", vbYesNo, "Repeated Value") = vbYes Then Exit Sub

Target = "": Target.Select: Exit Sub

End If

End If

End Sub

[رجب جاويش]

أخى وأستاذى الحبيب / عبد الله المجرب

تسلم الأيادى وتسلم الابداعات أستاذى الحبيب

[اسلام سيد]

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

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

تقبلوا مرورى اخوكم اسلام

تم تعديل يناير 21, 2013 بواسطه إسلام الشيمي

[edkawy]

الاستاذ عبد الله المجرب /

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

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

[edkawy]

للرفع

[ahmedmostafa]

ممكن حل مشكلة عدم تكرار البيانات في نماذج جوجل

الرجاء الرد

[ياسر 2005]

نرجو من الاخوه و الساده الاعضاء عند وضع مثل هذه الامثله ان يوضحو لنا طريقه اعداد هذه الامثله  و ليس وضع المثال فقط لان عند فتح المثال لا تظهر طريقه الاعداد

و نشكركم علي مجهودااكم الرائعه في المتدي

لان التعلم  عن طريق الخطوات افضل من الامثله و شكرا

[اسلام سيد]

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

تم تعديل مارس 11, 2014 بواسطه إسلام الشيمي

[Ahmed.Fayed]

مشكور جداً على الفكرة دي 

جميلة جداً :)