Tạo form lấy nội dung công việc từ sheet khác (1 người xem)

[nguyenkhoadng]

Nhờ các bạn giúp mình.
Tất cả mình có ghi trong file đính kèm.
Mình cảm ơn!
p/s: hình thức form giống link bên dưới, nhưng nội dung khác nên mình áp dụng ko được. nhờ các bạn giúp
http://www.giaiphapexcel.com/forum/showthread.php?81284-Đưa-danh-sách-ở-các-cột-vào-list-box

 

[viehoai]

Nhờ các bạn giúp mình.
Tất cả mình có ghi trong file đính kèm.
Mình cảm ơn!
p/s: hình thức form giống link bên dưới, nhưng nội dung khác nên mình áp dụng ko được. nhờ các bạn giúp
http://www.giaiphapexcel.com/forum/showthread.php?81284-%C4%90%C6%B0a-danh-s%C3%A1ch-%E1%BB%9F-c%C3%A1c-c%E1%BB%99t-v%C3%A0o-list-box

File book1.xls của bạn dữ liệu sheet Dinh-Muc chẳng liên quan gì đến form "chon" của bạn cả. Tóm lại bạn cần gì đây?

 

[nguyenkhoadng]

File book1.xls của bạn dữ liệu sheet Dinh-Muc chẳng liên quan gì đến form "chon" của bạn cả. Tóm lại bạn cần gì đây?

Xin lỗi, mình up lại file đính kèm bê dưới, nhờ các bạn giúp mình.

 

[viehoai]

Xin lỗi, mình up lại file đính kèm bê dưới, nhờ các bạn giúp mình.

Trong form có 2 textbox LOẠI và MHĐM/TÊN CV mục đích để làm gì vậy bạn?

 

[xucxich]

Trong form có 2 textbox LOẠI và MHĐM/TÊN CV mục đích để làm gì vậy bạn?

 

[nguyenkhoadng]

Trong form có 2 textbox LOẠI và MHĐM/TÊN CV mục đích để làm gì vậy bạn?

Loại: lag bao gồm Tất cả, Phần sản xuất và Phần lắp dựng (ở cột A bên sheet Dinh-Muc)
MHĐM/TÊN CV: Tìm kiếm công việc theo MHDM hoặc tìm theo Tên CV

 

[viehoai]

Loại: lag bao gồm Tất cả, Phần sản xuất và Phần lắp dựng (ở cột A bên sheet Dinh-Muc)
MHĐM/TÊN CV: Tìm kiếm công việc theo MHDM hoặc tìm theo Tên CV

Bạn xem file thử được chưa nhé
(nick của bạn trông quen nhỉ, hình như có giúp bạn 1 lần rồi phải)

 

[nguyenkhoadng]

Trước kia bạn có giúp mình làm 1 bảng tính hỗ trợ cho công việc của mình, 1 topic thật là dài
Cảm ơn bạn đã giúp!
Bạn có thể giúp mình
- LOẠI: gồm 3 phần TẤT CẢ, PHẦN SẢN XUẤT, PHẦN LẮP DỰNG, và kết hợp ta có thể gõ tìm kiếm theo mã hiệu hoặc tên công việc ngay ở text box này.
- MHĐM/TÊN CV: phần này sẽ được bỏ để bớt đi thao tác người dùng, và rộng form.
- Khi mình click CHỌN thì ko thấy hiện tên công việc ở cột J, bạn xem lại giúp mình.
và phần CHỌN nhờ bạn giúp sao cho khi mở form mình có thể chọn 1 hoặc nhiều công việc cùng 1 lúc và vị trí paste sẽ paste tiếp theo vào ô bên dưới của ô chọn ban đầu.
tránh trường hợp chọn 1 công việc sau đó click chọn thì form sẽ thoát ra.

Mình up thêo file đính kèm bên dưới
Mình cảm ơn!

 

[viehoai]

