Tặng anh em file quản lý vật tư

Chia sẻ bởi:hands

★★★★★

‹ Tra cứu Kê Khai Hải Quan nhanh... Lập trình VBA nâng cao: Hàm bắt... ›

Quảng cáo

File làm đơn giản: Nhập dữ liệu trực tiếp trên bảng tính, vài báo cáo cần thiết và phiếu nhập xuất (để in ra chứ không phải để nhập liệu).
Hỗ trợ nhập liệu một vài trường bằng combobox hoặc textbox gắn với cell được chọn.
Có hướng dẫn sơ lược trong file. Tôi có lấy giao diện từ nguồn khác, trong mục hướng dẫn có ghi rõ nguồn.

File có sẵn dữ liệu mẫu. Anh em dùng làm tham khảo và có thể tùy chỉnh giao diện hoặc code cho phù hợp với nhu cầu.
Chắc còn vài lỗi chưa thấy được, anh em nào test thấy phản hồi để tôi chỉnh sửa nhé!

www.giaiphapexcel.com/diendan/threads/t%E1%BA%B7ng-anh-em-file-qu%E1%BA%A3n-l%C3%BD-v%E1%BA%ADt-t%C6%B0.151382/post-985858

Bạn cho hỏi các sheet bị ẩn giờ làm cách nào để mở ra và thiết kế giao diện ở phía trên hay quá, bạn có thể chỉ mình cách thiết kế với. hi.

Hiện sheet trong Option/Advanced của Excel, tuy nhiên tôi đã làm sẵn 1 macro để hiện cho nhanh bằng cách bấm Ctrl+Shift+T.

Còn menu là các shape gắn hypelink thôi. Dùng công cụ Select object chuột phải vào 1 shape nào đó chọn edit hyperlink sẽ thấy. Cần thêm thì copy cái đó ra sửa lại link thôi

Bạn ơi cho mình hỏi code nào để khi sử dụng phím tắt Ctrl+Shift+T thì ẩn đi vậy. Và làm cách nào khi mình liên kết đến các sheet khác thì shape vẫn ở yên 1 chỗ mà vẫn di chuyển đến sheet khác được ( mình thử khi liên kết đến sheet khác thì thanh shape không thấy, mà phải quay lại sheet cũ). hi.

1/ Có 2 phím tắt trong module Action có chú thích rõ đó, gồm:
Sub Hide_UnHide_Header() 'Shortcut Ctrl+Shift+H
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
End Sub

Sub Hide_UnHide_Tab() 'Shortcut Ctrl+Shift+T
ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs
End Sub

2/ Thực ra shape không ở nguyên 1 chỗ mà ở sheet nào ta cũng phải làm nguyên 1 dàn shape như vậy, rồi riêng shape cho sheet hiện hành ta phải tô màu khác các shape khác. Vậy thôi chứ chẳng gì cao siêu.