MinhCong
Thành viên gắn bó
- Tham gia
- 28/5/09
- Bài viết
- 1,645
- Được thích
- 1,806
- Nghề nghiệp
- Xây dựng Cầu đường
Khi mở Form hỗ trợ nhập liệu lên, trong ô Tìm theo tên, Tôi muốn nhập chữ "Đ" hoặc "Đào" thì nó chờ hơi lâu và màn hình nháy nháy, các Anh, Chị có hướng nào giúp cho nó bớt nháy và tìm kiếm nhanh hơn không? Đoạn code của nó như sau:
Mã:
Private Sub TextBox1_Change()
Dim Clls As Range, Temp As Variant, i As Long
Application.ScreenUpdating = False
ListBox1.RowSource = ""
With Sheets("Capnhat").Range(Sheets("Capnhat").[B3], Sheets("Capnhat").[D65536].End(xlUp))
Temp = .Value
.Sort .Cells(2, 2), 1, Header:=xlGuess
.AutoFilter 2, IIf(Len(Trim(TextBox1.Value)) = 0, "=", TextBox1.Value & "*")
ListBox1.Clear
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)
Cells(ActiveCell.Row, 2) = "=COUNTIF(R5C4:RC[2],RC[2])&RC[1]"
Cells(ActiveCell.Row, 11) = "=RC[-7]&RC[-3]"
i = i + 1
Next
.AutoFilter
.Value = Temp
End With
Application.ScreenUpdating = True
End Sub