Trước kia bạn có giúp mình làm 1 bảng tính hỗ trợ cho công việc của mình, 1 topic thật là dài
Cảm ơn bạn đã giúp!
Bạn có thể giúp mình
- LOẠI: gồm 3 phần TẤT CẢ, PHẦN SẢN XUẤT, PHẦN LẮP DỰNG, và kết hợp ta có thể gõ tìm kiếm theo mã hiệu hoặc tên công việc ngay ở text box này.
- MHĐM/TÊN CV: phần này sẽ được bỏ để bớt đi thao tác người dùng, và rộng form.
- Khi mình click CHỌN thì ko thấy hiện tên công việc ở cột J, bạn xem lại giúp mình.
và phần CHỌN nhờ bạn giúp sao cho khi mở form mình có thể chọn 1 hoặc nhiều công việc cùng 1 lúc và vị trí paste sẽ paste tiếp theo vào ô bên dưới của ô chọn ban đầu.
tránh trường hợp chọn 1 công việc sau đó click chọn thì form sẽ thoát ra.
Mình up thêo file đính kèm bên dưới
Mình cảm ơn!

Bạn test lại xem sao nhé
Bạn thay code dưới trong sheet Vidu nhé
[GPECODE=vb]Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
If Target.Column = 10 And Target.Row >= 5 Then
Cancel = True
Chon.Show
End If
Application.EnableEvents = True
End Sub


[/GPECODE]

 

[nguyenkhoadng]

Bạn test lại xem sao nhé
Bạn thay code dưới trong sheet Vidu nhé
[GPECODE=vb]Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
If Target.Column = 10 And Target.Row >= 5 Then
Cancel = True
Chon.Show
End If
Application.EnableEvents = True
End Sub


[/GPECODE]

Cảm ơn bạn đã giúp!
Mình có một vài ý thế này nhờ bạn:
- Text box LOẠI: vẫn chưa kết hợp chức năng tìm kiếm theo MHĐM hoặc theo tên CV.
- ở file của bạn thì khi click CHỌN nó sẽ paste tất cả các cột vào bảng tính (gồm MHĐM, Tên CV, Que hàn, Đá Mài, Đá cắt). mình muốn khi chọn thì nó chỉ paste phần nội dung công việc ở cột J thôi, mấy phần khác ko paste vào bảng tính.
- ở file của bạn thì khi click chọn công việc tiếp theo thì nó sẽ paste chồng lên ô mình chọn trước. mình muốn khi chọn công việc tiếp theo nó sẽ tự động paste xuống ô bên dưới.
Bạn xem giúp mình được ko?
Mình cảm ơn!

 

[viehoai]

Cảm ơn bạn đã giúp!
Mình có một vài ý thế này nhờ bạn:
- Text box LOẠI: vẫn chưa kết hợp chức năng tìm kiếm theo MHĐM hoặc theo tên CV.
- ở file của bạn thì khi click CHỌN nó sẽ paste tất cả các cột vào bảng tính (gồm MHĐM, Tên CV, Que hàn, Đá Mài, Đá cắt). mình muốn khi chọn thì nó chỉ paste phần nội dung công việc ở cột J thôi, mấy phần khác ko paste vào bảng tính.
- ở file của bạn thì khi click chọn công việc tiếp theo thì nó sẽ paste chồng lên ô mình chọn trước. mình muốn khi chọn công việc tiếp theo nó sẽ tự động paste xuống ô bên dưới.
Bạn xem giúp mình được ko?
Mình cảm ơn!

hoặc nhiều công việc cùng 1 lúc và vị trí paste sẽ paste tiếp theo vào ô bên dưới của ô chọn ban đầu.

Ý bạn trái ngược nhau quá, tốt nhất bạn có ý định gì thì làm nốt một lần luôn, cứ chạy đua theo bạn lúc này thế nàu, lúc khác thế khác t

 

[viehoai]

Cảm ơn bạn đã giúp!
Mình có một vài ý thế này nhờ bạn:
- Text box LOẠI: vẫn chưa kết hợp chức năng tìm kiếm theo MHĐM hoặc theo tên CV.
- ở file của bạn thì khi click CHỌN nó sẽ paste tất cả các cột vào bảng tính (gồm MHĐM, Tên CV, Que hàn, Đá Mài, Đá cắt). mình muốn khi chọn thì nó chỉ paste phần nội dung công việc ở cột J thôi, mấy phần khác ko paste vào bảng tính.
- ở file của bạn thì khi click chọn công việc tiếp theo thì nó sẽ paste chồng lên ô mình chọn trước. mình muốn khi chọn công việc tiếp theo nó sẽ tự động paste xuống ô bên dưới.
Bạn xem giúp mình được ko?
Mình cảm ơn!

