[حل شده] جلوگیری از اعداد تکراری

[gholipoor]

میخواستم ببینم با چ کدی میشه ک از وارد کردن عدد تکراری جلوگیری کرد.
مثلا توی شیت پرسنل
ما یه فرم مخصوص ثبت پرسنل جدید داریم و توی اطلاعاتی ک توش وارد میکنیم کد پرسنلی هم هست
چطور میشه این تکس باکس مخصوص کد پرسنلی رو طوری درست کرد تا مانع بشه از وارد کردن اعداد تکراری
یعنی خودش یه مسیج باکس نشون بده که کد پرسنلی وارد شده وجود داره تغییر دهید

[حسام بحرانی]

جلوگیری از ورود داده های تکراری در اکسل

سلام دوست عزیز
می تونید به تاپیک زیر مراجعه کنید:
جلوگیری از ورود داده های تکراری در اکسل
موفق باشید.

[حسام بحرانی]

Duplicate Data

همچنین از کدی شبیه این هم می تونید در VBA استفاده کنید:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Application.CountIf(Target.EntireColumn, Target.Value) > 1 Then
MsgBox "!کد پرسنلي قبلاً ثبت شده، لطفاً آن را تغيير دهيد"
Application.EnableEvents = False
Target.ClearContents
Target.Select
Application.EnableEvents = True
End If
End Sub 

موفق باشید.

[gholipoor]

ممنون فقط یه توضیح راجب کد میدید چون آنچنان حرفه ای نیستم تو کد نویسی
و این که من یه فرم دارم که توش یه کمندباتون داره به نام ثبت و وقتی ثبت رو میزنم اطلاعاتم توی شیت قرار میگیره

یکم توضیح بدید ممنون میشم

[iranweld]

با سلام

با کسب اجازه از دوست گرامی جناب آقای مهندس بحرانی

در فایل پیوست به ساده ترین روش ممکن با فرم کدنویسی گردید.