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 Sub3. 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?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
