Không cập nhật dữ liệu từ Form xuống sheet theo ý muốn? (1 người xem)

[bebeen]

Em có bài toán này nhờ AC giúp đỡ. Em muốn khi Click phải chuột vào cột mã hàng thì sẽ có 1 form xuất hiện và chọn. Khi chọn được tên hàng rồi nó tự điền xuống sheet. Câu hỏi cụ thể trong file đính kèm.

 

[ndu96081631]

Em có bài toán này nhờ AC giúp đỡ. Em muốn khi Click phải chuột vào cột mã hàng thì sẽ có 1 form xuất hiện và chọn. Khi chọn được tên hàng rồi nó tự điền xuống sheet. Câu hỏi cụ thể trong file đính kèm.

Code trong ListBox của bạn:

Private Sub ListBox1_Click()
  With DMHH.ListBox1
    ActiveCell = .List(.ListIndex)
  End With
  Unload DMHH
End Sub

như vậy nó chỉ điền dữ liệu tại ActiveCell mà thôi. Muốn điền thêm dữ liệu cho 2 cột TÊN HÀNG và ĐVT, phải ta phải viết thêm 2 dòng code nữa chứ:

Private Sub ListBox1_Click()
  With DMHH.ListBox1
    ActiveCell = .List(.ListIndex, 0)
[COLOR=#ff0000]    ActiveCell.Offset(, -1) = .List(.ListIndex, 1)
    ActiveCell.Offset(, 1) = .List(.ListIndex, 2)[/COLOR]
  End With
  Unload DMHH
End Sub