ایجاد فرم با امکان جستجوی موارد تایپ شده و ذخیره آن در لیست

نویسنده niksirat2030, 28 آگوست 2022, 07:03

« قبلی - بعدی »

niksirat2030

سلام به همه دوستان.

یک لیست از نام دانش آموزان در Table1 در برگه DATA از قبل تایپ شده است.

من یک فرم طراحی کردم طوری که بعد از وارد کردن آیتمها و زدن دکمه Save آن اطلاعات در یک جدول در برگه DATA ذخیره شود. ولی اشکالاتی دارد که نمیتوانم آنها را حل کنم.


  •     اگر دانش آموز جدیدی در "new student" وارد شد نام وارد شده با نامهای موجود مقایسه و در صورت تکراری نبودن به انتهای ستون اول Table1 اضافه شود. در صورت تکراری بودن پیغام خطا دهد.
  •     ستون اول Table1 به طور اتوماتیک به عنوان لیست کومبوباکس cmbNameSTU در نظر گرفته شود.
  •     در صورت تایپ کردن نام دانش آموز در "Name" (و نه انتخاب آن از لیست) وقتی دکمه Save زده شد نام تایپ شده با موارد موجود مقایسه و در صورت نبودن در لیست پیغام خطا دهد.
  •     در حین تایپ در "Name"، کومبو باکس باز شده و مواردی که با کاراکتر تایپ شده شروع میشوند اتوماتیک ظاهر شود.

Worksheet-Form_base.xlsm

Shahabsoltani1

حلقه بنویسید که شمارنده آن سلول های حاوی اسامی را در بر گیرد
داخل حلقه یگ شرط بنویسید که اگر محتوای درون تکست باکس با هریک از اسامی یکی بود بهتون پیام بده
من کد می نویسم شما با شرایط خودتون کاستامایز کنید
Dim rng As Range
Set rng = sheet4.Range("A1:A100")
For Each data In rng
i=i+1
IF rng.Cells(i).text=Sheet1..textbox.text  Then
MsgBox "اطلاعات تکراری"
End IF
Next data

این کدها رو زیر دکمه ثبت قبل از هر کدی قرار بدید
موفق باشید