ببینید ابزار find هم همینه. باید بزنید س*. اینطوری هرچی با س شروع میشه می بینید.
اما اگر می خواید با کد وی بی پیش برید.مراحل زیر رو باید طی کنید:
یک فرم میذارید.textbox و یکlistbox میذاریدحالا باید چیزی که توی تکست باکس می نویسید و سرچ کنید توی محدوده مورد نظر. اگر پیداش کرد بیاد و توی لیست باکس نشون بده
کد زیر رو می نویسید:
کد:
For Each d In Sheet1.Range("a1:a120
k = Len(TextBox3.Text)
If UCase(Left(d, k)) = UCase(TextBox3.Text) Then
ListBox1.ColumnCount = 3
ListBox1.AddItem d.Offset(0, 1)
ListBox1.List(ListBox1.ListCount - 1, 1) = d.Offset(0, 2)
ListBox1.List(ListBox1.ListCount - 1, 2) = d.Offset(0, 3)
End If
Next
مراحل زیر رو انجام بدید. هرجا به مشکل خوردید سوال بپرسید.
علاقه مندی ها (Bookmarks)