[حل شده] جستوجوی تمامی اسامی یکسان با کلمه مورد جستوجو

[hassanmohammadi]

با سلام
ببخشید من میخوام موقعی که یک کلمه رو در فایل اکسل جستوجو میزنم تمامی کلمات مشابه این کلمه رو هم پیدا کنه مثلا:
علیرضا
علی رضا
علــی رضا
عـــلی رضا
علیرضـــــا
علئ رضا
علي رضا
ببینید موقع جستوجو یکی رو پیدا میکنه در صورتی که من میخوام همه این ها رو پیدا کنه کسی میتونه راهنمایی کنه ممنون میشم

[Amir Ghasemiyan]

سلام دوست عزيز
به اين صورت سرچ بفرماييد

*ع*ل*ی*ر*ض*ا*

[hassanmohammadi]

سلام دوست عزيز
به اين صورت سرچ بفرماييد

*ع*ل*ی*ر*ض*ا*

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

[ali.b]

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

سلام در محیط Vba از این روش استفاده کنید

 If TextBox1 <> "" Then
ActiveSheet.Range("b2").AutoFilter field:=1,Criteria1:="*" & TextBox1 & "*"
 End If

[hassanmohammadi]

سلام در محیط Vba از این روش استفاده کنید

 If TextBox1 <> "" Then
ActiveSheet.Range("b2").AutoFilter field:=1,Criteria1:="*" & TextBox1 & "*"
 End If

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

[ali.b]

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

سلام این کد کامل هست شما فایل نمونه رو نذاشتید و پیشنهاد می کنم قبلش کمی در کد نویسی مهارت پیدا کنید در غیر این صورت بازم در ادامه کار به مشکل بر می خورید.
تشکر

[hassanmohammadi]

سلام این کد کامل هست شما فایل نمونه رو نذاشتید و پیشنهاد می کنم قبلش کمی در کد نویسی مهارت پیدا کنید در غیر این صورت بازم در ادامه کار به مشکل بر می خورید.
تشکر

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

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

جستجوی پیشرفته در اکسل

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

سلام دوست عزیز
به انجمن خوش آمدید.

مبحث چستجو در اکسل از مباحث پیشرفته و درعین حال جذاب این نرم افزار هست.

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

این فایل علاوه بر اینکه نیاز به فرمول نویسی پیشرفته در اکسل دارد، همانطور که دوست خوبم علی آقا هم گفتند،

به اندکی آشنایی با محیط کدنویسی در اکسل هم نیاز داره.

لطفاً فایل را بررسی کنید ببینید خواسته شما برآورده میشه؟ سپس با پرسش و پاسخ و با همکاری من و دوستان خوبم آرام آرام روش ساخت اون را یاد بگیرید.
موفق باشید.

[hassanmohammadi]

سلام دوست عزیز
به انجمن خوش آمدید.

مبحث چستجو در اکسل از مباحث پیشرفته و درعین حال جذاب این نرم افزار هست.

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

این فایل علاوه بر اینکه نیاز به فرمول نویسی پیشرفته در اکسل دارد، همانطور که دوست خوبم علی آقا هم گفتند،

به اندکی آشنایی با محیط کدنویسی در اکسل هم نیاز داره.

لطفاً فایل را بررسی کنید ببینید خواسته شما برآورده میشه؟ سپس با پرسش و پاسخ و با همکاری من و دوستان خوبم آرام آرام روش ساخت اون را یاد بگیرید.
موفق باشید.

ببینید من میخوام یه علی رضا جستوجو بزنم همه ی

علیرضا
علی رضا
علــی رضا
عـــلی رضا
علیرضـــــا
علئ رضا
علي رضا

رو در نتیجه اگر بود نمایش بده مثلا یکی نوشته علي رضا یکی نوشته علئ رضا همه این ها رو وقتی علی رضا میزنم عملیات یکسان سازی انجام بده و همه رو نمایش بده

[hassanmohammadi]

ببینید من میخوام یه علی رضا جستوجو بزنم همه ی

علیرضا
علی رضا
علــی رضا
عـــلی رضا
علیرضـــــا
علئ رضا
علي رضا

