Nhờ các thầy giúp e code nhập liệu theo file bên dưới (1 người xem)

[viettho]

Mấy bác xem dùm e code nhập liệu vào sheet ABC của e sai chổ nào mà dữ liệu trong listbox khi nhập vào sheet ABC chỉ là số thứ tự mà không hiện tên hixx, e mò hoài không ra, mấy bác coi e sai chổ nào chỉ dùm e

• - */

 

[qtm1987]

Mình nghĩ trong listbox là mảng một chiều nên nếu số thự tự trong litsbox nếu không có gì quan trọng không cần thiết thì bạn không nên đưa vào trong mảng arr. lúc này redim arr(1 to ubound(dulieu,1), 1 to 1) và sửa lại arr(j,1)=dulieu(i,1) là đủ.

Sub tim_tu()
Application.ScreenUpdating = False
Dim tim As String, dl As String, dic As Object
Dim i, j, dulieu, arr()
Dim th As Worksheet
Set dic = CreateObject("scripting.dictionary")
Set th = Sheets("tonghop")
tim = UCase(UserForm1.TextBox1.Value)
dulieu = th.Range(th.[B2], th.[B65536].End(3)).Value
ReDim arr(1 To UBound(dulieu, 1), 1 To 1)
With dic
    For i = 1 To UBound(dulieu)
        dl = UCase(dulieu(i, 1))
        If InStr(1, dl, tim) <> 0 Then
            If Not .exists(dulieu(i, 1)) Then
                j = j + 1
                .Add dulieu(i, 1), j
                arr(j, 1) = dulieu(i, 1)
              
            End If
        End If
    Next
End With
UserForm1.ListBox1.List = arr
Application.ScreenUpdating = False
End Sub

 

[sealand]

Bạn sửa 1 chút:

LastRow.Offset(1, 0).Value = TextBox2.Text
LastRow.Offset(1, 1).Value = ListBox1.Text
LastRow.Offset(1, 2).Value = TextBox3.Text

Thành :

LastRow.Offset(1, 0).Value = TextBox2.Text
LastRow.Offset(1, 1).Value = ListBox1.Column(1)
LastRow.Offset(1, 2).Value = TextBox3.Text


Cách 2:
+Bạn sửa như sau cho chuẩn câu lệnh:
LastRow.Offset(1, 1).Value = ListBox1.Text ------>LastRow.Offset(1, 1).Value = ListBox1.Value

Bạn vào Properties của Listbox và sửa BoundColumn thành 2 là được

 

[viettho]

em cám ơn rất nhiều