جستجو انتخاب با listbox

[sma4727134]

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


For i = 1 To K1

ListBox1.List(ListBox1.ListCount - 1, i) = Cells(CELL.Row, K1 - i + 1)

Next i

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

[sma4727134]

دوستان در صورت امکان کمک کنید و ضمنا هدف از استفاده از دستور بالا چیست

[majid_mx4]

با سلام

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

توضیح : دستور بالایی که شما نوشته اید ایراد دارد چون K1 یک متغییر است وقتی اعتبار پیدا میکند که برای آن مقداری تعریف شده باشد مثلا K1 معادل 10 باشد یا K1 معادل شمارش تعداد ردیف ها باشد.

مثلا :

K1 = .Range("A" & .Rows.Count).End(xlUp).Row

[sma4727134]

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

[sma4727134]

من از مطالبی که دوستان قبلا گذاشته بودند لیست باکس با قابلیت جستجوو انتخاب پیدا کردم و انرا با جدولم که دارای 14 ستون می باشد منطبق نمودم ولی متاسفانه مثل اینکه لیست باکس قابلیت بیش از 10 ستون را ندارد ایا امکانش هست که تعدا ستونهای لیست باکس را افزایش داد

[sma4727134]

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

[sma4727134]

امکان اضافه کردن بیش از 10 ستون در لیست باکس هست