I cookie ci aiutano i nostri servizi. Utilizzando i nostri servizi, l'utente accetta di utilizzare i cookie.
Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

Come estrarre il testo in base al colore del carattere da una cella in Excel?

Se hai una lista di dati con del testo rosso in ogni cella in Excel come mostrato nell'immagine sottostante, e sai come estrarre solo il testo rosso? Ora introdurrò un modo rapido per risolvere il puzzle che estrae il testo in base al colore del carattere da una cella in Excel.

doc-estratto-text-color-1

Estrai il testo in base al colore del carattere di ogni cella


freccia blu bolla destra Estrai il testo in base al colore del carattere di ogni cella


In Excel, è possibile utilizzare solo la funzione definita per estrarre il testo in base al colore del carattere.

1. Stampa Alt + F11 le chiavi insieme per aprire la finestra di Microsoft Visual Basic.

2. Clic inserire > Modulo e copiare il seguente codice VBA nella finestra estratta.

VBA: Estrai il testo in base al colore del carattere

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. Quindi salvare e chiudere la finestra di dialogo e selezionare una cella vuota accanto all'elenco dei dati, digitare questa formula = GetColorText (A1) (A1 indica la cella da cui estrarre il testo), premere entrare chiave per ottenere il testo necessario, quindi trascinare la maniglia di riempimento automatico per riempire la formula nell'intervallo desiderato.

Ora puoi vedere tutto il testo rosso estratto.

doc-estratto-text-color-2

Mancia: Nel codice VBA di cui sopra, se è necessario estrarre il testo nero dalle celle, è possibile modificare il nome del colore Colore = vbRed a Color = vbBlack.


Articoli relativi:



Strumenti di produttività consigliati

Office Tab

stella d'oro1 Porta pratiche schede ad Excel e ad altri software Office, proprio come Chrome, Firefox e il nuovo Internet Explorer.

Kutools for Excel

stella d'oro1 Stupefacente! Aumenta la tua produttività in 5 minuti. Non servono abilità speciali, risparmiate due ore al giorno!

stella d'oro1 300 Nuove funzionalità per Excel, rendono Excel molto semplice e potente:

  • Unisci cella / righe / colonne senza perdere dati.
  • Combina e consolida più fogli e cartelle di lavoro.
  • Confronta intervalli, copia intervalli multipli, conversione testo in data, unità e conversione valuta.
  • Contare in base a colori, totali parziali cercapersone, ordinamento avanzato e filtro super,
  • Altro Seleziona / Inserisci / Elimina / Testo / Formato / Link / Commento / Cartelle di lavoro / Fogli di lavoro Strumenti ...

Schermata di Kutools per 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.
    Madhav · 1 years 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.
    mj · 2 years ago
    Hello, when i tried using vbBlue, it did not work.
    Help please?

    Thanks!
    • To post as a guest, your comment is unpublished.
      amit · 1 years ago
      Give the font color to the exct blue color.
      Because there are many type of blue color "light blue, sky blue, dark blue"
      vba match only exct color.??????