Gavin có một trang tính lớn mà anh ấy làm việc và anh ấy thấy hữu ích khi sử dụng công cụ Trace Precedents (trên tab Công thức của dải băng) để tìm hiểu điều gì đang xảy ra. Gavin muốn cài đặt của công cụ được “bật” ngay cả khi anh ấy lưu sổ làm việc, nhưng Excel không cho phép anh ấy làm điều này. Anh ấy tự hỏi liệu có cách nào để bật nó lên để các tiền lệ luôn được đánh dấu trong sổ làm việc không.

Người ta sẽ nghĩ rằng sẽ tương đối dễ dàng để bật các tiền lệ, thông qua macro, khi bạn mở một sổ làm việc. Tất cả những gì bạn cần làm là sử dụng một macro như sau:

Sub ShowTracePrecendents1()

Dim rng As Range     Dim c As Range

With ActiveSheet.UsedRange         Set rng = .Cells.SpecialCells(xlCellTypeFormulas, 23)

End With     Application.ScreenUpdating = False

For Each c In rng         c.ShowPrecedents      Next End Sub

Macro xác định ô nào trong trang tính chứa công thức (chỉ các ô chứa công thức mới có thể có tiền lệ) và sau đó bước qua từng ô đó, bật hiển thị tiền lệ.

Tất nhiên, vấn đề là cách tiếp cận này không thực hiện chính xác những gì Gavin muốn. Có khả năng Gavin, khi làm việc với dữ liệu của mình, không bật tiền lệ cho từng ô mà chỉ cho một số ô. Macro bật hiển thị tiền lệ cho tất cả các ô có thể có trong trang tính. Nếu bạn chỉ muốn hiển thị tiền lệ cho một số ô, bạn cần chỉ định các ô trong macro.

Sub ShowTracePrecendents2()

Dim rng As Range     Dim c As Range

Set rng = Range("G1:G5,G7:G8")

For Each c In rng         c.ShowPrecedents     Next End Sub

Để sử dụng macro một cách hiệu quả, bạn cần phải thay đổi dòng đặt biến rng để nó tham chiếu đến các ô mà bạn muốn hiển thị tiền lệ.

Bất kể bạn sử dụng macro nào, bạn có thể tạo “tự động mở”

macro (như đã thảo luận trong ExcelTips khác) sẽ tự động chạy nó bất cứ khi nào sổ làm việc được mở.

_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 (13161) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365.