ai giúp mình với... sao của mình bị lỗi type match

[hatinh10101991]

Sub TextBox3_Change()
Dim LastRow As Long
Dim i As Long
Dim y As Long
Dim StringLenght As Long
LastRow = Sheets("BANHANG").Cells(Rows.Count, 3).End(xlUp).Row
StringLenght = Me.TextBox3.TextLength
With Me.ListBox1
.Clear
End With
For i = 16 To LastRow
For y = 1 To Len(Sheets("BANHANG").Cells(i, 3))
If LCase(Mid(Sheets("BANHANG").Cells(i, 3), y, StringLenght)) = TextBox3.Text And TextBox3.Text <> "" Then
With Me.ListBox1
.AddItem Sheets("BANHANG").Cells(i, 2)
.List(ListBox1.ListCount - 1, 1) = Sheets("BANHANG").Cells(i, 3)
.List(ListBox1.ListCount - 1, 2) = Sheets("BANHANG").Cells(i, 4)
End With
End If
Next y
Next i
End Sub

mình lấy textbox3 để tra để cho hiện thị lên listbox1 mà lỗi type match

 

[HieuCD]

Sub TextBox3_Change()
Dim LastRow As Long
Dim i As Long
Dim y As Long
Dim StringLenght As Long
LastRow = Sheets("BANHANG").Cells(Rows.Count, 3).End(xlUp).Row
StringLenght = Me.TextBox3.TextLength
With Me.ListBox1
.Clear
End With
For i = 16 To LastRow
For y = 1 To Len(Sheets("BANHANG").Cells(i, 3))
If LCase(Mid(Sheets("BANHANG").Cells(i, 3), y, StringLenght)) = TextBox3.Text And TextBox3.Text <> "" Then
With Me.ListBox1
.AddItem Sheets("BANHANG").Cells(i, 2)
.List(ListBox1.ListCount - 1, 1) = Sheets("BANHANG").Cells(i, 3)
.List(ListBox1.ListCount - 1, 2) = Sheets("BANHANG").Cells(i, 4)
End With
End If
Next y
Next i
End Sub

mình lấy textbox3 để tra để cho hiện thị lên listbox1 mà lỗi type match

Gởi file bị lỗi lên

Bài đã được tự động gộp: 9/10/21

Sub TextBox3_Change()
Dim LastRow As Long
Dim i As Long
Dim y As Long
Dim StringLenght As Long
LastRow = Sheets("BANHANG").Cells(Rows.Count, 3).End(xlUp).Row
StringLenght = Me.TextBox3.TextLength
With Me.ListBox1
.Clear
End With
For i = 16 To LastRow
For y = 1 To Len(Sheets("BANHANG").Cells(i, 3))
If LCase(Mid(Sheets("BANHANG").Cells(i, 3), y, StringLenght)) = TextBox3.Text And TextBox3.Text <> "" Then
With Me.ListBox1
.AddItem Sheets("BANHANG").Cells(i, 2)
.List(ListBox1.ListCount - 1, 1) = Sheets("BANHANG").Cells(i, 3)
.List(ListBox1.ListCount - 1, 2) = Sheets("BANHANG").Cells(i, 4)
End With
End If
Next y
Next i
End Sub

mình lấy textbox3 để tra để cho hiện thị lên listbox1 mà lỗi type match

Gởi file bị lỗi lên

 

[SA_DQ]

Đây là 1 cách thô nhất để tìm từng lỗi của chương trình nè bạn:

Option Explicit
Sub TextBox3_Change()
 Dim LastRow As Long, I As Long, Y As Long, StringLenght As Long
 On Error GoTo LoiCT
1 LastRow = Sheets("BanHang").Cells(Rows.Count, 3).End(xlUp).Row
 StringLenght = Me.TextBox3.TextLength
3 Me.ListBox1 .Clear
 For I = 16 To LastRow
5    For Y = 1 To Len(Sheets("BanHang").Cells(I, 3))
        If LCase(Mid(Sheets("BanHang").Cells(I, 3), Y, StringLenght)) = TextBox3.Text And TextBox3.Text <> "" Then
7            With Me.ListBox1
                .AddItem Sheets("BanHang").Cells(I, 2)
9                .List(ListBox1.ListCount - 1, 1) = Sheets("BanHang").Cells(I, 3)
                .List(ListBox1.ListCount - 1, 2) = Sheets("BanHang").Cells(I, 4)
11            End With
        End If
13    Next Y
 Next I
Err_:               Exit Sub
LoiCT:
    MsgBox Err, , Erl()
    Resume Next
'Có Thê Có Nhiêu Lôi, Thì . . . . '
End Sub

 

[hatinh10101991]

Sub TextBox3_Change()
Dim LastRow As Long
Dim i As Long
Dim y As Long
Dim StringLenght As Long
LastRow = Sheets("BANHANG").Cells(Rows.Count, 3).End(xlUp).Row
StringLenght = Me.TextBox3.TextLength
With Me.ListBox1
.Clear
End With
For i = 16 To LastRow
For y = 1 To Len(Sheets("BANHANG").Cells(i, 3))
If LCase(Mid(Sheets("BANHANG").Cells(i, 3), y, StringLenght)) = TextBox3.Text And TextBox3.Text <> "" Then
With Me.ListBox1
.AddItem Sheets("BANHANG").Cells(i, 2)
.List(ListBox1.ListCount - 1, 1) = Sheets("BANHANG").Cells(i, 3)
.List(ListBox1.ListCount - 1, 2) = Sheets("BANHANG").Cells(i, 4)
End With
End If
Next y
Next i
End Sub

mình lấy textbox3 để tra để cho hiện thị lên listbox1 mà lỗi type match

Gởi file bị lỗi lên

Bài đã được tự động gộp: 9/10/21

Gởi file bị lỗi lên

file nó nặng quá nên ko đem lên đc hazzzzz

Bài đã được tự động gộp: 10/10/21

Gởi file bị lỗi lên

Bài đã được tự động gộp: 9/10/21

Gởi file bị lỗi lên

file nó nặng ko giửi lên đc bạn ơi

 

[quanluu]

Sub TextBox3_Change()
Dim LastRow As Long
Dim i As Long
Dim y As Long
Dim StringLenght As Long
LastRow = Sheets("BANHANG").Cells(Rows.Count, 3).End(xlUp).Row
StringLenght = Me.TextBox3.TextLength
With Me.ListBox1
.Clear
End With
For i = 16 To LastRow
For y = 1 To Len(Sheets("BANHANG").Cells(i, 3))
If LCase(Mid(Sheets("BANHANG").Cells(i, 3), y, StringLenght)) = TextBox3.Text And TextBox3.Text <> "" Then
With Me.ListBox1
.AddItem Sheets("BANHANG").Cells(i, 2)
.List(ListBox1.ListCount - 1, 1) = Sheets("BANHANG").Cells(i, 3)
.List(ListBox1.ListCount - 1, 2) = Sheets("BANHANG").Cells(i, 4)
End With
End If
Next y
Next i
End Sub

mình lấy textbox3 để tra để cho hiện thị lên listbox1 mà lỗi type match

Mình đoán lỗi do stringLenght = 0 vậy nên bạn phải check textbox3.text <> "" trước.

 

[HieuCD]

file nó nặng quá nên ko đem lên đc hazzzzz

Bài đã được tự động gộp: 10/10/21

file nó nặng ko giửi lên đc bạn ơi

Bị "nặng" thì tìm thuốc trên diễn đàn trị cho nó hết "nặng"
Đọc lại nội quy diễn đàn, phần không dùng từ viết tắt

 

[SA_DQ]

Bị "nặng" thì tìm thuốc trên diễn đàn trị cho nó hết "nặng"
. . . . . .

Thầy thuốc không thể trị file năng!
Tìm hay sắm búa, cưa hay dao, đục,. . . . mổ xẻ file ra & lấy 1 phần nào đó tượng trưng & gởi lên đi bạn!

Cụ thể hơn là chủ bài đăng cần có 2 trang (có nêu trong macro) & cái form là đủ

 

[VetMini]

Bị "nặng" thì tìm thuốc trên diễn đàn trị cho nó hết "nặng"
Đọc lại nội quy diễn đàn, phần không dùng từ viết tắt

Thớt bị tật "thần hồn nát thần tính". Gặp lỗi là hoảng lên, chả còn biết đầu với đuôi.

...mình lấy textbox3 để tra để cho hiện thị lên listbox1 mà lỗi type match

Chỉ có mấy từ VBA báo lỗi mà không đọc rõ được thì mần ăn gì nữa.