Cookies bizim xidmətlər təqdim kömək edir. Bizim xidmətlərimizdən istifadə edərək, siz cookies bizim istifadə razıyam.
İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də bir hücrenin yazı tipi rənglərinə əsaslanan mətni necə çıxarmaq olar?

Aşağıda göstərildiyi kimi, Excel-in hər bir hücresində qırmızı mətnlə bir məlumat siyahısı varsa və yalnız qırmızı mətnin çıxarılmasını necə bilirsiniz? İndi Excel cədvəlinə əsaslanan mətnə ​​əsaslanan mətn çıxaran puzzle həll etmək üçün sürətli bir yol təqdim edəcəyəm.

doc-çıxarış-mətn-rəngli-1

Hər bir hüceyrədən font rənginə əsaslanan mətni çıxarın


arrow mavi sağ bubble Hər bir hüceyrədən font rənginə əsaslanan mətni çıxarın


Excel-də, yazı tipi rənglərinə əsaslanan mətni çıxarmaq üçün yalnız müəyyən funksiyanı istifadə edə bilərsiniz.

1. Basın Alt + F11 Microsoft Visual Basic for Applications penceresini açmaq üçün düymələri birlikdə.

2. klik Taxmaq > Modules və VBA kodunu çıxarılmış pəncərəyə kopyalayın.

VBA: Yazı tipi rənglərinə əsaslanan mətni çıxarın

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. Sonra informasiya qutusunu saxlayıb bağlayın və məlumat siyahısının yanında boş bir hüceyrəni seçin, bu formu yazın = GetColorText (A1) (A1, mətn çıxarmaq istədiyiniz hüceyrəni göstərir), basın Daxil edin lazımlı mətni almaq üçün açar düyməsini basın, sonra istədiyiniz formada formula doldurmaq üçün autofill sapı sürükləyin.

İndi bütün qırmızı mətn çıxarıldığını görə bilərsiniz.

doc-çıxarış-mətn-rəngli-2

UcYuxarıdakı VBA kodunda, qara mətnləri hüceyrələrdən çıxarmaq lazımdırsa, rəng adını dəyişdirə bilərsiniz Rəng = üçün Rəng = vbBlack.


Əlaqədar məqalələr:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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