خاصیت کلمه یابی در کمبوباکس با نوشتن در آن

[kamyar]

با سلام خدمت دوستان و اساتید محترم

شاید در نرم افزار ها به این خاصیت کمبو باکس بر خورده باشید که شامل یه لیست بلند بالائیست و کاربر با استفاده از نوشتن بخشی از کلمه کلمه هایی که شامل اون حروف میشن رو در کمبو باکس ظاهر میکنه. یه نمونه از اون لیت رو ضمیمه میکنم
ممنون میشم اساتید و دوستان در این مورد بهم کمک کنن.
با تشکر

[Nima]

دوست عزیز کد زیر رو استفاده کنید

Private Sub UserForm_Initialize()


Dim MyCollection As New Collection


    For Each cell In Sheets(1).Range("A2:A32")
        On Error Resume Next
        MyCollection.Add Item:="1", Key:=cell.Text
        If Err.Number <> 457 And cell.Value <> "" Then
            ComboBox1.AddItem cell.Value
            Err.Clear
        End If
    Next cell
End Sub

[Nima]

یک روش دیگه هم اینکه در قسمت properties گزینه Match Entry رو برابر fmMatchEntryFirstLetter قرار بدید در این حالت با تایپ اولین حرف کلمه کلماتی که با اون حرف شروع میشن رو زیر هم میاره و با تایپ مجدد به کلمه بعدی میره.. .