วิธีการเน้นเซลล์ทั้งหมดที่อ้างอิงโดยสูตรใน Excel

บทความนี้จะอธิบายวิธีการเน้นข้อความในเซลล์ทั้งหมดที่อ้างอิงด้วยสูตรใน Excel โปรดทำตามสองวิธีด้านล่างเพื่อดำเนินการนี้

เน้นเซลล์ทั้งหมดที่อ้างอิงโดยสูตรด้วยปุ่มทางลัด
เน้นเซลล์ทั้งหมดที่อ้างอิงโดยสูตรด้วยรหัส VBA

เน้นเซลล์ทั้งหมดที่อ้างอิงโดยสูตรด้วยปุ่มทางลัด

คุณสามารถใช้ปุ่มลัดเพื่อเลือกเซลล์ทั้งหมดที่อ้างอิงโดยสูตร จากนั้นจึงเติมสีให้กับเซลล์เหล่านั้นด้วยตนเอง

1. สมมติว่า E1 เป็นเซลล์สูตรและคุณต้องเน้นเซลล์ทั้งหมดที่อ้างถึง กรุณาเลือกเซลล์สูตร E1 จากนั้นกด Ctrl + [ (วงเล็บเหลี่ยมเปิด) พร้อมกัน

2. ตอนนี้เซลล์ที่อ้างอิงโดยสูตรนี้ถูกเลือกแล้วโปรดระบุสีเติมเพื่อเน้น ดูภาพหน้าจอ:

เน้นเซลล์ทั้งหมดที่อ้างอิงโดยสูตรด้วยรหัส VBA

นอกจากนี้คุณยังสามารถเรียกใช้โค้ด VBA เพื่อเน้นเซลล์ทั้งหมดที่อ้างอิงโดยสูตรใน Excel ได้

1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: เน้นเซลล์ทั้งหมดที่อ้างอิงโดยสูตรใน 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 Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการโผล่ขึ้นมา Kutools สำหรับ Excel โปรดเลือกเซลล์สูตรหรือเซลล์สูตรหลายเซลล์ที่คุณต้องการเพื่อเน้นเซลล์ที่อ้างอิงตามจากนั้นคลิก OK ปุ่ม. ดูภาพหน้าจอ:

ตอนนี้เซลล์ที่อ้างอิงทั้งหมดตามเซลล์สูตรที่เลือกจะถูกไฮไลต์ด้วยสีแดงทันทีที่แสดงภาพหน้าจอด้านล่าง

บทความที่เกี่ยวข้อง:

• วิธีทำให้การอ้างอิงเซลล์สูตรคงที่ใน Excel
• วิธีอ้างอิงชื่อแท็บในเซลล์ใน Excel