Hình như thiếu đoạn code đưa dữ liệu vào listbox1, Dùng thử code tạo 1 name động rồi đưa vào RowSource xem sao! Thêm vào đó chỉnh một xíu thao tác lúc click chuột vào listbox1 sẽ đem tên khách hàng lên texbox1 luôn thể.
Tôi chỉ sửa lại phần ListBox và các Label thôi
Private Sub ListBox1_Click()
Dim SourceRange As Range
Set SourceRange = Range(ListBox1.RowSource)
With ListBox1
Lb07.Caption = SourceRange(.ListIndex + 1, 1)
Lb08.Caption = SourceRange(.ListIndex + 1, 2)
Lb09.Caption = SourceRange(.ListIndex + 1, 3)
Lb10.Caption = SourceRange(.ListIndex + 1, 4)
Lb11.Caption = SourceRange(.ListIndex + 1, 5)
Lb12.Caption = SourceRange(.ListIndex + 1, 6)
End With
End SubPrivate Sub ListBox1_Click()
Dim i As Long
With Range(ListBox1.RowSource)
For i = 1 To 6
Me.Controls("Lb" & Format(i + 6, "00"))= .Cells(ListBox1.ListIndex + 1, i)
Next
End With
End SubPrivate Sub TextBox1_Change()
With Range(ListBox1.RowSource).Resize(, 1)
ListBox1.Selected(.Find(TextBox1, , , xlPart).Row - .Row) = True
End With
End Sub
nên thấy bài viết của a Domfootwear có đoạn code tìm kiếm và được Ndu cải tiến nên quá là hay phải nói là tuyệt cú mèo luôn. Nếu có thể mong anh chị và các bạn cải tiến thếm Thanks
Thêm cho bạn 1 ComboBox để chọn trường (Code chẳng sửa gì nhiều)Dear all:
Thanks anh chị đã quan tâm nhưng em có thêm ý tưởng này không biết mình làm được trên userform tại vì nếu em thay đổi trường tìm kiếm trên userform hì những label hiện thị vùng dữ liệu sẽ không đúng Khi đó vòng lập For của a Ndu sẽ bị sai không biết có cách khắc phục được không a? Nếu mình có thể làm thêm nút điều kiện tìm kiếm nữa thì sẽ tuyệt cú mèo luôn, Ví dụ theo cột Name, Code, Amount, Ngày thì khỏi chê vào đâu luôn Khi đó muốn chọn tìm kiếm theo ngày thì dữ liệu sẽ hiện trong list box là ngày v.v v.v v. Tại vì em thấy tìm kiếm trên userform hay tuyệt mà không biết viết code
Private Sub UserForm_Initialize()
With Sheet1.Range("A1").CurrentRegion
ComboBox1.List() = WorksheetFunction.Transpose(.Resize(1))
End With
ComboBox1.Value = ComboBox1.List(0, 0)
End SubPrivate Sub ComboBox1_Change()
With Sheet1.Range("A1").CurrentRegion
ListBox1.RowSource = Intersect(.Cells, .Offset(1, ComboBox1.ListIndex)).Resize(, 1).Address
End With
End SubPrivate Sub ListBox1_Click()
Dim i As Long
With Sheet1.Range("A1").CurrentRegion
For i = 1 To 6
Me.Controls("Lb" & Format(i + 6, "00")).Caption = .Cells(ListBox1.ListIndex + 2, i)
Next
End With
End SubPrivate Sub TextBox1_Change()
On Error Resume Next
With Range(ListBox1.RowSource).Resize(, 1)
ListBox1.Selected(.Find(TextBox1, , , xlPart).Row - .Row) = True
End With
End Sub[COLOR=#000000][COLOR=#0000bb][/COLOR][SIZE=3][FONT=Courier New][COLOR=#007700]Private [/COLOR][COLOR=#0000bb]Sub ListBox1_Click[/COLOR][/FONT][/SIZE][SIZE=3][FONT=Courier New][COLOR=#007700]()
[/COLOR][COLOR=#0000bb]Dim i [/COLOR][COLOR=#007700]As [/COLOR][/FONT][/SIZE][SIZE=3][FONT=Courier New][COLOR=#0000bb]Long
With Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"A1"[/COLOR][COLOR=#007700]).[/COLOR][/FONT][/SIZE][SIZE=3][FONT=Courier New][COLOR=#0000bb]CurrentRegion
[/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000bb]i [/COLOR][COLOR=#007700]= [/COLOR][/FONT][/SIZE][SIZE=3][FONT=Courier New][COLOR=#0000bb]1 To 6
Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Controls[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"Lb" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000bb]Format[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000bb]6[/COLOR][COLOR=#007700], [/COLOR][COLOR=#dd0000]"00"[/COLOR][COLOR=#007700])).[/COLOR][COLOR=#0000bb]Caption [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]ListBox1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]ListIndex [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000bb]2[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]i[/COLOR][/FONT][/SIZE][COLOR=#007700][FONT=Courier New][SIZE=3])
[/SIZE][/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New][SIZE=3]Next
End With
End Sub [/SIZE][/FONT]
[/COLOR][/COLOR]
Bạn cứ thêm bớt gì đó cho thật đầy đủ và chính xác vào file rồi gữi lên đây ---> Ta làm luôn 1 lần nhéCảm ơn a Ndu nhiều lắm quả là chính xác nhanh gọn lẹ tuyệt cú mèo luôn. A Ndu cho em hỏi nếu mình thêm dữ liệu ở cột G, H khi đó trong userform e sẽ xuất hiện thêm 4 label nữa không biết khi đó vòng lặp For
Thay đổi như thế nào tại vì e thấy tên Label của anh từ Lb01 -> Lb12 nếu em thêm vào thì sẽ có 16 LabelMã:[COLOR=#000000][SIZE=3][FONT=Courier New][COLOR=#007700]Private [/COLOR][COLOR=#0000bb]Sub ListBox1_Click[/COLOR][/FONT][/SIZE][SIZE=3][FONT=Courier New][COLOR=#007700]() [/COLOR][COLOR=#0000bb]Dim i [/COLOR][COLOR=#007700]As [/COLOR][/FONT][/SIZE][SIZE=3][FONT=Courier New][COLOR=#0000bb]Long With Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"A1"[/COLOR][COLOR=#007700]).[/COLOR][/FONT][/SIZE][SIZE=3][FONT=Courier New][COLOR=#0000bb]CurrentRegion [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000bb]i [/COLOR][COLOR=#007700]= [/COLOR][/FONT][/SIZE][SIZE=3][FONT=Courier New][COLOR=#0000bb]1 To 6 Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Controls[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"Lb" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000bb]Format[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000bb]6[/COLOR][COLOR=#007700], [/COLOR][COLOR=#dd0000]"00"[/COLOR][COLOR=#007700])).[/COLOR][COLOR=#0000bb]Caption [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]ListBox1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]ListIndex [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000bb]2[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]i[/COLOR][/FONT][/SIZE][COLOR=#007700][FONT=Courier New][SIZE=3]) [/SIZE][/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New][SIZE=3]Next End With End Sub [/SIZE][/FONT] [/COLOR][/COLOR]
