maytinhvp01
Thành viên thường trực




- Tham gia
- 27/7/13
- Bài viết
- 390
- Được thích
- 179
Chào các bạn! Mình đang tìm hiểu về phần tìm kiếm dữ liệu trong listbox, lên diễn đàn copy được một code cũng khá hay nhưng mình không hiểu đôi dòng code trong đó, ai biết giúp mình ý nghĩa hoạt đọng của nó được không?
Phần bôi màu đỏ ấy mình chẳng hiểu chút nào. Gúp mình hiểu nốt chỗ đó????
Mã:
Private Sub TextBox1_Change()
Dim Clls As Range, Temp As Variant, i As Long
Application.ScreenUpdating = False
ListBox1.RowSource = ""
If Len(Trim(TextBox1.Value)) = 0 Then Exit Sub
With Sheet1.Range(Sheet1.[A1], Sheet1.[C65536].End(xlUp))
Temp = .Value
.Sort .Cells(2, 2), 1, Header:=xlGuess
.AutoFilter 2, TextBox1.Value & "*"
ListBox1.Clear
[COLOR=#ff0000]For Each Clls In .Offset(1).Resize(, 1).SpecialCells(12)
ListBox1.AddItem (Clls)
ListBox1.List(i, 1) = Clls(, 2)
ListBox1.List(i, 2) = Clls(, 3)
i = i + 1
Next[/COLOR]
.AutoFilter
.Value = Temp
End With
Application.ScreenUpdating = True
End Sub