1. Mục màu đỏ thì mình botay.com
2.

hoặc nhiều công việc cùng 1 lúc và vị trí paste sẽ paste tiếp theo vào ô bên dưới của ô chọn ban đầu.

Bạn tự đề ra mục đích cho bản thân mình cần đi, chứ lúc này muốn thế này, lúc sau muốn thế khác thì mình xin bye nhé. Mình không thể theo bạn nổi đâu, thông cảm nhé
Kính nhờ MOD/SMOD xóa bài #11, em chẳng hiểu tại sao bị gửi giữa chừng bài đó nữa. Em xin cảm ơn

 

[nguyenkhoadng]

Ý bạn trái ngược nhau quá, tốt nhất bạn có ý định gì thì làm nốt một lần luôn, cứ chạy đua theo bạn lúc này thế nàu, lúc khác thế khác t
- ở file của bạn thì khi click chọn công việc tiếp theo thì nó sẽ paste chồng lên ô mình chọn trước. mình muốn khi chọn công việc tiếp theo nó sẽ tự động paste xuống ô bên dưới.

Ý mình ko trái ngược, mà có lẽ do mình trình bày ko đc rõ nên bạn chưa rõ ý mình.

Dòng màu xanh là thực tế file bạn giúp mình làm được. và khi mình chọn công việc thứ 2 trở đi mà ko thoát ra khỏi form thì nó sẽ paste chồng lên dòng chọn ban đầu.
Dòng màu đỏ mới là ý của mình muốn bạn ah. khi chọn tiếp công việc thứ 2, 3, 4, ... thì sẽ paste lần lượt xuống các dòng bên dưỡi.
Ví dụ: ta click chuột phải ở ô J6 sẽ hiện form, chọn công việc thứ 1 và click CHỌN thì sẽ paste tên công việc vào ô J6.
Tiếp đến (ta vẫn ở trong form chứ chưa thoát ra khỏi form) chọn công việc thứ 2 và click CHỌN thì sẽ paste tên công việc xuống ô J7,... và cứ chọn tiếp công việc nào thì sẽ được paste xuống các ô bê dưới J8, J9, J10, ...

 

[nguyenkhoadng]

1. Mục màu đỏ thì mình botay.com
2.
Bạn tự đề ra mục đích cho bản thân mình cần đi, chứ lúc này muốn thế này, lúc sau muốn thế khác thì mình xin bye nhé. Mình không thể theo bạn nổi đâu, thông cảm nhé
Kính nhờ MOD/SMOD xóa bài #11, em chẳng hiểu tại sao bị gửi giữa chừng bài đó nữa. Em xin cảm ơn

Mình cảm ơn bạn nhiều vì đã giúp mình nhiệt tình!
ý tưởng 1 người và thực hiện 1 người nên mình biết sẽ gây khó khăn cho bạn cũng như các mod rất nhiều.
Dù sao mình cũng cảm ơn tất cả!
Chúc luôn vui!

 

[siwtom]

ý tưởng 1 người và thực hiện 1 người nên mình biết sẽ gây khó khăn cho bạn cũng như các mod rất nhiều.

Có thể dễ dàng hiểu được ý tưởng của người khác nhưng với điều kiện ...

Ý tưởng phải trình bầy rõ ràng là điều đương nhiên. Nhưng trước khi hỏi thì bạn phải nghiền ngẫm kỹ xem có hợp lý không. Trước khi hỏi thì bạn cũng phải nghĩ thấu đáo về việc thiết kế Form. Tránh trường hợp lúc đầu thì có TextBox MHĐM / tên CV sau rồi lại bỏ. Hãy nghĩ kỹ mình muốn gì, đừng để người khác phải mất công làm lại vài lần.

Bạn viết:

Text box LOẠI: vẫn chưa kết hợp chức năng tìm kiếm theo MHĐM hoặc theo tên CV.

Bạn ạ, LOAI là ComboBox chứ đâu có là TextBox?
Còn nếu bạn dùng "ô trắng" trong ComboBox để nhập chuỗi lọc ... Ý muốn kỳ lạ quá. Nhưng thôi, tôi thử chiều bạn xem sao.

