quangminhici
Thành viên chính thức
- Tham gia
- 7/2/12
- Bài viết
- 73
- Được thích
- 53
Chào các anh chị và các bạn, lâu quá không có lên diễn đàn, nay rảnh rỗi có dịp quay lại nên xin đóng góp một chút, một bộ công cụ Addin do mình tổng hợp, có code mình viết, có code của người khác (sorry do hầu hết các code nếu của người khác mình đều sửa lại nên không để nguồn). Hi vọng có thể giúp ích được phần nào cho các bạn đang làm quen VBA có nhu cầu học hỏi và tham khảo. Nếu có lỗi trong quá trình sử dụng xin vui lòng cho mình biết cụ thể lỗi để có thể fix kịp thời, xin cảm ơn.
Chức năng | Sử dụng |
| - Print Title: In các file excel có sử dụng chức năng lặp lại dòng tiêu đề (Print title) nhưng có thể tắt dòng tiêu đề này ở các trang sau không liên quan. (Vd: ở trang 1 và 2 cần lặp lại tiêu đề nhưng trang 3 và 4 lại không cần) | - Khi sử dụng chức năng này cần đặt Pagebreak (Page Layout - Breaks - Insert Page Break) 2 lần, 1 lần ngay phía dưới trang lặp lại tiêu đề (VD dưới trang 2), 1 lần ngay phía dưới dòng cuối cùng của toàn bộ văn bản (VD phía dưới trang 4) - Do công cụ chỉ chấp nhận in khi có 2 pagebreak (nếu ít hay nhiều hơn sẽ không in được) nên có công cụ Remove Pagebreak để xóa nhanh tất cả các Pagebreak trong sheet hiện hành. |
| - Change Text Format: chuyển dạng chữ của vùng chọn thành Upper (viết hoa tất cả) - Proper (viết hoa chữ cái đầu mỗi chữ) - Lower (viết thường) thay phiên nhau sau mỗi lần bấm. Lưu ý nếu vùng chọn có công thức sẽ bị chuyển thành giá trị. - Cũng có thể sử dụng chức năng này để chuyển vùng chọn là số nhưng dạng Text sang dạng số Value. - Auto number value: đánh số thứ tự tự động, cho phép chọn giá trị bắt đầu đánh số, giá trị sẽ là value. Chức năng này cho phép chọn số bắt đầu bất kỳ. - Auto number Formula: đánh số thứ tự tự động, giá trị sẽ là công thức subtotal. Sử dụng chức năng này số thứ tự sẽ đánh tự động cả khi sử dụng filter và không filter. - Cả 2 chức năng đều cho phép sử dụng trong vùng filter. | - Chọn vùng cần chuyển và chọn chức năng này. - Auto number Formula: sau khi chọn chức năng này cần chọn cột gốc là một cột không có ô trống, nếu có ô trống thì các ô trống sẽ có số thứ tự giống phía trên. |
| - Select Top/Left Cell: chọn vùng nhanh từ cell hiện hành Lên/Qua trái tới đầu Cột/Dòng. - Select Bottom/Right Cell: chọn vùng nhanh từ cell hiện hành Xuống/Qua phải tới vùng cuối cùng có dữ liệu. - Formula To Value: chuyển nhanh công thức thành giá trị thay vì phải sử dụng chức năng Copy - Paste value. Tính năng này có thể chuyển giá trị cả trong vùng đang Filter. (Phím tắt Ctrl + M) - Auto Fit Column: tự động fit cột vừa với nội dung, có 2 chức năng fit tất cả các cột và fit cột hiện hành (Phím tắt Ctrl + L) | - Chọn vùng nhanh: tại cell hiện hành chọn chức năng này. - 123: chọn vùng chứa công thức và chọn chức năng này. - Fit cột: quá đơn giản không cần hướng dẫn. |
| - Insert Column/Row: Chèn cột hoặc dòng với số lượng tùy chọn. - Unhide all Columns/Rows: Tắt ẩn tất cả dòng/cột (sử dụng chức năng hide) - Fill Color Row: Tô màu xen kẽ cho các dòng trong vùng chọn. | - Chọn chức năng và nhập số lượng Cột/Dòng cần Insert. - Tắt ẩn: bấm vào là được - Chọn vùng chọn trước rồi sử dụng chức năng này. |
| - Delete all Shapes: Xóa tất cả shape trong sheet hiện hành. Cẩn thận khi sử dụng công cụ này. | - Quá đơn giản không cần hướng dẫn. |
| - Fill Blank Cells: Điền dữ liệu vào các ô trống trong vùng chọn bằng dữ liệu ngay phía trên mỗi ô trống. Nếu vùng chứa công thức thì sau khi sử dụng chức năng này sẽ chuyển thành value. - Lưu ý dòng trên cùng của vùng chọn không được có ô trống. | - Chọn vùng cần điền và chọn chức năng này. |
| - Send Email Active Sheet: xuất sheet hiện hành và đính kèm vào Email mới. (Sẽ tự động paste value khi đính kèm) - Send Email Selected Sheets: xuất nhiều sheets đang chọn vào 1 file và đính kèm vào Email mới. (Giữ nguyên KHÔNG paste value nhưng sẽ Breaklink khi đính kèm) - Send Email Active Range: xuất 1 vùng đang chọn bất kì và đính kèm vào Email mới. (Sẽ tự động paste value khi đính kèm) - Cả 3 chức năng đều cho lựa chọn thêm file đính kèm từ bên ngoài vào Email mới. | - Quá đơn giản không cần hướng dẫn. |
| * Lọc 1 vùng chọn bất kỳ theo điều kiện của 1 cột bất kì trong vùng chọn (điều kiện trong cột sẽ được tự động bỏ trùng) - AF To New Sheet: copy kết quả sang nhiều sheet mới theo từng điều kiện gốc, sheet mới sẽ được tô màu vàng. Sheet gốc vẫn giữ nguyên không ảnh hưởng (VD cần tách tháng trong dữ liệu, mỗi tháng sẽ là 1 sheet riêng, nếu có tên sheet bị trùng với điều kiện xuất thì sheet xuất ra sẽ có thêm chữ "-copy") - AF To PDF file: copy kết quả và tạo thành nhiều file PDF, file xuất ra được lưu trong cùng thư mục với file gốc. Lưu ý thư mục gốc có file trùng tên sẽ bị ghi đè. - AF To Excel file: copy kết quả và tạo thành nhiều file Excel (* .xlsb), file xuất ra được lưu trong cùng thư mục với file gốc. Lưu ý thư mục gốc có file trùng tên sẽ bị ghi đè. - Lưu ý số lượng file và sheet xuất không được > 50 sheets/files, đối với điều kiện xuất sheet quá dài (>23 ký tự) sẽ thông báo không cho xuất vì tên sheet hệ thống không cho đặt tên quá dài) | - Quét vùng dữ liệu và chọn chức năng này, sau đó chọn tiếp cột cần lấy điều kiện để tách sheet/tạo PDF/Excel. |
| - Sheets To PDF: Xuất các sheet có màu vàng thành nhiều file PDF, file được lưu trong cùng thư mục với file đang mở. Lưu ý thư mục gốc có file trùng tên sẽ bị ghi đè. - Sheets To Excel Multi File: Xuất các sheet có màu vàng thành nhiều file Excel, mỗi file tương ứng 1 sheet, file được lưu trong cùng thư mục với file đang mở. Lưu ý thư mục gốc có file trùng tên sẽ bị ghi đè. - Sheets To Excel Single File: Xuất các sheet có màu vàng thành 1 file Excel tổng hợp, dữ liệu sẽ được copy theo thứ tự sheet chính vào file tên "Tổng hợp", Lưu ý: cấu trúc cột trong mỗi sheet nên giống nhau. - Folder List: Liệt kê danh sách file trong thư mục bao gồm cả thư mục con. Chức năng này sẽ tự tạo sheet mới rồi mới liệt kê. - Folder Structure: Copy cấu trúc của 1 thư mục sang một thư mục mới, chỉ copy thư mục, không copy file trong thư mục - Save Mail Attachment: Lưu file đính kèm trong mail Outlook từ 1 thư mục trong Inbox. | - Sheets To PDF/Excel: tô màu vàng những sheet cần xuất PDF/Excel và chọn chức năng này. - Folder List: quá đơn giản không cần hướng dẫn. - Folder Structure: quá đơn giản không cần hướng dẫn. - Save Mail Attachment: chọn đường dẫn sẽ lưu file được save, nhập đúng tên thư mục trong Inbox cần download (lưu ý là chỉ trong Inbox). |
| - Excel Active Sheet: Tổng hợp dữ liệu từ Active Sheet của các file trong cùng 1 thư mục vào file đang mở. Lưu ý: cấu trúc cột trong mỗi sheet nên giống nhau. - Excel All Sheets: Tổng hợp dữ liệu từ tất cả các Sheet của các file trong cùng 1 thư mục vào file đang mở. Lưu ý: cấu trúc cột trong mỗi sheet nên giống nhau. - Merge Same Cell Follow Specific Column: Dùng để Merge các cột trong 1 vùng chọn theo tiêu chí của 1 cột gốc trong vùng. VD có 1 bảng 4 cột gồm "Số hóa đơn - ngày hóa đơn - Sản phẩm - Số tiền", 1 hóa đơn có 3 sản phẩm và ta có nhu cầu merge các cột Số hóa đơn (có cùng số), Ngày hóa đơn (do cùng ngày) theo tiêu chí của cột số hóa đơn, riêng 2 cột Sản phẩm và Số tiền thì giữ nguyên. -Merge Same Cell Above: Merge các cell giống nhau trong cùng 1 cột ở gần nhau, có thể chọn 1 lần nhiều cột. | - Merge Excel Folder: chọn vùng cần paste dữ liệu (trên file đang mở) và chọn thư mục chứa các file gốc cần lấy dữ liệu. - Merge Same Cells: chọn chức năng và làm theo hướng dẫn. |
| - Pivot Layout: Pivot Table nếu chọn định dạng bảng có sẵn thì sẽ không tô màu Subtotal level 3, chức năng này giúp tô màu Subtotal level 3 mà không cần modify lại bảng đã chọn. | - Quá đơn giản không cần hướng dẫn. |
| - Chức năng khi double click vào 1 cell sẽ hiện vùng chọn là cột và dòng hiện hành (thường dùng khi trình chiếu). | - Nhấn vào nút này tuần tự sẽ là tắt và mở chức năng. |
| - VND Formula Option: có các tùy chọn sau: * Tùy chọn Ngàn, Nghìn, Lẻ, Linh khi sử dụng hàm VNDtc. * Có thể tùy chọn có chữ "chẵn" cuối câu hoặc không. * Có thể tùy chọn có dấu chấm cuối câu hoặc không. * Có thể tùy chọn có dấu phẩy ngăn cách giữa Ngàn/Nghìn, Triệu, Tỉ hoặc không. - Email ID: Cài đặt Chữ ký của email trước khi sử dụng chức năng gửi Email. Nếu không thiết lập vẫn gửi email được nhưng không có chữ ký phía dưới mail. (Kiểm tra SignID bằng cách vào Outlook tạo mail mới, chọn tab Insert - Signature sẽ xuất hiện tên chữ ký nếu bạn đã thiết lậo chữ ký mail trên Outlook) | - Tick chọn tùy chọn trong form và thiết lập. Hệ thống sẽ nhớ thiết lập cả trong các lần sử dụng sau. |
| - VNDtc(): đọc từ số sang chữ Việt (không đọc số lẻ như xu, hào…), các thiết lập có thể tùy chỉnh trong "VND Formula Option" tại Tab "Addin Setup" - Rvlookup(): sử dụng tương tự Vlookup nhưng tìm ngược từ bên phải sang bên trái, cột cần tìm sẽ là số âm (-) | - Sử dụng như hàm bình thường. |
Lần chỉnh sửa cuối:
