جلوگیری از ثبت اطلاعات تکراری

[aliooali]

با سلام خدمت شما اساتید محترم


من یه مشکلی دارم و اونم اینه که وقتی اطلاعات رو وارد میکنم امکان داره بعضا اطلاعاتی که میخوام ذخیره کنم تکراری باشه

من میخوام اگر اطلاعات تکراری بودش یه پیغام بده که اطلاعات تکراری هستش


با تشکر

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[majid_mx4]

با سلام

لطفا یک فایل نمونه ارسال نمایید.


با تشکر میر

[aliooali]

http://forum.exceliran.com/showthrea...8C%D8%B3%DB%8C

توی این صفحه یبار فایل رو آپلود کرده بودم برا یکی از دوستان


با تشکر

[aliooali]

http://forum.exceliran.com/showthrea...8C%D8%B3%DB%8C

توی این صفحه یبار فایل رو آپلود کرده بودم برا یکی از دوستان


با تشکر

[majid_mx4]

با سلام

دوست عزیز
لطفا بفرمایید چه چیزی مد نظر شماست کدام ستون اگر تکرار یود جلوگیری کند .


موفق باشید میر

[iranweld]

با سلام

ستون مورد نظر را انتخاب کنید و مراحل تصویر پیوست را انجام دهید

[aliooali]

دوست عزیز این تصویر شما برای توی خود اکسل عالیه

ولی من میخوام توی ماکرو نویسی ازش استفاده کنم

ممنون میشم

با تشکر

[aliooali]

دوست عزیز من میخوام توی بخش های

نام و نام خانوادگی - مبلغ

این کارهایی رو که گفتن انجام بدم


با تشکر

[امين اسماعيلي]

با درود
اگر با کد بخوای انجام بدی قبل از اینکه ثبت اطلاعات انجام بشه . راه های گوناگونی وجود داره مثل حلقه و توابع خود اکسل. به نظرم برا شما countif راحت تره. مثلا شما توی فرمتون یا هر جا اسمی رو داری وارد میکنی( هر چند ترجیح میدم به جای اسم به هر فرد یه کد پرسنلی منحصر به فرد داده بشه) با این تابع اول تعدادش رو میشمری اگر برار یک بود یعنی قبلا هست . پس ادامه نمیده و یه پیام هم مبنی بر تکراری میده و از برنامه کلید ثبتتون میاد بیرون. اگرم نه که ادامه کد ها انجام میشه. جای این چک کردن هم میشه تو خطوط اول برنامه قبل از ثبت اطلاعات. فرض کنین شما توی ستون A کلی اسم دارین. اول باید ببینیم تا کجا اسم وارد شده واسه راحتی کار. و بعد مثلا میخواین ببینین اسمی که تو سل B1 نوشته شده تو این ستون هست یا نه پس داریم.

Private Sub CommandButton1_Click()
Dim n
n = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
If Application.WorksheetFunction.CountIf(Sheet1.Range("A1:A" & n), Sheet1.Range("B1")) = 1 Then
MsgBox "duplicate name! sorry we cannot continue with this name"
Exit Sub
End If
'''''''''''
'' your codes if the name was not exist before should be written here

End Sub

حالا این کد رو تو فایل خودت میتونی به سلیقه خودت اصلاح کنی و به کار ببری

[majid_mx4]

با سلام

و کسب اجازه از دوست و استاد محترم جناب اسماعیلی عزیز

لطفا فایل ضمیمه را بررسی نمایید.

خلاصه : کنترل ثبت دوستون

توضیح : از انجایی که فایل ضمیمه شما هنگام ذخیره خطا می گرفت یک دکمه بنام Check روی یوزر فرم اضافه کردم و کافیست آن را قبل از دستورات خود فراخانی کنید .

ولی برای امتحان دستورات بعد از وارد کردن نام و مبلغ و یا انتخاب از طریق Listbox ( وقتی تکست باکس های مربوطه پر شد ) دکمه Check را فشار دهید .
موفق باشید میر