Տեղեկանիշ մեզ կօգնի մատուցել մեր ծառայություններից: Ըստ օգտագործելով մեր ծառայություններից, Դուք համաձայնում եք մեր օգտագործման բլիթները:
Խորհուրդ. Այլ լեզուներն են Google- թարգմանված: Դուք կարող եք այցելել այն English այս հղման տարբերակը:
Մուտք
x
or
x
x
Գրանցում
x

or

Excel- ում բջիջներից տառատեսակի գույնի վրա հիմնված տեքստը:

Եթե ​​ունեք տվյալների ցուցակը որոշ կարմիր տեքստով Excel- ում յուրաքանչյուր բջիջում, ինչպես ցույց է տրված ստորեւ նկարում, եւ գիտեք, թե ինչպես կարտահանվի միայն կարմիր տեքստը: Այժմ ես կներկայացնեմ շտապ լուծելու բանաձեւը, որը Excel տողում գրված տեքստի գույնի վրա հիմնված տեքստ է պարունակում:

doc-extract-text-color-1- ը

Բջիջ տեքստը հիմնված տառատեսակի գույնի յուրաքանչյուր բջիջից


arrow կապույտ աջ փուչիկ Բջիջ տեքստը հիմնված տառատեսակի գույնի յուրաքանչյուր բջիջից


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- ը նշում է բջիջը, որը ցանկանում եք տեքստից դուրս բերել), սեղմեք Մտնել ստեղնը, անհրաժեշտ տեքստը ստանալու համար, ապա քաշեք ինքնալրացման տիրույթը, բանաձեւը լրացրեք ձեր ցանկալի տիրույթը:

Այժմ տեսնում եք, որ բոլոր կարմիր տեքստերը արդյունահանվում են:

doc-extract-text-color-2- ը

Ակնարկ: Վերը նշված VBA- ի կոդում, եթե անհրաժեշտ է բջիջներից սեւ տեքստը հանել, կարող եք փոխել գույնի անունը Գույնը = vbRed դեպի Գույնը = vbBlack.


Հարաբերական հոդվածներ.



Առաջարկված արտադրողականության գործիքներ

Գրասենյակի էջանշանը

ոսկի star1 Հասանելի էջանիշեր բերեք Excel- ում եւ Office- ի այլ ծրագրերում, ինչպես Chrome- ի, Firefox- ի եւ նոր Internet Explorer- ի:

Excel- ի համար Excel- ում

ոսկի star1 Զարմանալի է: Բարձրացրեք ձեր արտադրողականությունը 5 րոպեում: Անհրաժեշտ է հատուկ հմտություններ, օրական երկու ժամ տեւողությամբ:

ոսկի star1 300- ի նոր առանձնահատկությունները Excel- ում, կատարել Excel շատ հեշտ եւ հզոր:

  • Միավորել բջիջը / շարքերը / սյունակները առանց կորցնելու տվյալների:
  • Միավորել եւ միավորել բազմակի թերթիկները եւ աշխատանքային տետրերը:
  • Համեմատեք միջակայքերը, պատճենեք բազմակի ընդգրկույթներ, փոխեք տեքստային ամսաթիվը, միավորը եւ արտարժույթի փոխակերպումը:
  • Count by Colors, Paging Subtotals, Ընդլայնված Sort եւ Super Filter,
  • Լրացուցիչ Ընտրել / Ներդիր / Ջնջել / Տեքստային / Ֆորմատ / ՈՒղեցույց / Մեկնաբանություն / Աշխատանքային տետրեր / Գործիքներ գործիքներ ...

Excel ստեղնաշարի կրկնօրինակը 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