جستجوی کلمه و امکان درج در سلول

[ناصر خان خان]

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

ممنون و متشکرم

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

[iranweld]

با سلام


توضیحات شما کامل نیست

در کدوم سلول درج بشه؟
یکی از اسمها درج بشه یا تمام اسمی تکراری مشابه درج بشه

[ناصر خان خان]

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

ممنون و متشکرم

با سلام خدمت اساتید و دوستان بزرگوار
کسی نیست که جواب و بده زمان زیادی گذشت. خواهشا اگه میتونید کمک کنید.

[misammisam]

با سلام
البته شما همه کارو انجام دادید ، فکر کنم فقط تو قسمت ثبتش درون سلول مشکل دارید .
یک فایل میزارم که تقریبا شبیه کاری که خودتون کردید ، فقط به قسمت ListBox1_DblClick که کدشو براتون میزارم بیستر دقت کنید تا نتیجه بهتری بگیرید .

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
a = find_roznameh.ListBox1.ListCount - find_roznameh.ListBox1.ListIndex
ActiveCell.Value = find_roznameh.ListBox1.List(find_roznameh.ListBox1.ListCount - a, 1)
Unload Me
End Sub 

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

موفق باشید

[Javid Mokhtari]

با سلام خدمت اساتید و دوستان بزرگوار
کسی نیست که جواب و بده زمان زیادی گذشت. خواهشا اگه میتونید کمک کنید.

ینی 3 هفته س که سئوال شما بدون پاسخ مونده...!!!!؟

ضمن تشکر از برادر گرامی misammisam که واقعا جوووور مارو کشیدن.... ممنون برادر

البته از برادر دیگرمون iranweld هم تشکر میشه قبلا پیگیر بودن.

آقای ناصر اگر هنوز به جوابتان نرسیدین بگین تا پاسخهای مدنظر شما داده شود

[amirghadiri]

با سلام خدمت همه دوستان خصوصآ اساتید محترم
در پست 4 فایل پیوست دوست عزیز اقای misammisam چنانچه در شیت دیتابیس تکراری بود در لیست باکس بدون تکراری نشان بده
و در لیست باکس هم فقط نام مورد جستجو باشد یعنی شماره ردیف نام جستجو نباشد.
با تشکر از دوستانی که جواب میدن.

[Javid Mokhtari]

با سلام خدمت همه دوستان خصوصآ اساتید محترم
در پست 4 فایل پیوست دوست عزیز اقای misammisam چنانچه در شیت دیتابیس تکراری بود در لیست باکس بدون تکراری نشان بده
و در لیست باکس هم فقط نام مورد جستجو باشد یعنی شماره ردیف نام جستجو نباشد.
با تشکر از دوستانی که جواب میدن.

با سلام.

شما میتوانید کد مربوط به حلقه DO را با کد زیر جایگزین کنید:

        Do
        If WorksheetFunction.CountIf(Sheet2.Range("a2", C.Address), C.Value) = 1 Then
           find_roznameh.ListBox1.AddItem C
            find_roznameh.ListBox1.List(find_roznameh.ListBox1.ListCount - 1, 0) = C.Value
        End If
        Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address <> firstAddress 

البته من نمیدانم دقیقا خواسته شما چیست فقط برای حذف تکراری ها تغییر دادم و ممکنه تو فایل پیوستی مشکل ایجاد کند.

[amirghadiri]

تشکر از دوست عزیز jansiz hayat خواسته من در یه فرمی بزرگ جهت ثبت نام مشتری در لیست پیدا کرده حالا اسامی تکراری زیاد هستن ولی شماره همراه هم با اسا

[Javid Mokhtari]

تشکر از دوست عزیز jansiz hayat خواسته من در یه فرمی بزرگ جهت ثبت نام مشتری در لیست پیدا کرده حالا اسامی تکراری زیاد هستن ولی شماره همراه هم با اسا

خب برادر فایل خودتون رو پیوست کنین...

[ناصر خان خان]

با سلام
البته شما همه کارو انجام دادید ، فکر کنم فقط تو قسمت ثبتش درون سلول مشکل دارید .
یک فایل میزارم که تقریبا شبیه کاری که خودتون کردید ، فقط به قسمت ListBox1_DblClick که کدشو براتون میزارم بیستر دقت کنید تا نتیجه بهتری بگیرید .

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
a = find_roznameh.ListBox1.ListCount - find_roznameh.ListBox1.ListIndex
ActiveCell.Value = find_roznameh.ListBox1.List(find_roznameh.ListBox1.ListCount - a, 1)
Unload Me
End Sub 

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

موفق باشید

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