Khi nhấn nút chọn thì các mục chọn sẽ được nhập lần lượt vào các ô liên tiếp trong cột J.
1. Chọn mục trong Combobox để nhập dữ liệu vào mảng sArray. Mảng sArray này lúc đầu sẽ được nhập vào ListBox, còn về sau sẽ dùng cho việc tìm kiếm
2. Chọn kiểu tìm kiếm bằng cách chọn Option thích hợp
3. Khi "ô trắng" trong ComboBox rỗng thì mảng sArray sẽ được nhập vào ListBox. Nếu bạn gõ vào ô này chuỗi <> TẤT CẢ, PHẦN SẢN XUẤT, PHẦN LẮP DỰNG thì code sẽ coi đó là chuỗi dùng để lọc và kết quả lọc sẽ được nhập vào ListBox.
4. Ở thời điểm bất kỳ có thể thực hiện điểm 1 để thiết lập mảng sArray hoặc điểm 2 để chọn kiểu tìm kiếm

Tôi mới viết qua, bạn tham khảo.

 

[nguyenkhoadng]

Có thể dễ dàng hiểu được ý tưởng của người khác nhưng với điều kiện ...

Ý tưởng phải trình bầy rõ ràng là điều đương nhiên. Nhưng trước khi hỏi thì bạn phải nghiền ngẫm kỹ xem có hợp lý không. Trước khi hỏi thì bạn cũng phải nghĩ thấu đáo về việc thiết kế Form. Tránh trường hợp lúc đầu thì có TextBox MHĐM / tên CV sau rồi lại bỏ. Hãy nghĩ kỹ mình muốn gì, đừng để người khác phải mất công làm lại vài lần.

Bạn viết:


Bạn ạ, LOAI là ComboBox chứ đâu có là TextBox?
Còn nếu bạn dùng "ô trắng" trong ComboBox để nhập chuỗi lọc ... Ý muốn kỳ lạ quá. Nhưng thôi, tôi thử chiều bạn xem sao.

Khi nhấn nút chọn thì các mục chọn sẽ được nhập lần lượt vào các ô liên tiếp trong cột J.
1. Chọn mục trong Combobox để nhập dữ liệu vào mảng sArray. Mảng sArray này lúc đầu sẽ được nhập vào ListBox, còn về sau sẽ dùng cho việc tìm kiếm
2. Chọn kiểu tìm kiếm bằng cách chọn Option thích hợp
3. Khi "ô trắng" trong ComboBox rỗng thì mảng sArray sẽ được nhập vào ListBox. Nếu bạn gõ vào ô này chuỗi <> TẤT CẢ, PHẦN SẢN XUẤT, PHẦN LẮP DỰNG thì code sẽ coi đó là chuỗi dùng để lọc và kết quả lọc sẽ được nhập vào ListBox.
4. Ở thời điểm bất kỳ có thể thực hiện điểm 1 để thiết lập mảng sArray hoặc điểm 2 để chọn kiểu tìm kiếm

Tôi mới viết qua, bạn tham khảo.

Thực sự mình ko am hiểu về lập trình nên mình ko biết ý muốn của mình kỳ lạ đến vậy. nhưng kết quả thật tuyệt vời. Mình cảm ơn rất nhiều!
Mình cũng cảm ơn viehoai, và mong bạn thông cảm.
Chúc cả nhà GPE ngày càng đông vui phát triển!

 

[Hong.Van]

Thầy cô & anh chị cho em hỏi ngoài lề 1 tý
Em thấy trên Form của anh viethoai có các ô vuông (bên trái) để đánh dấu check.
Vậy cho em hỏi cách làm!
Vui lòng hướng dẫn ở file đính kèm giúp em! Em cảm ơn!
------
P/s: Chỗ nào cần thay đổi thì nói rỏ giúp em
Trường hợp em muốn thay các ô vuông thành hình tròn thì fải làm thế nào!

 

[siwtom]

Thầy cô & anh chị cho em hỏi ngoài lề 1 tý
Em thấy trên Form của anh viethoai có các ô vuông (bên trái) để đánh dấu check.
Vậy cho em hỏi cách làm!
Vui lòng hướng dẫn ở file đính kèm giúp em! Em cảm ơn!
------
P/s: Chỗ nào cần thay đổi thì nói rỏ giúp em
Trường hợp em muốn thay các ô vuông thành hình tròn thì fải làm thế nào!

