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

[skyblue]

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

اخواني الاعزاء :

اريد كود يعطيني رسالة تنبيهية بوجود فراغ او اسم او عدد مكرر .فمثلا عند التسجيل قد لااسجل شيئا في أحد الخلايا سهوا او يتم التسجيل بالتكرار .المدى ( a1:a12)

على ان يكون مضمون الرسالة كالاتي :

اذا الخلية فارغة الرسالة تخبرني بذلك .اما اذا العدد مكرر فتخبرني بذلك مع امكانية الاستمرار او التعديل .

يحفظكم الله :(

[m.hindawi]

السلام عليكم

هذا الملف قد يؤدي الغرض اذا كان هناك اي ملاحظة

الرجاء المراجعة

الملف على الرابط التالي

http://www.officena.net/ib/index.php?act=A...pe=post&id=1759

[skyblue]

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

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

وشكرا

[m.hindawi]

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

لقد حملت الملف اكثر من مرة

الملف من النوع المضغوط يجب ان يكون لديك برنامج WINRAR لفك الضغط

تم تعديل مارس 17, 2005 بواسطه m.hindawi

[y_mom2003]

عند حل جديد

For a = 1 To Target.Row - 1

TEST = Cells(a, Target.Column).Value

If IsNull(Target.Value) Then

Else

If (Target.Value) = TEST Then

MsgBox "ÞíãÉ ãßÑÑÉ"

Cells(Target.Row, Target.Column).Select

With Selection.Interior

.ColorIndex = 3

.Pattern = xlSolid

End With

Cells(a, Target.Column).Select

With Selection.Interior

.ColorIndex = 3

.Pattern = xlSolid

End With

End If

End If

Next