Chuyển Item từ Listbox1 sang Listbox2 và ngược lại. (1 người xem)

[nqdn2010]

Tôi Search rất nhiều ngày nhưng không tìm được bài như ý. Mong các bạn giúp, yêu cầu trong file đính kèm. Nếu có bài tương tự xin cho Link. Xin cám ơn!

 

[be_09]

Tôi Search rất nhiều ngày nhưng không tìm được bài như ý. Mong các bạn giúp, yêu cầu trong file đính kèm. Nếu có bài tương tự xin cho Link. Xin cám ơn!

Góp ý cho bạn:
1/ Nên nêu rõ mục đích cần làm gì để người giúp hiểu được vấn đề, có thể họ sẽ sắp xếp hay bố trí cách làm mới phù hợp với thực tế.
2/ Thông thường trên 1 sheet sẽ có nhiều cột, File bạn có 1 cột là sao?????
3/ Nếu phát sinh nhiều cột thì sẽ thế nào ?????

Còn yêu cầu như trong File tcó hiểu thì cũng chẳng thành viên nào giúp (nếu giúp rồi phát sinh nhiều cột thì sao), chắc sẽ phát sinh dài dài.

Trước đây tôi cũng thường góp ý cho các thành viên:
1/ Tải File nên có tiêu đề đầy đủ, dữ liệu có thể là giả định, có tối thiểu khoảng 10 dòng dữ liệu.
2/ Nêu rõ (cụ thể) mục đích cần làm gì.
3/ Người giúp có hiểu rõ được vấn đề hoặc có thể thay đổi lại cấu trúc cho phù hợp hay góp ý, chứ không thành viên nào rảnh để giúp thêm những cái phát sinh trời ơi, đất hởi dài dài đâu.

 

[dhn46]

Code đại loại có dạng như thế này, bạn dựa vào đó mà triển khai.

Private Sub CommandButton1_Click()
    CurList = Lstnguon.ListIndex
    If CurList = -1 Then Exit Sub
    Lstdich.AddItem Lstnguon.List(CurList)
    Lstnguon.RemoveItem CurList
End Sub

Private Sub UserForm_Initialize()
    For i = 3 To 21
        Lstnguon.AddItem Cells(i, 4)
    Next
End Sub

 

[nqdn2010]

Sáng tới giờ mới xong việc. trả lời trễ mong các bạn thông cảm.

Góp ý cho bạn:
1/ Nên nêu rõ mục đích cần làm gì để người giúp hiểu được vấn đề, có thể họ sẽ sắp xếp hay bố trí cách làm mới phù hợp với thực tế. . .

Mục đích tôi chỉ đơn giản như yêu cầu trên.

Code đại loại có dạng như thế này, bạn dựa vào đó mà triển khai.

Áp dụng code của bạn, mình thực hiện được yêu cầu cơ bản.
Xin chỉ thêm muốn Add hết thì sao?
Cám ơn các bạn nhiều!

 

[be_09]

Sáng tới giờ mới xong việc. trả lời trễ mong các bạn thông cảm.
Mục đích tôi chỉ đơn giản như yêu cầu trên.

Tôi thấy cột D bạn ghi tên ảnh, thì bạn cần nói rõ mục đích muốn làm cái gì để các thành viên giúp đưa ra giải pháp thì sẽ tốt hơn là 1 ý tưởng của bạn, ông bà xưa thường nói:
- Đông tay hơn hay làm.
- Một cây làm chẳng nên non, 3 cây chụm lại nên hòn núi cao.

Ví dụ:
1/ Về theo dõi tội phạm: Bạn muốn khi gõ tên hoặc số CMND thì nó sẽ load cái hình của tội phạm đó vào Form, đồng thời có thông tin liên quan đến tội phạm đó.
2/ Về theo dõi xử lý ô nhiễm môi trường: Khi chọn tên nhà máy nào đó thì nó sẽ load cái hình của nhà máy đó hay chỗ ô nhiễm vào Form, đồng thời có thông tin liên quan đến nhà máy đó.
3/ Hay theo dõi nhân sự thì cũng tương tự.

Góp ý thêm cho bạn:
1/ Bạn nên thêm 1 cái Image lên Form để khi chọn tên hình nào đó thì nó sẽ load cái hình đó lên Form để xem.
2/ Nếu sử dụng hình ảnh thì nên chứa hình ảnh trong 1 Folder nào đó, khi cần thì gọi nó ra (khi sử dụng thì sẽ nhanh và làm giảm dung lượng File).

 

[dhn46]

Sáng tới giờ mới xong việc. trả lời trễ mong các bạn thông cảm.

Mục đích tôi chỉ đơn giản như yêu cầu trên.

Áp dụng code của bạn, mình thực hiện được yêu cầu cơ bản.
Xin chỉ thêm muốn Add hết thì sao?
Cám ơn các bạn nhiều!

Bạn dựa vào Code add để tạo 1 vòng lặp và chuyển sang là được.

 

[nqdn2010]

Những ngày qua bận quá. Tôi không biết nói gì hơn ngoài việc cám ơn 2 bạn. Dựa vào sự chỉ dẫn của 2 bạn mình cơ bản thực hiện được công việc. Nếu có điều chưa làm được mong sự chỉ dẫn của các bạn.

 

[nqdn2010]

Xin hỏi muốn Add tất cả bên Lstdich xuống sheet bắt đầu từ ô F5 thì code như thế nào?