سرچ در لیست کشویی

[sahar_1427]

سلام من یه لیست کشویی از نام و نام خانوادگی ها ساختم. و سلولهای کناریش رو با تابع vlookup به این سلول مرتبط کردم و میتونم با انتخاب نام و نام خانوادگی اطلاعات اون سلولها را پیدا کنم
حالا سوالم اینه که وقتی تعداد اسامی خیلی زیاد باشن
و چشمی نشه پیدا کرد نام مورد نظر رو
در حالت کشویی امکان جستجو نداریم؟
مثل حالت فیلتر که سرچ داره

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

[Javid Mokhtari]

سلام من یه لیست کشویی از نام و نام خانوادگی ها ساختم. و سلولهای کناریش رو با تابع vlookup به این سلول مرتبط کردم و میتونم با انتخاب نام و نام خانوادگی اطلاعات اون سلولها را پیدا کنم
حالا سوالم اینه که وقتی تعداد اسامی خیلی زیاد باشن
و چشمی نشه پیدا کرد نام مورد نظر رو
در حالت کشویی امکان جستجو نداریم؟
مثل حالت فیلتر که سرچ داره

با سلام.

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

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

[iranweld]

با سلام

در فایل پیوست شما کافیست در سلول A2 یک یا چند حرف اول نام طرف را تایپ کنید مثلا با تایپ حرف ف در منوی کشویی هر اسمی که ابتدای آن با ف شروع شود لیست میگردد

Sub TEST()

Dim CELL, XX, RNG As Range

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

Z2 = Sheet1.Cells(Sheet1.Rows.Count, "H").End(xlUp).Row

Sheet1.Range("H2:H" & Z2).ClearContents

K = 2
XX = Sheet2.Range("A2").Value

Set RNG = Sheet1.Range("A2:A" & Z1)

For Each CELL In RNG

If Len(XX) > 0 And XX = Left(CELL, Len(XX)) Then

Sheet1.Range("H" & K) = CELL

K = K + 1

End If

Next

End Sub 

[amir_ts]

با سلام

همانطور که استاد ارجمند جناب jansiz hayat فرمودند در حالت لیست کشویی این امکان وجود نداره ولی با استفاده از combo box و ستون کمکی میشه به نتیجه دلخواه شما رسید.

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

[amir_ts]

با سلام

برای ایجاد لیست کشویی با قابلیت جستجو ما به سه مرحله پردازش نیاز داریم:

1-تنظیمات combo box از ActiveX Controls
2-پردازش اطلاعات لیست
3-استفاده از یک کد کوتاه vba در قسمت کد نویسی


ابتدا از تب Developer از برگه insert یک combo box به شیت اضافه میکنیم.


با کلیک راست بر روی combo box و انتخاب گزینه properties موارد زیر را بر روی combo box انجام میدهیم :
قسمت AutoWordSelect را برابر با false قرار میدهیم.
LinkedCell را برابر آدرس مورد نظر که قراره لیست در آن نمایش داده شود قرار دهید . ( درفایل نمونه توضیحی سلول a3 میباشد)
در قسمت ListFillRange یک نام قرار بدید مثلا DropDownList ( توجه داشته باشید در قسمت name manager با همین نام باید محدوده ای پویا را نامگذاری کنیم.)
در قسمت MatchEntry گزینه 2 – fmMatchEntryNone را انتخاب کنید.





به شیت لیست اسامی بر میگردیم .

در اولین ستون کمکی (h) ابتدا با استفاده از فرمول

=--ISNUMBER(IFERROR(SEARCH(Sheet4!$A$3;A2;1);"")) 

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

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

      =IF(H2=1;COUNTIF($H$2:H2;1);"") 

در ستون سوم کمکی (j) با استفاده از این فرمول تمام موارد یافته شده رو لیست میکنیم.

=IFERROR(INDEX($A$2:$A$33;MATCH(ROWS($I$2:I2);$I$2:$I$33;0));"") 

ستون سوم لیست اصلی ماست که باید نمایش داده بشه که با استفاده از name mangerو انتخاب نام DropDownList (دقیقا نامی که در combo box قرار داده شد) و قرار دادن محدوده پویای آن در قسمت Refers to که در این فایل نمونه توضیحی محدوده زیر میباشد.

=$J$2:INDEX($J$2:$J$33;MAX($I$2:$I$33);1) 

و در آخر یک کد کوتاه vba رو باید در قسمت کد نویسی شیتی که combo box در آن قرار داره بنویسید.

Private Sub ComboBox1_Change()
ComboBox1.ListFillRange = "DropDownList"
Me.ComboBox1.DropDown
End Sub

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

[rjfri]

با سپاس از دوست و استاد عزیز iranweld
چنانچه بخواهیم همین امر در کل ردیفها انجام بشه به چه صورت باید عمل کرد
در فایل ارسالی شما تنها برای ردیف 2 عملی میباشد
لطفا راهنمایی بفرمایید
با سپاس مجدد

[iranweld]

با سلام

کدهای فایل را برای سرچ اصلاح کنید

Sub TEST()

Dim CELL, XX, RNG As Range

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

Z2 = Sheet1.Cells(Sheet1.Rows.Count, "H").End(xlUp).Row

Sheet1.Range("H2:H" & Z2).ClearContents

Sheet2.Range("b2").ClearContents

K = 2

XX = Sheet2.Range("A2").Value

Set RNG = Sheet1.Range("A2:f" & Z1)

For Each CELL In RNG

If InStr(CELL, XX) = 1 Then

Sheet1.Range("H" & K) = CELL

K = K + 1

End If

Next

Sheet2.Range("b2") = Sheet1.Range("H2")

End Sub 

[rjfri]

سپاسگزارم

[rjfri]

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

[حسن فتاحی]

با سلام
فیلم آموزشی در این خصوص موجود نیست؟