Hỏi Lấy dữ liệu từ Listbox Nhập vào Textbox trong userform (1 người xem)

[minhxaydungvinh]

Mình tạo 1 userform trong đó có 3 Textbox là: Txt_HoTen, Txt_Tuoi, Txt_DiaChi , 1 Listbox là Lst_DuLieu và 2 Commandbox Là Cmd_Them, Cmd_Sua.
Mình muốn mỗi lần Click vào Cmd_Them thì dữ liệu của 3 Textbox sẽ được nhập vào Listbox Lst_DuLieu.
Khi DoubleClick vào 1 dòng trong Listbox Lst_DuLieu thì nội dung của dòng đó sẽ được nhập vào 3 Textbox tương ứng. Sau khi chỉnh sửa dữ liệu trong 3 Textbox xong thì Click vào Cmd_Sua thì dữ liệu của 3 Textbox sẽ được nhâp vào dòng lúc nãy mình đã DoubleClick trong Listbox Lst_DuLieu.
Mình không rành về VBA lắm nên mong mọi người giúp đỡ.

 

[sealand]

Bạn thử dùng vao form:

Private Sub Cmd_Sua_Click()
Txt_HoTen = Lst_DuLieu
Txt_Tuoi = Lst_DuLieu.Column(1)
Txt_DiaChi = Lst_DuLieu.Column(2)
End Sub

Private Sub Cmd_Them_Click()
Dim i
i = Lst_DuLieu.ListCount
Lst_DuLieu.AddItem Txt_HoTen
Lst_DuLieu.Column(1, i) = Txt_Tuoi
Lst_DuLieu.Column(2, i) = Txt_DiaChi
Txt_HoTen = ""
Txt_Tuoi = ""
Txt_DiaChi = ""
Txt_HoTen.SetFocus
End Sub

 

[minhxaydungvinh]

Bạn thử dùng vao form:

Private Sub Cmd_Sua_Click()
Txt_HoTen = Lst_DuLieu
Txt_Tuoi = Lst_DuLieu.Column(1)
Txt_DiaChi = Lst_DuLieu.Column(2)
End Sub

Private Sub Cmd_Them_Click()
Dim i
i = Lst_DuLieu.ListCount
Lst_DuLieu.AddItem Txt_HoTen
Lst_DuLieu.Column(1, i) = Txt_Tuoi
Lst_DuLieu.Column(2, i) = Txt_DiaChi
Txt_HoTen = ""
Txt_Tuoi = ""
Txt_DiaChi = ""
Txt_HoTen.SetFocus
End Sub

Cảm ơn bác nha. Nút Cmd_Them thì được rồi. Nhưng nút Cmd_Sua ý em là sau khi DoubleClick vào 1 dòng trong Listbox Lst_DuLieu thì nội dung của dòng đó sẽ được nhập vào 3 Textbox tương ứng. Sau khi chỉnh sửa dữ liệu trong 3 Textbox xong thì Click vào Cmd_Sua thì dữ liệu của 3 Textbox sẽ được thay thế vào dòng lúc nãy mình đã DoubleClick trong Listbox Lst_DuLieu. Sự kiện DoubleClick em đã làm được theo code của bác là:

Private Sub Lst_DuLieu_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Txt_HoTen = Lst_DuLieu
    Txt_Tuoi = Lst_DuLieu.Column(1)
    Txt_DiaChi = Lst_DuLieu.Column(2)
End Sub

Nhưng Sự kiện Click vào Cmd_Sua lại bị lỗi

Private Sub Cmd_Sua_Click()
    Lst_DuLieu = Txt_HoTen
    Lst_DuLieu.Column(1) = Txt_Tuoi
    Lst_DuLieu.Column(2) = Txt_DiaChi
End Sub

Mong bác giúp em với

 

[minhxaydungvinh]

Em làm được rồi. Cảm ơn bác nha