Giúp code lấy giá trị từ Listbox trong Form xuống ô excel (1 người xem)

[minhtuan55]

Chào cả Nhà GPE !
Em có tạo 1 form gồm 1 listbox chứa 3 cột ( tên hàng, SL, Đơn giá ) .Em muốn Khi DB Click vào dòng nào của Listbox thì lấy dữ liệu dòng đó xuống 3 ô của em. Hiện tại em đang dùng code này chỉ lấy được 1 cột tên hàng


Private Sub ListBox1_Click()
Range("J8:L8").Value = ListBox1.Value ' hien tai chi lay Duoc ten Hang
End Sub

Xin chân thành cảm ơn !

 

[Hoang2013]

Bạn thử cái ni:

Dim idGPE As Long
Private Sub ListBox1_Click()
 idGPE = Me!ListBox1.ListIndex - 1
Range("L8").Value = Me!ListBox1.List(idGPE, 2)
MsgBox idGPE
End Sub

 

[darknightno007]

Chào cả Nhà GPE !
Em có tạo 1 form gồm 1 listbox chứa 3 cột ( tên hàng, SL, Đơn giá ) .Em muốn Khi DB Click vào dòng nào của Listbox thì lấy dữ liệu dòng đó xuống 3 ô của em. Hiện tại em đang dùng code này chỉ lấy được 1 cột tên hàng


Private Sub ListBox1_Click()
Range("J8:L8").Value = ListBox1.Value ' hien tai chi lay Duoc ten Hang
End Sub

Xin chân thành cảm ơn !

Bạn dùng thử code này xem:

Private Sub ListBox1_Click()
i = Me.ListBox1.ListIndex
Range("J8").Value = Me.ListBox1.List(i, 0)
Range("K8").Value = Me.ListBox1.List(i, 1)
Range("L8").Value = Me.ListBox1.List(i, 2)
End Sub

 

[minhtuan55]

Chào cả Nhà GPE !
Em có tạo 1 form gồm 1 listbox chứa 3 cột ( tên hàng, SL, Đơn giá ) .Em muốn Khi DB Click vào dòng nào của Listbox thì lấy dữ liệu dòng đó xuống 3 ô của em. Hiện tại em đang dùng code này chỉ lấy được 1 cột tên hàng


Private Sub ListBox1_Click()
Range("J8:L8").Value = ListBox1.Value ' hien tai chi lay Duoc ten Hang
End Sub

Xin chân thành cảm ơn !

Thank bạn, Mình làm được rồi mừng quá

 

[minhtuan55]

Bạn dùng thử code này xem:

Private Sub ListBox1_Click()
i = Me.ListBox1.ListIndex
Range("J8").Value = Me.ListBox1.List(i, 0)
Range("K8").Value = Me.ListBox1.List(i, 1)
Range("L8").Value = Me.ListBox1.List(i, 2)
End Sub

Thank bạn, Mình làm được rồi mừng quá..

 

[darknightno007]

Thank bạn, Mình làm được rồi mừng quá..

You're welcome!