Bạn xem code thì thấy không có gì "khả nghi", đúng không? Vậy nếu không thiết lập gì trong code thì ắt hẳn "nó" phải được thiết lập trong cửa sổ Properties.
Bạn duyệt các thuộc tính của ListBox thì thấy cái tên đầy hứa hẹn: ListStyle. Vậy bạn chuyển qua lại giữa 2 giá trị xem diện mạo ListBox thay đổi ra sao.
Do ListBox chỉ có 2 giá trị nên hoặc có ô vuông hoặc không chứ không có ô tròn.
------------
Trong Sub ShowDMHH() có Cancel = True
Cancel ở đây nó là gì vậy nhỉ? Xóa đi!

 

[Hong.Van]

Bạn xem code thì thấy không có gì "khả nghi", đúng không? Vậy nếu không thiết lập gì trong code thì ắt hẳn "nó" phải được thiết lập trong cửa sổ Properties.
Bạn duyệt các thuộc tính của ListBox thì thấy cái tên đầy hứa hẹn: ListStyle. Vậy bạn chuyển qua lại giữa 2 giá trị xem diện mạo ListBox thay đổi ra sao.
Do ListBox chỉ có 2 giá trị nên hoặc có ô vuông hoặc không chứ không có ô tròn.
------------
Trong Sub ShowDMHH() có Cancel = True
Cancel ở đây nó là gì vậy nhỉ? Xóa đi!

Cho em hỏi thêm 1 tý (File của em):
Tại Cell K28 của sheet TH sau khi em chọn Mã số trên Form xong , thì em không muốn ở cell hiện hành là K28 nữa, mà muốn nó nhảy qua cell M28 thì fải chỉnh code như thế nào?
Lưu ý: Trường hợp em có chọn một lúc nhiều Mã (ví dụ chọn 2 mã cho cell K28 và K29) thì cell nó nhảy qua vẫn là M28 (không phải cell M29)
Em cảm ơn!

 

[siwtom]

Cho em hỏi thêm 1 tý (File của em): Tại Cell K28 của sheet TH sau khi em chọn Mã số trên Form xong , thì em không muốn ở cell hiện hành là K28 nữa, mà muốn nó nhảy qua cell M28 thì fải chỉnh code như thế nào? Lưu ý: Trường hợp em có chọn một lúc nhiều Mã (ví dụ chọn 2 mã cho cell K28 và K29) thì cell nó nhảy qua vẫn là M28 (không phải cell M29) Em cảm ơn!

Có nghĩa là nếu cell hiện hành là K28 và bạn nhấn nút "Chọn" thì cho dù bạn đánh dấu bao nhiêu mục ở ListBox thì cell hiện hành mới luôn là M28? Tất nhiên chỉ chuyển sang M28 khi SelectItem > 0?
Nếu thế thì

... 
If SelectItem = 0 Then
       MsgBox "Ban da khong chon ten nao trong danh sach !" 
else
     ActiveCell.Offset(0, 1).Select 
End If

----------
Code hiện thời tôi thấy không thân thiện với người dùng. Người ta bỏ công Tìm rồi nhấn Chọn nhưng chỉ vì lơ đãng không đánh dấu mục nào trong ListBox thì bạn chỉ thông báo rồi đóng Form. Người ta lại phải mở Form, Tim, Chon ... Mất công quá. Code nên cho họ cơ hội "sửa sai". Tức thông báo nhưng không đóng Form. Ví dụ thay vì:

... 
If SelectItem = 0 Then
       MsgBox "Ban da khong chon ten nao trong danh sach !" 
else
     ActiveCell.Offset(0, 1).Select 
End If 
Unload Me

thì theo tôi nên

... 
If SelectItem = 0 Then
       MsgBox "Ban da khong chon ten nao trong danh sach !" 
else
     ActiveCell.Offset(0, 1).Select
     Unload Me 
End If

-----------------
Ôi, xin lỗi. Sau K là L chứ không phải M.
Phải là ActiveCell.Offset(0, 2).Select

 

[Hong.Van]

-----------------
Ôi, xin lỗi. Sau K là L chứ không phải M.
Phải là ActiveCell.Offset(0, 2).Select

Hi, cái này em tự xử lý được mà!
Một lần nữa, em xin cảm ơn sự hỗ trợ của Thầy!