Note: The other languages of the website are Google-translated. Back to English

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:

Awgrymiadau: Os oes angen i chi dynnu sylw at eiriau allweddol lluosog o'r tannau testun, defnyddiwch y cod isod:
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 ar gyfer Excel, Gyda'i Marc Allweddair nodwedd, gallwch dynnu sylw at yr un allweddair penodol neu fwy ar unwaith yn y celloedd.

Nodyn:I gymhwyso'r rhain Marc Allweddair nodweddion, yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyso'r nodweddion yn gyflym ac yn hawdd.

Ar ôl gosod Kutools ar gyfer 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.

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (37)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn am eich tip a macros. Ni allaf ddychmygu beth fyddwn i'n ei wneud hebddynt.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi gwirio'r ddau god a roddwyd yn excel 2016 ond ddim yn gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais Excel365. Nid yw VBA cyntaf yn gweithio. Ni all yr ail amlygu geiriau allweddol cywir hy ddim yn gweithio hefyd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael gwall a phan fyddaf yn dadfygio mae'n amlygu'r adran hon m = UBound(Split(Rng.Value, cFnd))
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe weithiodd yn wych i mi, diolch am rannu hyn gyda'r byd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A all unrhyw un fy helpu am god i " gopïo'r gair sydd wedi'i amlygu mewn colofn wahanol " .
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut gallai gael y cod hwn i weithio ond wedi ei amlygu mewn lliw heblaw coch?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Os ydych chi am dynnu sylw at y testun gyda lliw arall, does ond angen i chi newid y rhif mynegai lliw 3 i rif mynegai lliw arall yn y sgript isod:
.Caracters(Cychwyn:=Len(xTmp) + 1, Hyd:=y).Font.ColorIndex = 3

Rhowch gynnig arni. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Gyda'r un macro rydw i eisiau tynnu sylw at destun arall gyda'r lliw gwahanol e.e.: Gwyrdd, helpwch fi gyda hyn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Sukumar,
Mae'n ddrwg gennym, methu datrys eich problem.
Rhowch sylwadau yma os oes gan unrhyw un arall yr ateb.
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am "Tynnu sylw at Destun Penodol O fewn Celloedd Lluosog Gyda Chod VBA" Mae'n gweithio'n wych. A fyddech cystal ag egluro:
llinell 18 xTmp = xTmp & Hollti(Rng.Value, cFnd)(x)
Pam mae'n rhaid i eilunod "(x)" ymddangos lle mae? Ydy gwerth x yn cael ei drosglwyddo i'r ffwythiant Hollti fel dadl a enwir heb yr enw? Hoffwn yn fawr ddeall y concept.Thank chi am eich cymorth a swyddogaeth hon. Rwyf wedi dysgu rhywbeth nad oeddwn yn ei wybod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, sylwais mai highliter sensitif iawn yw hwn. Ble alla i newid y byddai'n amlygu llythrennau bach ac uwch mewn gair deired
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, lolster,

Yn y ddau god uchod, pa god ydych chi am ei nodi sy'n sensitif i achosion?
Byddwn yn addasu'r cod i chi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, hoffwn ofyn yr un cwestiwn i dynnu sylw at lythrennau bach a mawr, yn achos yr isod:

