Ghi dữ liệu được chọn từ UseFrom ra excel kết hợp với refedit (1 người xem)

[huongtinh1929]

Mong các bác chỉ giúp sao khi em ấn ghi dữ liệu thì không ghi được. Mò mẫn cả tuần mà không ra. Em xin chân thành cảm ơn

 

[befaint]

Mong các bác chỉ giúp sao khi em ấn ghi dữ liệu thì không ghi được. Mò mẫn cả tuần mà không ra. Em xin chân thành cảm ơn

Hầu như không đúng được khúc nào.

---------
Private Sub UserForm_Initialize()
Set Dic = CreateObject("Scripting.Dictionary")
'Tạo đối tượng Dic nhưng chẳng làm gì, không Add Item nào vào Dic cả. Mục đích đối tượng Dic để làm gì?
sArray = Range(VUNG.RefEdit2)
'Phải gán theo Name đã tạo chứ. Khi VBA được Reset thì lại phải thiết lập lại Form Vung à?
LBDMHH.List() = sArray
'Lấy theo Name vừa tạo.
End Sub

------
Private Sub CMDADD_Click()
On Error Resume Next
Dim Arr(), i
Arr = Dic.Items
'Dic đang rỗng thì Arr= rỗng
If ActiveCell.Column = 1 Then
For i = 0 To Dic.Count - 1
'Dic có gì đâu mà duyệt vòng lặp...
Cells(i + ActiveCell.Row, "A").Resize(, 4) = Split(Arr(i), ";")
Next
End If
Erase Arr()
Set Dic = Nothing
Unload Me
End Sub

--------
Tải file ở bài #4 ở link sau về tham khảo xem.
http://www.giaiphapexcel.com/diendan/threads/nhờ-tạo-text-box-tìm-kiếm-trong-form-đã-tạo-sẵn.130238/#post-817885

 

[be_09]

Mong các bác chỉ giúp sao khi em ấn ghi dữ liệu thì không ghi được. Mò mẫn cả tuần mà không ra. Em xin chân thành cảm ơn

Tham khảo File trong bài viết ở Link sau (là tương tự):
http://www.giaiphapexcel.com/dienda...ruy-vấn-đơn-thuốc-nơi-phòng-khám-bệnh.126073/

 

[huongtinh1929]

Em xin cảm ơn hai anh Befaint và be09 nhiều nhiều. Em xin nghiên cứu tiếp ạ, nhưng mà không thể ghi vào từ from cua em được ạ hai anh?