Bài tập tốt nghiệp, quản lý hợp đồng bằng Excel VB (2 người xem)

[pth_gpex]

Mong các anh chị thầy cô giúp đỡ em hoàn thành bài tập này.
Chỉ có sự hướng dẫn bên ngoài em mới hoàn thành nổi.
Yêu cầu của bài tập ở trong file luôn ạ!
Mong cao thủ chỉ giáo tường tận ạ!

 

[be_09]

Mong các anh chị thầy cô giúp đỡ em hoàn thành bài tập này.
Chỉ có sự hướng dẫn bên ngoài em mới hoàn thành nổi.
Yêu cầu của bài tập ở trong file luôn ạ!
Mong cao thủ chỉ giáo tường tận ạ!

Thầy nào cho đề bài hơi kỳ cục:

- Theo tôi sheet DMKH và sheet DMHĐ là không cần thiết vì có sheet TỔNG HỢP đã đáp ứng được yêu cầu theo dõi, quản lý hợp đồng.

- Việc trích lọc thì dựa vào sheet TỔNG HỢP để trích lọc theo tiêu chí mình cần.

- Cột Tên KH Công ty và cột Tên KH Cá nhân của sheet TỔNG HỢP nên gộp thành 1 cột và thêm cột phân loại sẽ tổng hợp được cùng lúc cá nhân và tổ chức.

Còn muốn sheet Form nhập liệu vào cùng lúc 3 sheet là sheet DMKH, sheet DMHĐ và sheet TỔNG HỢP thì cũng được, nhưng thầy nào ra đề kiểu này là làm khó sinh viên.

 

[pth_gpex]

Em thấy Be9 nói cũng có lý, nhưng em hỏi lại thầy rồi, phân ra 2 bảng DM để cho gọn và không rối mắt. In ra cũng dễ.
Tên KH Cty và cá nhân tách biệt là có lý do vì thực tế công ty TNHH ở ngoài lúc nào cũng có 2 mảng nội bộ và bên thuế
Giờ em rối rắm mấy Code VB để copy dữ liệu sau mỗi lần click, em làm hoài không được vì không có trình độ về VB. Nhất là code copy ô rời rạc của sheet này sang thành từng ô theo dòng của sheet khác.
Có ai chỉ giúp em với, đau cả mắt tuần nay vì kiếm code.

 

