[حل شده] مشكل در ليست باكس

[zxcvbn]

سلام وقت بخير
يه مشكلي توي بخش ليست باكس دارم
ليست باكس من قابليت جستجوي كلمه داره و دستور جستجو توش نوشته شده
الگوي دستوريش هم از همين انجمن گرفتم
اما فقط تا ده تا ستون از اكسل رو جواب ميده و من نميتوتن ليست باكس بيشتر از ده ستون داشته باشم كه قابليت جستجوي كلمه در ليست هم داشته باشه
يعني با اين دستوري كه من نوشتم نميشه
لطفا اگر دستور ديگه اي وجود داره يا همين قابل اصلاح هست راهنمايي كنيد
من يه فايل PDF از شرح كار خودم و يه فايل Note از دستور vba رو ضميمه ميكنم

[ali.b]

سلام وقت بخير
يه مشكلي توي بخش ليست باكس دارم
ليست باكس من قابليت جستجوي كلمه داره و دستور جستجو توش نوشته شده
الگوي دستوريش هم از همين انجمن گرفتم
اما فقط تا ده تا ستون از اكسل رو جواب ميده و من نميتوتن ليست باكس بيشتر از ده ستون داشته باشم كه قابليت جستجوي كلمه در ليست هم داشته باشه
يعني با اين دستوري كه من نوشتم نميشه
لطفا اگر دستور ديگه اي وجود داره يا همين قابل اصلاح هست راهنمايي كنيد
من يه فايل PDF از شرح كار خودم و يه فايل Note از دستور vba رو ضميمه ميكنم

سلام
این کد رو اضافه کنین

Private Sub UserForm_Activate()
Dim arrLstBox(1 To 10, 1 To 18)
 Me.ListBox1.List = arrLstBox()
End Sub

اون 18 رو می تونید کم یابیشتز کنید

[zxcvbn]

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

[ali.b]

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

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

[Amir Ghasemiyan]

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

دوست عزيز لطفا اگر جواب سوالتون رو دريافت كردين تاپيك رو حل شده كنيد