رو در نتیجه اگر بود نمایش بده مثلا یکی نوشته علي رضا یکی نوشته علئ رضا همه این ها رو وقتی علی رضا میزنم عملیات یکسان سازی انجام بده و همه رو نمایش بده

کسی نظری نداره

[iranweld]

با سلام

در فایل پیوست در قسمت زرد رنگ چهار حرف نام مورد جستجو را به ترتیب وارد کنید و ماکرو را اجرا کنید

Sub test()

Columns("D:D").ClearContents

k = False

Dim list1 As New Collection

Set list1 = Nothing

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To z1

x1 = InStr(Range("A" & i), Range("b1"))


x2 = InStr(x1 + 1, Range("A" & i), Range("b2"))


x3 = InStr(x2 + 1, Range("A" & i), Range("b3"))


x4 = InStr(x3 + 1, Range("A" & i), Range("b4"))


If x1 > 0 Then k1 = True Else k1 = False
If x2 > 0 And x2 > x1 Then k2 = True Else k2 = False
If x3 > 0 And x3 > x2 Then k3 = True Else k3 = False
If x4 > 0 And x4 > x3 Then k4 = True Else k4 = False

If k1 = True And k2 = True And k3 = True And k4 = True Then

list1.Add Range("a" & i)

End If

Next

k = 2

For i = 1 To list1.Count

Range("D" & k) = list1.Item(i)

k = k + 1


Next

End Sub 

[hassanmohammadi]

با سلام

در فایل پیوست در قسمت زرد رنگ چهار حرف نام مورد جستجو را به ترتیب وارد کنید و ماکرو را اجرا کنید

Sub test()

Columns("D:D").ClearContents

k = False

Dim list1 As New Collection

Set list1 = Nothing

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To z1

x1 = InStr(Range("A" & i), Range("b1"))


x2 = InStr(x1 + 1, Range("A" & i), Range("b2"))


x3 = InStr(x2 + 1, Range("A" & i), Range("b3"))


x4 = InStr(x3 + 1, Range("A" & i), Range("b4"))


If x1 > 0 Then k1 = True Else k1 = False
If x2 > 0 And x2 > x1 Then k2 = True Else k2 = False
If x3 > 0 And x3 > x2 Then k3 = True Else k3 = False
If x4 > 0 And x4 > x3 Then k4 = True Else k4 = False

If k1 = True And k2 = True And k3 = True And k4 = True Then

list1.Add Range("a" & i)

End If

Next

k = 2

For i = 1 To list1.Count

Range("D" & k) = list1.Item(i)

k = k + 1


Next

End Sub 

نه دوست عزیز فک کنم من نتونستم منظورمو درست برسونم
سوالم اینه که حروف ئ ي و ــــــــ رو وقتی مثلا در یه فایل هستند مثلا بعنوان مثال علی رضا رو من سرچ میکنم ولی علي رضا رو پیدا نمیکنه من میخوام این رو هم پیدا کنه یا علــی رضا رو هم اگر تو لیست جستوجو شده بود پیدا کنه مرسی در این خصوص کمک کنید

[vahid950]

تجربه بنده اینه که قبل از استفاده کردن از هر کد و تابعی ابتدا نسبت به یکسان سازی حروف (انواع الف ها، ی، ک و ....) با find و replace کردن اقدام کنم.
میشه کدی نوشت که اول این کار رو اتوماتیک انجام بده و سپس جستجو انجام بشه.

[hassanmohammadi]

تجربه بنده اینه که قبل از استفاده کردن از هر کد و تابعی ابتدا نسبت به یکسان سازی حروف (انواع الف ها، ی، ک و ....) با find و replace کردن اقدام کنم.
میشه کدی نوشت که اول این کار رو اتوماتیک انجام بده و سپس جستجو انجام بشه.

دقیقا دوست عزیز همین کلید جواب منه من میخوام یکسان سازی صورت بگیره بعد راحت بشه جستوجو کردمیشه همین کد رو در اختیارم بذارین که محتوای یک فایل اکسل رو یکسان کنه بعد من بتونم جستو جو رو انجام بدم ؟ ممنون میشم خیلی برام مهمه خواهشا

[hassanmohammadi]

حل شد مرسی از همگی