Conas aird a tharraingt ar gach cealla dá dtagraítear le foirmle in Excel?

Tá an t-alt seo ag caint ar aird a tharraingt ar na cealla go léir a ndearnadh tagairt dóibh le foirmle in Excel. Lean an dá mhodh thíos le do thoil chun é a chur i gcrích.

Aibhsigh na cealla go léir dá dtagraítear le foirmle le heochair Aicearra
Aibhsigh na cealla go léir dá dtagraítear le foirmle le cód VBA

Aibhsigh na cealla go léir dá dtagraítear le foirmle le heochair Aicearra

Molfaidh an chuid seo duit eochair Aicearra a úsáid chun na cealla go léir a ndearnadh tagairt dóibh le foirmle a roghnú, agus ansin dath a líonadh dóibh de láimh.

1. Cill fhoirmle is ea E1 a sholáthar, agus ní mór duit aird a tharraingt ar na cealla go léir a ndearna sí tagairt dóibh. Roghnaigh cill fhoirmle E1 le do thoil, ansin brúigh Ctrl + [ (an lúibín cearnóg oscailte) eochracha ag an am céanna.

2. Anois go roghnaítear cealla a ndéanann an fhoirmle seo tagairt dóibh, sonraigh dath líonta le haird a tharraingt orthu. Féach an pictiúr:

Aibhsigh na cealla go léir dá dtagraítear le foirmle le cód VBA

Is féidir leat cód VBA a rith freisin chun aird a tharraingt ar na cealla go léir a ndearnadh tagairt dóibh le foirmle in Excel.

1. Brúigh Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil le do thoil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an Mhodúil.

Cód VBA: Cuir béim ar gach cealla dá dtagraítear le foirmle in 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. Brúigh an F5 eochair chun an cód a rith. Sa popping suas Kutools le haghaidh Excel bosca dialóige, roghnaigh cill fhoirmle nó cealla foirmle iolracha le do thoil a gcaithfidh tú aird a tharraingt ar chealla tagartha bunaithe ar, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

Anois aibhsítear na cealla tagartha go léir atá bunaithe ar an gcill / na cealla foirmle roghnaithe i ndath dearg díreach mar a thaispeántar thíos.

Earraí gaolmhara:

• Conas tagairt cille foirmle a choinneáil seasmhach in Excel?
• Conas tagairt a dhéanamh d’ainm cluaisín i gcill in Excel?