Sut i dynnu sylw at bob cell y cyfeirir ati gan fformiwla yn Excel?
Mae'r erthygl hon yn sôn am dynnu sylw at bob cell y cyfeiriwyd ati gan fformiwla yn Excel. Dilynwch y ddau ddull isod i'w gyflawni.
Tynnwch sylw at bob cell y cyfeirir ati gan fformiwla ag allwedd Shortcut
Tynnwch sylw at bob cell y cyfeirir ati gan fformiwla gyda chod VBA
Tynnwch sylw at bob cell y cyfeirir ati gan fformiwla ag allwedd Shortcut
Bydd yr adran hon yn eich argymell i ddefnyddio allwedd Shortcut i ddewis pob cell y cyfeiriwyd ati gan fformiwla, ac yna llenwi lliw iddynt â llaw.
1. Mae cyflenwi E1 yn gell fformiwla, ac mae angen i chi dynnu sylw at yr holl gelloedd y cyfeiriwyd ati. Dewiswch y gell fformiwla E1, yna pwyswch Ctrl + [ (y braced sgwâr agored) allweddi ar yr un pryd.
2. Nawr bod celloedd y cyfeirir atynt gan y fformiwla hon yn cael eu dewis, nodwch liw llenwi i'w hamlygu. Gweler y screenshot:
Tynnwch sylw at bob cell y cyfeirir ati gan fformiwla gyda chod VBA
Gallwch hefyd redeg cod VBA i dynnu sylw at yr holl gelloedd y cyfeiriwyd atynt gan fformiwla yn Excel.
1. Gwasgwch Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Modiwl.
Cod VBA: Tynnwch sylw at bob cell y cyfeirir ati gan fformiwla yn 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. Gwasgwch y F5 allwedd i redeg y cod. Yn y popping up Kutools ar gyfer Excel blwch deialog, dewiswch gell fformiwla neu gelloedd fformiwla luosog y mae angen i chi dynnu sylw atynt mewn celloedd y cyfeirir atynt, ac yna cliciwch ar y OK botwm. Gweler y screenshot:
Nawr mae'r holl gelloedd y cyfeirir atynt yn seiliedig ar y gell (iau) fformiwla a ddewiswyd yn cael eu hamlygu mewn coch ar unwaith fel y dangosir isod y screenshot.
Erthyglau perthnasol:
- Sut i gadw cyfeirnod celloedd fformiwla yn gyson yn Excel?
- Sut i gyfeirio enw tab yn y gell yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!