Tạo danh sách tất cả các phần bổ trợ Excel bằng macro VBA

Mục lục

Bằng cách này, bạn có thể hiển thị danh sách được kiểm soát bằng macro của tất cả các phần bổ trợ và xem ngay lập tức những bổ trợ nào được bật và những bổ trợ nào không

Bạn có muốn truy vấn phần bổ trợ nào được thiết lập trên hệ thống được kiểm soát bằng macro không? Ví dụ: điều này hữu ích để xem liệu người dùng đã thiết lập tất cả các phần bổ trợ dự định hay chưa.

Bạn có thể cài đặt bổ trợ để mở rộng các hàm Excel. Đây là các tiện ích mở rộng chương trình được thiết lập bằng Trình quản lý bổ trợ. Bạn có thể tìm thấy lệnh này khi sử dụng Excel lên đến phiên bản 2003 thông qua menu EXTRAS-ADD-INS.

Nếu bạn đang sử dụng Excel 2007, hãy gọi lên danh sách này bằng cách sử dụng nút Office và sau đó TÙY CHỌN TUYỆT ĐỐI - THÊM - ĐI ĐẾN.

Nếu bạn đang sử dụng Excel 2010, hãy nhấp vào TỆP, sau đó nhấp vào TÙY CHỌN và sau đó nhấp vào THÊM - ĐI ĐẾN.

Nếu bạn muốn giải quyết danh sách từ macro, hãy sử dụng đối tượng AddIns. Macro sau đây hiển thị danh sách tất cả các phần bổ trợ trong bảng tính Excel mới. Đối với mỗi mục nhập trong danh sách, một giá trị logic cho biết liệu bổ trợ thích hợp đã được cài đặt hay chưa. Đây là những gì macro trông giống như:

Sub ShowAddIns ()
Dim i As Integer
Với Workbooks.Add.Worksheets (1)
Đối với i = 1 Để AddIns.Count
.Cells (i + 1, 1) .Value = AddIns (i) .FullName
.Cells (i + 1, 2) .Value = AddIns (i) .Installed
Tiếp theo tôi
.Range ("a1: b1"). Value = Array ("Add-In", "Installed")
.Range ("a1: b1"). Font.Bold = True
.Range ("a1: b1"). EntireColumn.AutoFit
Kết thúc với
Kết thúc Sub

Sau khi bắt đầu, macro sẽ tạo một danh sách các phần bổ trợ. Hình minh họa sau đây cho thấy danh sách này có thể trông như thế nào:

Sử dụng thuộc tính Name thay vì thuộc tính FullName nếu bạn không muốn đọc đường dẫn đầy đủ mà chỉ đọc tên tệp của phần bổ trợ.

Để nhập macro, hãy nhấn tổ hợp phím ALT F11 trong Excel. Điều này sẽ gọi trình soạn thảo VBA. Sử dụng lệnh INSERT - MODULE để chèn một trang mô-đun trống. Để bắt đầu macro, hãy nhấn tổ hợp phím ALT F8 trong Excel.

Bạn sẽ giúp sự phát triển của trang web, chia sẻ trang web với bạn bè

wave wave wave wave wave