Click đúp chuột trên Listbox của UserForm để cập nhật dữ liệu sang Form mới

[bebeen]

Chào mọi người! Mình có ví dụ này đang gặp khó khăn khi viết code cho nó. Mình muốn viết 1 đoạn code để click đúp chuột chọn user thì nó sẽ hiện ra cửa sổ có đầy đủ thôn tin của user đó.
Câu hỏi chi tiết ở file đính kèm dưới.

 

[Hoàng Trọng Nghĩa]

Chào mọi người! Mình có ví dụ này đang gặp khó khăn khi viết code cho nó. Mình muốn viết 1 đoạn code để click đúp chuột chọn user thì nó sẽ hiện ra cửa sổ có đầy đủ thôn tin của user đó.
Câu hỏi chi tiết ở file đính kèm dưới.

Trước hết sửa lại cái name VUNGDL1:

=OFFSET(Sheet1!$A$2,,,COUNTA(Sheet1!$A:$A)-1,3)

Sau đó sửa code trong UserForm2:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If ListBox1.ListCount = 0 Then Exit Sub
    With UserForm1
        .TextBox1 = ListBox1.Value
        .TextBox2 = ListBox1.List(, 1)
        .TextBox3 = ListBox1.List(, 2)
        .Show
    End With
End Sub