Làm cách nào để đánh dấu tất cả các ô được tham chiếu bởi một công thức trong Excel?
Bài viết này nói về cách làm nổi bật tất cả các ô được tham chiếu bởi một công thức trong Excel. Vui lòng làm theo hai phương pháp dưới đây để hoàn thành.
Đánh dấu tất cả các ô được tham chiếu bởi một công thức bằng phím tắt
Đánh dấu tất cả các ô được tham chiếu bởi công thức có mã VBA
Đánh dấu tất cả các ô được tham chiếu bởi một công thức bằng phím tắt
Phần này sẽ khuyến nghị bạn sử dụng phím Phím tắt để chọn tất cả các ô được tham chiếu bởi một công thức và sau đó tô màu theo cách thủ công cho chúng.
1. Giả sử E1 là một ô công thức và bạn cần đánh dấu tất cả các ô được tham chiếu bởi nó. Vui lòng chọn ô công thức E1, sau đó nhấn Ctrl + [ (dấu ngoặc vuông mở) đồng thời.
2. Bây giờ các ô được tham chiếu bởi công thức này đã được chọn, vui lòng chỉ định màu tô để tô sáng chúng. Xem ảnh chụp màn hình:
Đánh dấu tất cả các ô được tham chiếu bởi công thức có mã VBA
Bạn cũng có thể chạy mã VBA để đánh dấu tất cả các ô được tham chiếu bởi một công thức trong Excel.
1. nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng nhấp vào Chèn > Mô-đun. Sau đó sao chép và dán mã VBA bên dưới vào cửa sổ Mô-đun.
Mã VBA: Đánh dấu tất cả các ô được tham chiếu bởi một công thức trong Excel
Sub HighlightCellsReferenced()
Dim rowCnt As Integer
Dim i As Integer, j As Integer, strleng As Integer
Dim strTxt As String, strFml As String
Dim columnStr, cellsAddress As String
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Please select formula cell(s)...", _
Title:="Kutools For Excel", Type:=8)
strTxt = ""
Application.ScreenUpdating = False
For Each yRg In xRg
If yRg.Value <> "" Then
strFml = yRg.Formula + " "
strFml = Replace(strFml, "(", " ")
strFml = Replace(strFml, ")", " ")
strFml = Replace(strFml, "-", " ")
strFml = Replace(strFml, "+", " ")
strFml = Replace(strFml, "*", " ")
strFml = Replace(strFml, "/", " ")
strFml = Replace(strFml, "=", " ")
strFml = Replace(strFml, ",", " ")
strFml = Replace(strFml, ":", " ")
For j = 1 To Len(strFml)
If Mid(strFml, j, 1) <> " " Then
cellsAddress = cellsAddress + Mid(strFml, j, 1)
Else
On Error Resume Next
Range(cellsAddress).Interior.ColorIndex = 3
cellsAddress = ""
End If
Next
End If
Next yRg
Application.ScreenUpdating = True
End Sub3. Nhấn nút F5 phím để chạy mã. Trong cửa sổ bật lên Kutools cho Excel hộp thoại, vui lòng chọn một ô công thức hoặc nhiều ô công thức mà bạn cần đánh dấu các ô được tham chiếu dựa trên, rồi bấm vào OK cái nút. Xem ảnh chụp màn hình:
Bây giờ tất cả các ô được tham chiếu dựa trên (các) ô công thức đã chọn được đánh dấu màu đỏ ngay lập tức như hình minh họa bên dưới.
Các bài liên quan:
- Làm thế nào để giữ tham chiếu ô công thức không đổi trong Excel?
- Làm cách nào để tham chiếu tên tab trong ô 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!
