Xem, Sửa thông tin ngay trên Form nhập dữ liệu

Liên hệ QC

moonsun1130

Thành viên chính thức
Tham gia
7/1/10
Bài viết
63
Được thích
5
Nhờ các anh chị giúp đỡ em cách Xem, sửa dữ liệu đã nhập trên Form với ạ. Nội dung trong file Word. Em cảm ơn Anh chị nhiều ạ.
 

File đính kèm

Không có ai giúp đỡ em với ạ. em đang thực sự rất cần để hoàn thiện chương trình vào sáng ngày mai. Mong các Anh chị giúp đỡ em cảm ơn rất nhiều ạ.
 
Upvote 0
Giúp em giải quyết vấn đề khó khăn này với các anh chị ơi. Sao không thấy ai cho ý kiến gì vậy nhỉ. Em nghĩ suốt mà không thể làm được
 
Upvote 0
Em viết đoạn code này sao chạy nó báo lỗi. Anh chị nào giúp em với được không ạ

textbox tìm tên

Private Sub TextBox1_Change()
Dim Arr
Arr = Application.Transpose(Me.ListBox1.List())
Arr = Filter(Arr, Me.TextBox1.Text, 1)
Me.ListBox1.List() = Arr
End Sub

List danh sách tên khách hàng

Private Sub UserForm_Initialize()
Me.ListBox1.List() = S2.Range("D2:D").CurrentRegion.Value
End Sub
 
Upvote 0
Mình bị tai nạn gãy tay không gõ đươc nhiều. mổ cò được vậy tham khảo nha

Option Explicit
Private Sub TextBox1_Change()
Dim Arr
Arr = Application.Transpose(S2.Range("D2").CurrentRegion)
Arr = Filter(Arr, Me.TextBox1.Text, 1)
Me.ListBox1.List() = Arr
End Sub
Private Sub UserForm_Initialize()
Me.ListBox1.List() = WorksheetFunction.Transpose(S2.Range("D2").CurrentRegion)
End Sub
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom