Em có viết một đoạn code để tìm kiếm dữ liệu theo họ và tên và hiện dữ liệu lên ListBox tại Page (Bieu 1), đoạn code như sau (dữ liệu lấy từ sheets("TT_B1") để đưa lên listbox của Page (Bieu 1):
Nhưng code báo lỗi tại dòng ".Clear". Em chưa biết nguyên nhân. Mong Thầy cô, anh chị trong diễn đàn giúp đỡ. sửa hoặc viết lại giúp em được không ? Em cảm ơn!
Vấn đề thứ 2 là em dùng hàm LCase$ để chuyển chữ hoa, nhưng khi chuyển file execl sang máy khác thì lại báo lỗi hàm đó không có trong thư viện là sao ? khắc phục thế nào ?
Mã:
Private Sub txtTimB1_Change()
Dim Arr(), i as Long
With lstDS
.Clear
For i = LBound(Arr, 1) To UBound(Arr, 1)
If InStr(LCase$(Arr(i, 1)), LCase$((txtHoten.Text))) Then
.AddItem Arr(i, 1)
.List(.ListCount - 1, 1) = Arr(i, 2)
.List(.ListCount - 1, 2) = Arr(i, 3)
.List(.ListCount - 1, 3) = Arr(i, 4)
.List(.ListCount - 1, 4) = Arr(i, 5)
.List(.ListCount - 1, 5) = Arr(i, 6)
.List(.ListCount - 1, 6) = Arr(i, 7)
.List(.ListCount - 1, 7) = Arr(i, 8)
.List(.ListCount - 1, 8) = Arr(i, 9)
End If
Next i
End With
End SubVấn đề thứ 2 là em dùng hàm LCase$ để chuyển chữ hoa, nhưng khi chuyển file execl sang máy khác thì lại báo lỗi hàm đó không có trong thư viện là sao ? khắc phục thế nào ?