"canfod a marcio allweddair1, allweddair2 ac allweddair3 ym mhob llinyn testun hefyd pan fydd un llinyn yn cynnwys mwy nag un o'r allweddeiriau hyn (dylai pob un ohonynt gael eu hamlygu yn y llinyn testun penodol)"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Llinynnau Uchafbwynt()
Application.ScreenUpdating = Anghywir
Dim Rng Fel Ystod
Dim cFnd Fel Llinyn
Dim xTmp Fel Llinyn
Dim x Cyhyd
Dim m Cyn Hir
Dim y Cyn Hir
Dim xFNum Fel Cyfanrif
Dim xArrFnd Fel Amrywiad
Dim xStr Fel Llinyn
cFnd = InputBox ("Rhowch y testun, gwahanwch nhw â choma:"")
Os Len(cFnd) < 1 Yna Ymadael Is
xArrFnd = Hollti(cFnd, ",")
Ar gyfer Pob Rng Mewn Detholiad
Gyda Rng
Ar gyfer xFNum = 0 I UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Hollti(Rng.Value, xStr))
Os m > 0 Yna
xTmp=""
Ar gyfer x = 0 I m - 1
xTmp = xTmp & Hollti(Rng.Value, xStr)(x)
.Caracters(Cychwyn:=Len(xTmp) + 1, Hyd:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Digwyddiadau
Gorffennwch Os
xFNum nesaf
Diwedd Gyda
Rng nesaf
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Mahendra
Os nad ydych am i'r cod fod yn sensitif i achosion, defnyddiwch y cod isod:
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(UCase(cFnd), ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(UCase(Rng.Value), UCase(xStr)))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(UCase(Rng.Value), UCase(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


Rhowch gynnig arni, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i wneud y cod VBA cyntaf mewn ffordd i weithio gyda rhestr sefydlog o eiriau allweddol heb flwch promt? Er enghraifft, rwyf bob amser eisiau darganfod a marcio keyword1, keyword2 a keyword3 ym mhob llinyn testun hefyd pan fydd un llinyn yn cynnwys mwy nag un o'r geiriau allweddol hyn (dylai pob un ohonynt gael eu hamlygu yn y llinyn testun penodol). Ac a yw'n bosibl gwneud allweddair1 ac allweddair2 yn goch ond mae'r trydydd yn feiddgar yn unig?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Arthurs,

I amlygu geiriau allweddol lluosog o gell, gall y cod vba canlynol eich helpu: (dylech wahanu'r geiriau fesul hanner colon yn y blwch mewnbwn sydd wedi'i neidio allan)

Llinynnau Uchafbwynt()
Application.ScreenUpdating = Anghywir
Dim Rng Fel Ystod
Dim cFnd Fel Llinyn
Dim xTmp Fel Llinyn
Dim x Cyhyd
Dim m Cyn Hir
Dim y Cyn Hir
Dim xFNum Fel Cyfanrif
Dim xArrFnd Fel Amrywiad
Dim xStr Fel Llinyn
cFnd = InputBox ("Rhowch y testun, gwahanwch nhw fesul hanner colon:"")
Os Len(cFnd) < 1 Yna Ymadael Is
xArrFnd = Hollti(cFnd, ";")
Ar gyfer Pob Rng Mewn Detholiad
Gyda Rng
Ar gyfer xFNum = 0 I UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Hollti(Rng.Value, xStr))
Os m > 0 Yna
xTmp=""
Ar gyfer x = 0 I m - 1
xTmp = xTmp & Hollti(Rng.Value, xStr)(x)
.Caracters(Cychwyn:=Len(xTmp) + 1, Hyd:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Digwyddiadau
Gorffennwch Os
xFNum nesaf
Diwedd Gyda
Rng nesaf
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Skyyang! Canfûm y byddai gwall wrth redeg y cod - ni allai nodi'r gair yn dilyn colon. A oes gennych unrhyw awgrymiadau i'w wella? Diolch yn fawr iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, IvyCY,
Os ydych chi am nodi'r geiriau wrth colon, does ond angen i chi newid y symbol hanner colon i colon, cymhwyswch y cod canlynol:

Llinynnau Uchafbwynt()
Application.ScreenUpdating = Anghywir
Dim Rng Fel Ystod
Dim cFnd Fel Llinyn
Dim xTmp Fel Llinyn
Dim x Cyhyd
Dim m Cyn Hir
Dim y Cyn Hir
Dim xFNum Fel Cyfanrif
Dim xArrFnd Fel Amrywiad
Dim xStr Fel Llinyn
cFnd = InputBox ("Rhowch y testun, gwahanwch nhw gan colon:"")
Os Len(cFnd) < 1 Yna Ymadael Is
xArrFnd = Hollti(cFnd, ":")
Ar gyfer Pob Rng Mewn Detholiad
Gyda Rng
Ar gyfer xFNum = 0 I UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Hollti(Rng.Value, xStr))
Os m > 0 Yna
xTmp=""
Ar gyfer x = 0 I m - 1
xTmp = xTmp & Hollti(Rng.Value, xStr)(x)
.Caracters(Cychwyn:=Len(xTmp) + 1, Hyd:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Digwyddiadau
Gorffennwch Os
xFNum nesaf
Diwedd Gyda
Rng nesaf
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am eich ateb, skyyang!

Ond ni weithiodd o hyd.
Efallai bod fy nghwestiwn yn eithaf dryslyd. Gall enghraifft ei gwneud yn gliriach.
Er enghraifft, un o fy allweddeiriau yw "amddiffyn". Mae'n bosibl y bydd y testun yn y celloedd yn cael ei ddangos fel "Ein ffyrdd o ddatrys y broblem: amddiffyn a blablabla... " Efallai bod bylchau rhwng ":" a "protection" oherwydd nid yw fformatio'r testun bob amser yr un peth. Yma, ni allai'r codau uchod amlygu'r allweddair "amddiffyn". Dyna'r broblem.

Rwyf wedi ceisio sawl gwaith ond wedi methu. Rwyf hefyd wedi ystyried dileu'r atalnodi yn y celloedd, ond byddai'n peryglu dealltwriaeth y testunau. Felly gofynnais y cwestiwn. Gobeithio nad oes ots gennych.

Diolch yn fawr iawn!

Cofion gorau!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i gael gwared ar yr holl eiriau hynny sydd wedi'u hamlygu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Ace,
I ddileu'r testun yn seiliedig ar gell colofn arall, efallai y bydd y cod vba isod yn eich helpu chi, rhowch gynnig arni.
Is-DileuStr()
Dim xStr Fel Llinyn
Dim xRg Fel Ystod
Dim xTxt Fel Llinyn
Dim xCell Fel Ystod
Dim xChar Fel Llinynnol
Dim i Cyhyd
Dim J Cyhyd
Ar Ail-ddechrau Gwall Nesaf
Os ActiveWindow.RangeSelection.Count > 1 Yna
xTxt = ActiveWindow.RangeSelection.AddressLocal
arall
xTxt = ActiveSheet.UsedRange.AddressLocal
Gorffennwch Os
Mewnbwn LI:
Gosod xRg = Application.InputBox ("dewiswch yr ystod data:"", "Kutools ar gyfer Excel", xTxt , , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is
Os xRg.Areas.Count > 1 Yna
MsgBox "ddim yn cefnogi colofnau lluosog"
GoTo LIInput
Gorffennwch Os
Os xRg.Columns.Count <> 2 Yna
msgstr "gall yr ystod a ddewiswyd ond cynnwys dwy golofn "
GoTo LIInput
Gorffennwch Os
Am i = 0 I xRg.Rows.Count - 1
xStr = xRg.Range("B1").Offset(i, 0).Gwerth
Gyda xRg.Range("A1").Offset(i, 0)
.Font.ColorIndex = 1
Ar gyfer J = 1 I Len(.Text)
Os yw Canolbarth(.Text, J, Len(xStr)) = xStr Yna
.Cymeriadau(J, Len(xStr)).Dileu
Gorffennwch Os
Digwyddiadau
Diwedd Gyda
Nesaf i
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
HI
Rwy'n ymwelydd rheolaidd â'ch gwefan. Mae eich gwefan yn ddefnyddiol iawn i mi. Mae'r cod hwn yn newid lliw y ffont. Rwyf am amlygu geiriau penodol (er enghraifft Mewnosod, gwag) mewn cefndir melyn. Rwyf am dynnu sylw at hyn. Nid dim ond lliw ffont. Daliwch ati gyda'r gwaith gwych!!! Diolch yn fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Madhusudhanan,
Efallai nad oes ffordd uniongyrchol o amlygu rhan o destun mewn cell gyda lliw cefndir yn nhaflen waith Excel.
Os oes gennych chi ddull da arall, rhowch sylwadau yma.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael gwall amser rhedeg '13', teipiwch ddiffyg cyfatebiaeth pan fyddaf yn rhedeg y sgript. unrhyw awgrymiadau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un mater oedd gennyf; Canfûm mai fformiwlâu oedd un o'm colofnau ac roedd yn edrych ynddynt a oedd yn sbarduno'r gwall 13. Dewisais fformiwla wihtout ystod yn cynnwys y testun i'w amlygu ac fe weithiodd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
gallai unrhyw un fy helpu gyda'r canlynol

mae fy Nghelloedd yng Ngholofn "G" yn cynnwys y testun o Golofn Z i AN, nid yw'n orfodol bod Colofn g yn cynnwys yr holl destun o Z i AN.

Fy ngwaith yma yw Amlygu'r testun yng Ngholofn G os nad yw ar gael yn unrhyw un o Golofn Z - AN

Er enghraifft : Mae Cell G1 yn cynnwys (Helo syr dwi'n gwneud yn dda) ond nid yw'r testun "Syr" yn bodoli yng Ngholofn "Z1" i "AN1"

Felly mae angen i mi dynnu sylw at y testun "Syr"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae unrhyw un yn fy helpu gyda hyn. Rwyf am amlygu'r Rhif Penodol yn Cell o fewn yr un frawddeg. ar gyfer Ex : " 2 ddiwrnod o sgansiwn " yn y frawddeg hon eisiau amlygu'r rhif.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Os gwelwch yn dda unrhyw un yn fy helpu. Rwyf am dynnu sylw at y rhif penodol yn yr un frawddeg. Ar gyfer ex : mae " 2 ddiwrnod yn gadael sgan " am amlygu "2" yn unig yn y frawddeg.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hyn yn ddefnyddiol iawn, diolch yn fawr iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Anhygoel. diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Waw! Diolch!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir