Cookies დაგვეხმარება სიტყვით ჩვენი მომსახურება. გამოყენებით ჩვენი მომსახურება, თქვენ ეთანხმებით, რომ ჩვენი გამოყენების cookies.
რჩევა: სხვა ენები Google- ით თარგმნილია. შეგიძლიათ ეწვიოთ English ამ ბმის ვერსია.
შესვლა
x
or
x
x
რეგისტრაცია
x

or

როგორ ამოიღოთ ტექსტის შრიფტის ფერადი საკანში Excel- ში?

თუ თქვენ გაქვთ მონაცემები სიაში რამდენიმე საკანში თითოეულ საკანში Excel როგორც ნაჩვენებია ქვემოთ screenshot, და იცით, თუ როგორ უნდა ამონაწერი წითელი ტექსტი მხოლოდ? ახლა მე გააცნობს სწრაფი გზა გადაჭრის თავსატეხი რომ ექსტრაქტები ტექსტი ეფუძნება შრიფტის ფერი საკანში Excel.

doc- ამონაწერი- text-color-1

ამონაწერი ტექსტის მიხედვით შრიფტის ფერი თითოეულ საკანში

რეკომენდებული პროდუქტიულობის ინსტრუმენტები Excel / Office

ოფისის ჩანართი: მოაქციეთ tabbed რედაქტირება Excel და სხვა ოფისის პროგრამული უზრუნველყოფა, ისევე, როგორც Chrome, Firefox და Safari.30 დღე შეუზღუდავი უფასო სასამართლო

Kutools ამისთვის Excel: XXX ძლიერი თვისებები მიიღოს Excel ბევრად ადვილი და გაზრდის პროდუქტიულობის დაუყოვნებლივ.60 დღე შეუზღუდავი უფასო სასამართლო


arrow ლურჯი სწორი bubble ამონაწერი ტექსტის მიხედვით შრიფტის ფერი თითოეულ საკანში


In Excel, თქვენ მხოლოდ შეგიძლიათ გამოიყენოთ განსაზღვრული ფუნქცია ამონაწერი ტექსტის საფუძველზე შრიფტის ფერი.

1. დაჭერა Alt + F11 გასაღებები ერთად გახსნას Microsoft Visual Basic განაცხადების ფანჯარა.

2. click ჩადეთ > მოდულები და შეიტანეთ შემდეგი VBA კოდი popped ფანჯარაში.

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- ამონაწერი- text-color-2

Tip: ზემოთ VBA კოდი, თუ თქვენ უნდა ამონაწერი შავი ტექსტი უჯრედები, თქვენ შეგიძლიათ შეცვალოთ ფერი სახელი ფერი = vbRed to ფერი = vbBlack.


შედარებითი სტატიები:



რეკომენდებული პროდუქტიულობის ინსტრუმენტები

ოფისის ჩანართი

ოქროს ვარსკვლავი 1 მოიტანეთ ხელსაყრელი ჩანართები Excel და სხვა საოფისე პროგრამებისთვის, ისევე როგორც Chrome, Firefox და ახალი Internet Explorer.

Kutools ამისთვის Excel

ოქროს ვარსკვლავი 1 საოცარი! გაზარდეთ თქვენი პროდუქტიულობა წუთში. არ გჭირდებათ რაიმე განსაკუთრებული უნარები, ყოველდღე ორ საათში გადარჩენა!

ოქროს ვარსკვლავი 1 300 ახალი ფუნქციები Excel, ჩადება Excel ძალიან მარტივი და ძლიერი:

  • უჯრედის / რიგების / სვეტების შერწყმა მონაცემების დაკარგვის გარეშე.
  • მრავალჯერადი ცხრილებისა და სამუშაოების კომბინირება და კონსოლიდაცია.
  • შეადარეთ საზღვრები, დააკოპირეთ მრავალჯერადი საზღვრები, გადაიყვანეთ ტექსტის თარიღის, განყოფილებისა და ვალუტის კონვერტაციის.
  • დათვლა ფერები, Paging Subtotals, გაფართოებული დალაგება და სუპერ ფილტრი,
  • სხვა არჩევა / ჩასმა / წაშლა / ტექსტი / ფორმატი / ლინკი / კომენტარი / სამუშაო წიგნები / სამუშაოები ინსტრუმენტები ...

ეკრანის კადრი Kutools for 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