Печыва дапамагчы нам даставіць нашы паслугі. Карыстаючыся нашымі паслугамі, Вы згаджаецеся на выкарыстанне намі печыва.
Рада: Іншыя мовы Google-Перакладзеныя. Вы можаце наведаць English версія гэтай спасылкі.
Увайсці
x
or
x
x
рэгістрацыя
x

or

Як атрымаць тэкст на аснове колеру шрыфта з вочка ў Excel?

Калі ў вас ёсць спіс дадзеных з некаторым чырвоным тэкстам у кожнай вочку ў Excel, як паказана ніжэй скрыншота, і вы ведаеце, як атрымаць толькі чырвоны тэкст? Цяпер я прадстаўлю хуткі спосаб вырашыць галаваломку, якая здабывае тэкст, заснаваны на колер шрыфта з вочка ў Excel.

док-экстракт-тэкст-каляровы-1

Выманне тэксту на аснове колеру шрыфта з кожнага вочка


стрэлка сіняга правага бурбалкі Выманне тэксту на аснове колеру шрыфта з кожнага вочка


У Excel, вы можаце выкарыстоўваць толькі пэўную функцыю для здабывання тэксту на аснове колеру шрыфта.

1. прэс Alt + F11 клавішы разам, каб адкрыць Microsoft Visual Basic для прыкладанняў вокны.

2. пстрычка Уставіць > Модулі і скапіяваць наступны VBA код у выскачылі акно.

VBA: Выманне тэксту на аснове колеру шрыфта

Function GetColorText(pRange As Range) As String
	'Updateby20141105
	Dim xOut As String
	Dim xValue As String
	Dim i As Long
	xValue = pRange.Text

	For i = 1 To VBA.Len(xValue)

		If pRange.Characters(i, 1).Font.Color = vbRed Then
			xOut = xOut & VBA.Mid(xValue, i, 1)
		End If

	Next

	GetColorText = xOut
End Function

3. Затым захавайце і зачыніце дыялогавае акно, і абярыце пустое вочка побач са спісам дадзеных, увядзіце наступную формулу = GetColorText (A1) (A1 паказвае на вочка, якую трэба атрымаць тэкст з), націсніце Уводзіць ключ, каб атрымаць патрэбны тэкст, а затым перацягнуць аўтазапаўнення ручкі, каб запоўніць формулу дыяпазону вы хочаце.

Цяпер вы можаце ўбачыць усе чырвоны тэкст здабываецца.

док-экстракт-тэкст-каляровы-2

ЧаявыяУ прыведзеным вышэй кодзе VBA, калі трэба атрымаць чорны тэкст з вочак, вы можаце змяніць назву колеру Колер = vbRed у Колер = vbBlack.


Адносныя артыкулы:



Рэкамендаваны інструменты для павышэння прадукцыйнасці

ўкладка Упраўленне

золата star1 Прынясіце зручныя укладкі ў Excel і іншыя офісныя праграмы, гэтак жа, як Chrome, Firefox і новы Internet Explorer.

Kutools для Excel

золата star1 Дзіўна! Павышэнне прадукцыйнасці ў 5 хвілін. Не трэба ніякіх спецыяльных навыкаў, захаваць абодва гадзіны кожны дзень!

золата star1 300 Новыя магчымасці для Excel, зрабіць Excel Шмат Лёгкі і магутны:

  • Зліццё клетак / радкоў / слупкоў без страты дадзеных.
  • Аб'яднанне і аб'яднанне некалькіх лістоў і працоўных кніг.
  • Параўнанне дыяпазонаў, капіраванне некалькіх дыяпазонаў, пераўтварэнне тэксту ў дату, групу і валютнай канверсію.
  • Граф па Colors, пэйджынгавай подытогами, Advanced Сартаванне і супер фільтр,
  • Больш Select / Insert / Delete / Тэкст / Фармат / Спасылка / каментар / Workbooks / Рабочыя лісты Інструменты ...

Здымак экрана Kutools для Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    prudwi · 2 months ago
    The code works well if the red strings are continuous. In case they are separated in the source cell, they are glued to each other in output cell. I mean there is no space in the output if the red text strings are away from each other. Can you please provide a solution for this?
  • To post as a guest, your comment is unpublished.
    Kazam Raza · 2 months ago
    thanks, very interesting code.
  • To post as a guest, your comment is unpublished.
    Roberto · 3 months ago
    dimenticavo io ho Excel 2010
  • To post as a guest, your comment is unpublished.
    Roberto · 3 months ago
    Buonasera, grazie mille un'ottima funzione. Però ho un problema, quando 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?
  • To post as a guest, your comment is unpublished.
    JM · 1 years ago
    Hey, Thanks for the Tip. Works great with Red and Black.
    What if I want to parse "Purple"? changing it vbPurple does not work.
    Thanks