Mình có 2 vấn đề khi lập userform1 Cột listbox chỉ hiển thì được 10 cột

Chào bạn bạn load list thê này nhé .

Private Sub UserForm_Initialize()
LoadList
End Sub

Sub LoadList()
Dim dc As Long, arr As Variant
dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
arr = Sheet1.Range("A1:Ae" & dc).Value

With ListBox1
.List() = arr ' do vao list
.ColumnCount = 31 ' so luong cot
.ListStyle = fmListStyleOption ' kieu hien thi
.MultiSelect = fmMultiSelectMulti ' chon nhieu hang khong
End With
End Sub
2. Phần nhập CMND bạn dùng hàm countif so sánh số nhập với vùng nếu >=1 thì thông báo trùng và không cho gi là được

Chào thầy
Xin cảm ơn thầy đã hướng dẫn. Sau khi viết code LoadLiist thì đã hiển thị được số dòng như mong muốn nhưng không đưa thông tin ngược lại từ listbox xuống test box

Lệnh tìm thông tin để hiển thị trên lb
Private Sub lb_TT_SoGCN_Enter()
On Error Resume Next
Me.lb_TT_SoGCN.Clear
Me.lb_TT_SoGCN.AddItem DataBatDongSan.Cells(2, "A") 'neu loi thi sua so 2 thanh so 1
For B = 1 To 20 'neu loi thi sua so 2 thanh so 1
Me.lb_TT_SoGCN.List(Me.lb_TT_SoGCN.ListCount - 1, B - 1) = DataBatDongSan.Cells(2, B) 'neu loi thi sua so 2 thanh so 1
Next B
Me.lb_TT_SoGCN.Selected(0) = True
Dim i As Long
For i = 2 To Application.WorksheetFunction.CountA(DataBatDongSan.Range("A:A"))
For x = 1 To 20
a = Len(Me.tb_TimSoGCN.Text)
If Left(DataBatDongSan.Cells(i, x).Value, a) = tb_TimSoGCN.Text And tb_TimSoGCN.Text <> "" Then
Me.lb_TT_SoGCN.AddItem DataBatDongSan.Cells(i, 1).Value
For C = 1 To 20
Me.lb_TT_SoGCN.List(lb_TT_SoGCN.ListCount - 1, C) = DataBatDongSan.Cells(i, C + 1).Value
Next C
End If
Next x
Next i
End Sub
'DUA THONG TIN TU LIST BOX VAO TEXT BOX
Private Sub lb_TT_SoGCN_Click()
On Error Resume Next
Me.tb_SoGCN.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 0)
Me.tb_SoVaoSo.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 1)
Me.tb_SoThua.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 2)
Me.tb_ToBanDo.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 3)
Me.tb_DiaChiThuaDat.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 4)
Me.tb_ViTriBDS.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 5)
Me.tb_DienTich.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 6)
Me.tb_LoaiDat.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 7)
Me.tb_ThoiHanSuDung.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 8)
Me.tb_NguonGocDat.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 9)
Me.tb_TenGCN.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 10)
Me.tb_NgayCapGCN.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 11)
Me.tb_NoiCapGCN.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 12)
Me.tb_DiaChiNha.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 13)
Me.tb_DTXD.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 14)
Me.tb_DTSD.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 15)
Me.tb_CapHangNha.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 16)
Me.tb_SoTang.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 17)
Me.tb_KetCauNha.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 18)
Me.tb_LoaiBDS.Text = lb_TT_SoGCN.List(lb_TT_SoGCN.ListIndex, 19)

End Sub

Chào bạn có phải bạn đang muốn lấy dữ liệu từ listbox lên textbox khi kích vào listbox

đúng rồi thầy

Chào bạn bạn thực hiện theo code bên dưới nhé
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next

Me.txtngs = Me.ListBox1.Column(1)
Me.cbxloaiphieu = Me.ListBox1.Column(2)
Me.txtsohieu = Me.ListBox1.Column(3)
Me.txtsophieu = Me.ListBox1.Column(4)

End Sub