Колачићи нам помоћи да испоручи наше услуге. Коришћењем наше услуге, сагласни сте да наше коришћење колачића.
Савет: Други језици су Гоогле-преводили. Можете посетити English верзија ове везе.
лог ин
x
or
x
x
Регистровати
x

or

Како извући текст заснован на боју фонта из ћелије у Екцелу?

Ако имате списак података са неким црвеним текстом у свакој ћелији у Екцел-у, као што је приказано испод сцреенсхот-а, и да ли знате како да извадите само црвени текст? Сада ћу вам представити брз начин да решите загонетку која екстрахује текст на основу боје фонта из ћелије у Екцелу.

доц-екстракт-текст-боја-КСНУМКС

Екстракт текста заснован на боји фонта из сваке ћелије


стрелица плави десни балон Екстракт текста заснован на боји фонта из сваке ћелије


У Екцелу, можете користити само дефинисану функцију за екстрахирање текста на бази фонта.

КСНУМКС. Притисните Алт + ФКСНУМКС заједно отворите прозор Мицрософт Висуал Басиц за апликације.

КСНУМКС. клик Убацити > Модули и копирајте пратећи ВБА код у отворени прозор.

ВБА: Екстракт текста заснован на боји фонта

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

КСНУМКС. Затим чувајте и затворите дијалог и изаберите празну ћелију поред листе података, упишите ову формулу = ГетЦолорТект (АКСНУМКС) (АКСНУМКС означава ћелију коју желите извући из текста), притисните унети тастер да бисте добили потребан текст, а затим превуците ручицу аутоматског пуњења како бисте попунили формулу до жељеног опсега.

Сада можете видети да су сви црвени текст извучени.

доц-екстракт-текст-боја-КСНУМКС

Напојница: У горенаведеном ВБА коду, ако вам је потребно извући црни текст из ћелија, можете променити име боје Боја = вбРед до Боја = вбБлацк.


Релативни чланак:



Препоручени алати за продуктивност

Оффице Таб

златна звездаКСНУМКС Дајте практичне картице у Екцел и други Оффице програм, баш као и Цхроме, Фирефок и нови Интернет Екплорер.

Кутоолс за Екцел

златна звездаКСНУМКС Невероватно! Повећајте продуктивност у КСНУМКС минуту. Не требају никакве посебне вјештине, осим два сата сваког дана!

златна звездаКСНУМКС КСНУМКС Нове функције за Екцел, учините Екцел пуно једноставно и моћно:

  • Споји ћелије / редове / колоне без губитка података.
  • Комбинујте и консолидујте више листова и радне свеске.
  • Упоредите опсеге, копирајте више опсега, претворите текст на датум, јединицу и конверзију валута.
  • Цоунт би Цолорс, Пагинг Субтоталс, Адванцед Сорт и Супер Филтер,
  • Више Изабери / Уметни / Обриши / Текст / Формат / Линк / Коментар / Радна свеска / Радни листови Алати ...

Сцреен схот оф Кутоолс за Екцел

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