Andrew có một sổ làm việc có một số macro tốt trong đó. Anh ấy muốn tạo một danh sách tất cả các macro mà nó chứa, vì vậy anh ấy tự hỏi liệu có cách nào để hoàn thành nhiệm vụ không.

Không có cách nào bên trong Excel để tạo danh sách các macro. Tuy nhiên, bạn có thể tạo một macro sẽ liệt kê các macro của bạn. (Sắp xếp âm thanh thừa phải không?)

Ví dụ, hãy xem xét macro sau, bước qua tất cả các dự án trong sổ làm việc của bạn để thu thập tất cả các tên macro và đặt chúng trong một trang tính:

Sub ListMacros()

Dim VBComp As VBComponent     Dim wsTarget As Worksheet     Dim StartLine As Long     Dim iRow As Integer

Application.ScreenUpdating = False

Set wsTarget = Worksheets.Add     wsTarget.Range("A1") = "Macro"

wsTarget.Range("A1").Font.Bold = True     With wsTarget.Range("A1").Borders(xlEdgeBottom)

.LineStyle = xlContinuous         .ColorIndex = 0         .TintAndShade = 0         .Weight = xlThin     End With

iRow = 2

For Each VBComp In ThisWorkbook.VBProject.VBComponents         With VBComp.CodeModule             StartLine = .CountOfDeclarationLines + 1             Do Until StartLine >= .CountOfLines                 wsTarget.Cells(iRow, 1) = _                   .ProcOfLine(StartLine, vbext_pk_Proc)

iRow = iRow + 1                 StartLine = StartLine + _                   .ProcCountLines(.ProcOfLine(StartLine, _                   vbext_pk_Proc), vbext_pk_Proc)

Loop         End With     Next VBComp

wsTarget.Range("A1").EntireColumn.AutoFit     Application.ScreenUpdating = True End Sub

Để sử dụng macro này, bạn phải đảm bảo rằng bạn có bộ tham chiếu khả năng mở rộng VBA của Microsoft. Để thực hiện việc này, hãy làm theo các bước sau:

  1. Trong VBA Editor, chọn Tham chiếu từ menu Công cụ. Hộp thoại Tham khảo được hiển thị.

  2. Cuộn qua danh sách Tham chiếu Có sẵn và đảm bảo hộp kiểm Microsoft Visual Basic cho Ứng dụng Mở rộng được chọn. (Có thể có số phiên bản ở cuối tài liệu tham khảo, nhưng nó phải bắt đầu bằng các từ được ghi chú.) (Xem Hình 1.)

  3. Đóng hộp thoại.

Bạn cũng sẽ cần thực hiện thay đổi nhanh chóng trong cài đặt Trung tâm tin cậy của mình.

Làm theo các bước sau:

  1. Trong nhóm Mã, bấm vào công cụ Bảo mật Macro. Excel sẽ hiển thị hộp thoại Trung tâm Tin cậy với các tùy chọn Cài đặt Macro được chọn ở bên trái. (Xem Hình 2.)

  2. Đảm bảo rằng tùy chọn Trust Access vào VBA Project Object Model được chọn.

  3. Bấm OK.

Khi bạn chạy macro, nó sẽ thêm một trang tính mới vào sổ làm việc của bạn, sau đó liệt kê tên của tất cả các macro trong tất cả các mô-đun trong sổ làm việc.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (5225) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: