Sut i dynnu sylw at destun penodol mewn cell yn seiliedig ar destun arall?
Yn Excel, gallai fod yn hawdd inni dynnu sylw at y celloedd yn seiliedig ar destun penodol, ond, yma, rwyf am dynnu sylw at destun penodol mewn cell i'w wneud yn rhagorol ond nid y gell gyfan. Efallai bod hyn yn drafferthus i'r mwyafrif ohonom. Yr erthygl hon, byddaf yn siarad am rai triciau ar gyfer datrys y swydd hon yn Excel.
Tynnwch sylw at un neu fwy o destun penodol o fewn celloedd lluosog sydd â chod VBA
Er enghraifft, mae gen i ystod o dannau testun, a nawr, rydw i am dynnu sylw at y testun penodol “Sky”Yn y celloedd hyn i gael y canlyniad fel y dangosir sgrinluniau canlynol:
 |
 |
 |
I dynnu sylw at ran yn unig o destun mewn cell, gall y cod VBA canlynol eich helpu.
1. Dewiswch y celloedd rydych chi am dynnu sylw at y testun penodol, ac yna daliwch y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Tynnwch sylw at ran o destun mewn cell:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
cFnd = InputBox("Enter the text string to highlight")
y = Len(cFnd)
For Each Rng In Selection
With Rng
m = UBound(Split(Rng.Value, cFnd))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, cFnd)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & cFnd
Next
End If
End With
Next Rng
Application.ScreenUpdating = True
End Sub
3. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa i nodi'r testun rydych chi am dynnu sylw ato yn unig, gweler y screenshot:
4. Ac yna cliciwch OK botwm, mae'r holl destun a nodwyd gennych wedi'i amlygu yn y celloedd yn unig, gweler y screenshot:
|
|
|
Cod VBA: Tynnwch sylw at eiriau allweddol lluosog o dannau testun:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Please enter the text, separate them by comma:")
If Len(cFnd) < 1 Then Exit Sub
xArrFnd = Split(cFnd, ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Next
End If
Next xFNum
End With
Next Rng
Application.ScreenUpdating = True
End Sub
Yna, yn y blwch popped out, nodwch yr allweddeiriau rydych chi am dynnu sylw atynt, (gwahanwch y geiriau â choma), gweler y screenshot:
Ac yna, cliciwch OK botwm, mae'r geiriau penodedig wedi'u hamlygu ar unwaith, gweler sgrinluniau:
|
|
 |
Nodyn: Mae'r codau uchod yn sensitif i achosion.
Tynnwch sylw at un neu fwy o destun penodol o fewn celloedd lluosog sydd â nodwedd anhygoel
Os nad ydych chi'n gyfarwydd â'r cod yn Excel, yma, byddaf yn cyflwyno teclyn hawdd - Kutools for Excel, Gyda'i Marc Allweddair nodwedd, gallwch dynnu sylw at yr un allweddair penodol neu fwy ar unwaith yn y celloedd.
Ar ôl gosod Kutools for Excel, gwnewch fel a ganlyn:
1. Cliciwch Kutools > Testun > Marc Allweddair, gweler y screenshot:
2. Yn y Marc Allweddair blwch deialog, gwnewch y gweithrediadau canlynol:
- Dewiswch yr ystod ddata rydych chi am ei defnyddio o'r Ystod blwch testun;
- Dewiswch y celloedd yn cynnwys yr allweddeiriau rydych chi am dynnu sylw atynt, gallwch hefyd nodi'r allweddeiriau â llaw (ar wahân gan atalnod) yn y Keyword blwch testun
- O'r diwedd, dylech nodi lliw ffont ar gyfer tynnu sylw at y testunau â siec Marciwch liwiau allweddair opsiwn. (I liwio'r celloedd cyfan sy'n cynnwys yr allweddeiriau, dewiswch y Marciwch y lliwiau cynnwys celloedd dewisol)
3. Yna, cliciwch Ok botwm, amlygwyd yr holl destunau penodol fel y dangosir isod:
Nodyn: Nid yw'r nodwedd hon yn sensitif i achosion, os ydych chi am dynnu sylw at y testun yn sensitif i achos, gwiriwch Achos Cyfatebol yn y Marc Allweddair blwch deialog.
Tynnwch sylw at destun penodol mewn cell yn seiliedig ar destun arall gyda chod VBA
Dyma sefyllfa arall, mae gen i ddwy golofn y mae'r golofn gyntaf yn cynnwys y tannau testun a'r ail golofn yw'r testun penodol, nawr, mae angen i mi dynnu sylw at y testun cymharol yn y golofn gyntaf yn seiliedig ar y testun penodol yn yr ail golofn ar gyfer pob un rhes.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Tynnwch sylw at ran o destun mewn cell yn seiliedig ar destun arall:
Sub highlight()
'Updateby Extendoffice
Dim xStr As String
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim I As Long
Dim J As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "not support multiple columns"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "the selected range can only contain two columns "
GoTo LInput
End If
For I = 0 To xRg.Rows.Count - 1
xStr = xRg.Range("B1").Offset(I, 0).Value
With xRg.Range("A1").Offset(I, 0)
.Font.ColorIndex = 1
For J = 1 To Len(.Text)
If Mid(.Text, J, Len(xStr)) = xStr Then .Characters(J, Len(xStr)).Font.ColorIndex = 3
Next
End With
Next I
End Sub
3. Ar ôl pasio'r cod, a gwasgwch F5 yn allweddol i'w redeg, bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis yr ystod ddata sydd yn cynnwys y llinyn testun a'r testun penodol rydych chi am dynnu sylw ato ac yn seiliedig arno, gweler y screenshot:
4. Ac yna cliciwch OK botwm, mae'r holl destun cyfatebol yn y golofn gyntaf yn seiliedig ar y testun penodol yn yr ail golofn wedi'i liwio'n goch fel y screenshot canlynol:
Erthyglau mwy cymharol:
- Testun Rhan Beiddgar Pan fydd yn Concatenate Dau Golofn Yn Excel
- Yn nhaflen waith Excel, ar ôl cyd-fynd â dau werth cell â fformwlâu, efallai y gwelwch na fydd yn beiddgar rhan o'r testun yn y gell fformiwla gyfun. Gall hyn fod yn annifyr weithiau, sut allech chi feiddgar rhan-destun wrth gyd-fynd â dwy golofn yn Excel?
- Colofnau Cell Concatenate A Cadwch Lliw Testun Yn Excel
- Fel y gwyddom i gyd, wrth gyd-daro neu gyfuno colofnau celloedd yn un golofn, collir fformatio'r gell (megis lliw ffont testun, fformatio rhifau, ac ati). Yr erthygl hon, byddaf yn cyflwyno rhai triciau i gyfuno'r colofnau celloedd yn un a chadw lliw'r testun mor hawdd â phosibl yn Excel.
- Arddangos Testun Penodol Yn Seiliedig ar Werthoedd Mewn Colofn Arall
- Gan dybio, mae gen i restr o rifau, nawr, rydw i eisiau arddangos rhywfaint o destun penodol mewn colofn arall yn seiliedig ar y rhifau colofn hyn. Er enghraifft, os yw rhif y gell rhwng 1-100, rwyf am i'r testun “Gostwng” gael ei arddangos mewn cell gyfagos, os yw'r rhif rhwng 101-200, arddangosir testun “Stable”, ac os yw'r rhif yn fwy na 200 , mae testun “Cynyddu” yn cael ei arddangos fel y llun isod. I ddatrys y dasg hon yn Excel, gall y fformwlâu canlynol yn yr erthygl hon eich helpu chi.
- Celloedd Swm Gyda Thestun A Rhifau Yn Excel
- Er enghraifft, mae gen i restr o werthoedd sy'n cynnwys llinynnau rhifiadol a thestun, nawr, rydw i eisiau crynhoi'r rhifau yn unig sy'n seiliedig ar yr un testun, edrychwch ar y screenshot canlynol. Fel rheol, ni allwch grynhoi'r gwerthoedd yn y rhestr gyda llinyn testun yn uniongyrchol, yma, byddaf yn cyflwyno rhai fformiwlâu i chi ddelio â'r dasg hon.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