[Let'GâuGâu]

Em thấy Be9 nói cũng có lý, nhưng em hỏi lại thầy rồi, phân ra 2 bảng DM để cho gọn và không rối mắt. In ra cũng dễ.
Tên KH Cty và cá nhân tách biệt là có lý do vì thực tế công ty TNHH ở ngoài lúc nào cũng có 2 mảng nội bộ và bên thuế
Giờ em rối rắm mấy Code VB để copy dữ liệu sau mỗi lần click, em làm hoài không được vì không có trình độ về VB. Nhất là code copy ô rời rạc của sheet này sang thành từng ô theo dòng của sheet khác.
Có ai chỉ giúp em với, đau cả mắt tuần nay vì kiếm code.

Nhiều quá làm ko nổi
làm từng cái một thôi
code cho nhập DMKH

Sub NhapDMKH()
With Sheet2
.[b6000].End(3).Offset(1).Resize(, 6).Value = Application.WorksheetFunction.Transpose([D11:D16])
.[A6000].End(3).Offset(1).Value = .[A6000].End(3) + 1
End With
End Sub

 

[pth_gpex]

Cảm ơn bạn, nhưng sao kì quá, khi DMKH mình xóa hết dữ liệu và bắt đầu nhập mới từ form, click nhập DMKH nó End - Debug tùm lum hà. Code không chạy được từ ban đầu mà phải chạy y như bảng mình đã ghi sẵn hả bạn ơi, phải chỉnh làm sao? Giúp em với!

 

[Let'GâuGâu]

Cảm ơn bạn, nhưng sao kì quá, khi DMKH mình xóa hết dữ liệu và bắt đầu nhập mới từ form, click nhập DMKH nó End - Debug tùm lum hà. Code không chạy được từ ban đầu mà phải chạy y như bảng mình đã ghi sẵn hả bạn ơi, phải chỉnh làm sao? Giúp em với!

một khi bạn đã bước chân vào con đường vba thì nó debug thì bạn phải tìm hiểu xem nó lổi ở dòng lệnh nào, chứ mà nói nó tùm lum thì potay

Sub NhapDMKH()
With Sheet2
.[b6000].End(3).Offset(1).Resize(, 6).Value = Application.WorksheetFunction.Transpose([D11:D16])
[COLOR=#ff0000].[A6000].End(3).Offset(1).Value = .[A6000].End(3).Row - 4[/COLOR]
End With
End Sub

nó bị lổi ở dòng màu đỏ (tôi đã sửa lại)

 

[pth_gpex]

Vâng, cảm ơn bạn nhiều lắm, thông cảm cho tôi với vì không hiểu lắm nên mới nói vậy. Rất cảm ơn bạn!
Bạn ơi, còn code để lọc autofilter advanced bạn có thể giúp mình không?

 

[Let'GâuGâu]

Vâng, cảm ơn bạn nhiều lắm, thông cảm cho tôi với vì không hiểu lắm nên mới nói vậy. Rất cảm ơn bạn!
Bạn ơi, còn code để lọc autofilter advanced bạn có thể giúp mình không?

Sub loc()
With Sheet6
.[L15:U10000].Clear
.[A5:J10000].AdvancedFilter 2, [L5:U6], [L15]
End With
End Sub

 

[be_09]

Em thấy Be9 nói cũng có lý, nhưng em hỏi lại thầy rồi, phân ra 2 bảng DM để cho gọn và không rối mắt. In ra cũng dễ.
Tên KH Cty và cá nhân tách biệt là có lý do vì thực tế công ty TNHH ở ngoài lúc nào cũng có 2 mảng nội bộ và bên thuế
Giờ em rối rắm mấy Code VB để copy dữ liệu sau mỗi lần click, em làm hoài không được vì không có trình độ về VB. Nhất là code copy ô rời rạc của sheet này sang thành từng ô theo dòng của sheet khác.
Có ai chỉ giúp em với, đau cả mắt tuần nay vì kiếm code.

Bạn chỉ cần 1 sheet tổng là đủ, ckhi cần muốn tách ra thành sheet tổ chức, cá nhân thì đâu có gì là khó hoặc có thể tách sheet ra theo từng cột nào cần tách cũng được nốt.

Chính bạn sử dụng kiểu đó với nhiều sheet thì càng rối và phức tạp hơn (nếu muốn sửa dữ liệu thì phải sửa cả 2 sheet cùng lúc), nếu quên chỉ sửa 1 sheet khi số liệu chênh lệch thì đi tìm cho đỏ con mắt.

 

[pth_gpex]

Mình cũng muốn thiết kế lại cái bài này 1 chút nhưng ý tưởng thì có nhưng năng lực máy tính có hạn nên lần chần không làm được gì hết. Cảm ơn Be09 nhé! Mình sẽ nghĩ thêm 1 chút cho đỡ rối, rồi mong mọi người giúp đỡ code 1 chút!

 

[be_09]

Mình cũng muốn thiết kế lại cái bài này 1 chút nhưng ý tưởng thì có nhưng năng lực máy tính có hạn nên lần chần không làm được gì hết. Cảm ơn Be09 nhé! Mình sẽ nghĩ thêm 1 chút cho đỡ rối, rồi mong mọi người giúp đỡ code 1 chút!

Vế trích lọc theo yêu cầu của bạn thì,
Let'GâuGâu

Đã có trả lời rồi, còn bạn cần gì nữa thì phải nêu rõ, ví dụ:

Từ sheet TỔNG HỢP cần tách ra mỗi khách hàng hoặc mỗi công ty riêng từng sheet, nói chung bạn cần gì thì phải nêu thật cụ thể cái bạn cần và đưa ra kết quả các thành viên mới hiểu mà giúp cho bạn, còn nói chung chung thì bó tay.

 

[pth_gpex]

Bây giờ mình có File tên DM với 1 sheet đặt tên là TH. Tại ô C8 mình muốn có công thức để lấy giá trị của ô A1 trong sheet1 của File tên KH1.
Mình cần có code để khi mình tạo ra File tên KH2 thì giá trị ô A1 trong sheet1 file này sẽ nằm trong ô C9 của sheet TH (File DM).
Lặp đi lặp lại khi mình tạo File KHn thì sẽ được danh sách trong File DM.
Bạn có thể giúp mình với!