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

Sut i dynnu testun yn seiliedig ar liw ffont o gell yn Excel?

Os oes gennych chi restr ddata gyda rhywfaint o destun coch ym mhob cell yn Excel fel y dangosir isod y screenshot, ac a ydych chi'n gwybod sut i echdynnu'r testun coch yn unig? Nawr, byddaf yn cyflwyno ffordd gyflym i ddatrys y pos sy'n tynnu testun yn seiliedig ar liw'r ffont o gell yn Excel.

doc-dyfyniad-testun-lliw-1

Tynnwch destun yn seiliedig ar liw ffont o bob cell

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saeth Tynnwch destun yn seiliedig ar liw ffont o bob cell


Yn Excel, dim ond y swyddogaeth ddiffiniedig y gallwch ei defnyddio i echdynnu'r testun yn seiliedig ar liw ffont.

1. Gwasgwch Alt + F11 allweddi gyda'i gilydd i agor ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau a chopïwch y cod VBA canlynol i'r ffenestr popped out.

VBA: Detholiad testun yn seiliedig ar liw ffont

Function GetColorText(pRange As Range) As String
'UpdatebyExtendoffice20220621
Dim xOut As String
Dim xValue As String
Dim i As Long
Dim TextColor
TextColor = RGB(255, 0, 0) 'colorindex RGB
xValue = pRange.Text
For i = 1 To VBA.Len(xValue)
  If pRange.Characters(i, 1).Font.Color = TextColor Then
  xOut = xOut & VBA.Mid(xValue, i, 1)
  End If
Next
GetColorText = xOut
End Function

3. Yna arbed a chau'r ymgom, a dewis cell wag wrth ymyl y rhestr ddata, teipiwch y fformiwla hon = GetColorText (A1) (Mae A1 yn nodi'r gell rydych chi am dynnu testun ohoni), pwyswch Rhowch allwedd i gael y testun sydd ei angen, yna llusgwch handlen autofill i lenwi'r fformiwla i'r ystod rydych chi ei eisiau.

Nawr gallwch weld bod yr holl destun coch yn cael ei dynnu.

doc-dyfyniad-testun-lliw-2

Tip: Yn y cod VBA uchod, gallwch newid y lliw rgb yn y sgript hon TextColor = RGB(255, 0, 0) i eraill i gwrdd â'ch angen.


Erthyglau cymharol:


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 (13)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, pan geisiais ddefnyddio vbBlue, nid oedd yn gweithio. Helpwch os gwelwch yn dda? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhowch liw'r ffont i'r lliw glas union.
Oherwydd bod yna lawer o fathau o liw glas "glas golau, glas awyr, glas tywyll"
vba cyfateb yn unig lliw exct.??????
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod yn gweithio'n dda os yw'r llinynnau coch yn barhaus. Rhag ofn iddynt gael eu gwahanu yn y gell ffynhonnell, cânt eu gludo i'w gilydd yn y gell allbwn. Rwy'n golygu nad oes gofod yn yr allbwn os yw'r llinynnau testun coch i ffwrdd oddi wrth ei gilydd. A allwch chi ddarparu ateb ar gyfer hyn os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei, Diolch am y Awgrym. Yn gweithio'n wych gyda Coch a Du.
Beth os ydw i eisiau dosrannu "Porffor"? ei newid nid yw vbPurple yn gweithio.
diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Buonasera, grazie mille un'ottima funzione. Però ho un problema, val nel foglio ed inserisco es. = GetColorText (A1) mi restituisce il valore giusto però come riavvio il file mi da errore #VALORE !, se poi clicco 2 volte sopra mi da il valore corretto e così via. che posso fare?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
dimensiynau ar gyfer Excel 2010
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch, cod diddorol iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod yn gweithio'n dda os yw'r llinynnau coch yn barhaus. Rhag ofn iddynt gael eu gwahanu yn y gell ffynhonnell, cânt eu gludo i'w gilydd yn y gell allbwn. Rwy'n golygu nad oes gofod yn yr allbwn os yw'r llinynnau testun coch i ffwrdd oddi wrth ei gilydd. A allwch chi ddarparu ateb ar gyfer hyn os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhowch gynnig ar hyn, dylai weithio
Swyddogaeth GetColorText(prange As Range) Fel Llinynnol
'Diweddarutogetmultiple
Dim xOut Fel Llinynnol
Dim xGwerth Fel Llinyn
Dim i Cyhyd
Roedd Dim Coch Fel Boole
xValue = pRange.Text

Ar gyfer i = 1 I VBA.Len(xValue)

Os pRange.Characters(i, 1).Font.Color = vbRed Yna
xOut = xOut & VBA.Mid(xValue, i, 1)
wasRed = Gwir
ElseIf wasRed = Gwir Yna
wasCoch = Gau
xOut = xOut &";"
Gorffennwch Os

Digwyddiadau

GetColorText = xOut
Swyddogaeth End

Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch tunnell fe weithiodd yn berffaith dda. Ti'n achubwr Tim :-) 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid oeddwn yn gallu echdynnu'r testun glas o hyd (#1166BB). A oes ffordd i ddefnyddio'r Hex: #1166BB i gael y testun lliw sydd ei angen arnaf?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Robert E Perez, rwyf wedi diweddaru'r cod VBA, nawr, mae'n cefnogi cael testun lliw trwy god rgb. Gallwch roi cynnig ar y cod eto.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
I have a particular text in a cell seperated by Comma and Having colour for each text. While using Delimiter funtion,I am unable to retain the font colour of text .Appraciate your help!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir