Làm thế nào để liệt kê tất cả các công thức trong Excel?
Thông thường, trong Excel, chúng ta có thể nhanh chóng hiển thị các công thức trong ô, nhưng Excel không cung cấp tính năng liệt kê tất cả các công thức trong một trang tính. Liệt kê tất cả các công thức của một trang tính có thể giúp chúng tôi theo dõi các giá trị ô bằng các công thức thực của nó. Ở đây, tôi có thể nói về việc tạo mã VBA để giải quyết vấn đề này.
Liệt kê tất cả các công thức của một trang tính với mã VBA
Liệt kê tất cả các công thức của một trang tính với mã VBA
Đoạn mã VBA sau sẽ giúp bạn liệt kê các công thức của một vùng chọn hoặc một trang tính, vui lòng thực hiện như sau:
1. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.
Mã VBA: Liệt kê tất cả các công thức của một trang tính
Sub ListFormulas()
'Update 20141027
Dim Rng As Range
Dim WorkRng As Range
Dim xSheet As Worksheet
Dim xRow As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlFormulas, 23)
If WorkRng Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xSheet = Application.ActiveWorkbook.Worksheets.Add
xSheet.Range("A1:C1") = Array("Address", "Formula", "Value")
xSheet.Range("A1:C1").Font.Bold = True
xRow = 2
For Each Rng In WorkRng
xSheet.Cells(xRow, 1) = Rng.Address(RowAbsolute:=False, ColumnAbsolute:=False)
xSheet.Cells(xRow, 2) = " " & Rng.Formula
xSheet.Cells(xRow, 3) = Rng.Value
xRow = xRow + 1
Next
xSheet.Columns("A:C").AutoFit
Application.ScreenUpdating = True
End Sub
3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc sẽ bật ra để nhắc bạn chọn một phạm vi hoặc toàn bộ trang tính mà bạn muốn liệt kê các ô công thức của nó, xem ảnh chụp màn hình:
4. Và sau đó nhấp vào OK, các công thức trong lựa chọn của bạn đã được liệt kê cùng một lúc trong một trang tính mới ở phía trước trang tính đang hoạt động của bạn có chứa thông tin về địa chỉ ô, công thức và giá trị như ảnh chụp màn hình sau:
Các bài liên quan:
Làm thế nào để chuyển đổi công thức thành chuỗi văn bản trong Excel?
Làm thế nào để chuyển đổi chuỗi văn bản thành công thức trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!