MACROS DE EXCEL

Extraer todos los valores con o sin formato cursiva de una celda

Extraer todos los valores con o sin formato cursiva de una celda

Sintaxis de la funci贸n: =ITALICTEXT(A1)

La siguiente macro nos permite extraer todos los valores con formato cursiva de una celda:

Function ITALICTEXT(ByVal RNG As Range) As Variant
'ONLY ONE CELL
If RNG.Count <> 1 Then
'RETURN ERROR
ITALICTEXT = CVErr(xlErrNum)
End If
Dim I As Long
'PROCESS EACH CHARACTER
ITALICTEXT = ""
For I = 1 To Len(RNG.Text)
If RNG.Characters(I, 1).Font.Italic = False Then
ITALICTEXT = ITALICTEXT & RNG.Characters(I, 1).Text
End If
Next I
End Function

 

Si lo que deseamos es extraer los valores sin formato cursiva de una celda, debemos reemplazar 鈥淚f Rng.Characters(i, 1).Font.Italic Then鈥 por 鈥淚f Rng.Characters(i, 1).Font.Italic = False Then鈥 dentro de la sintaxis.

Te recomiendo ver el siguiente link con m谩s videos de Macros 煤tiles de Excel聽AQU脥.

驴No sab茅s como instalar esta macro? 隆No te preocupes!聽 Aqu铆 est谩 la soluci贸n:

Salvo aclaraci贸n, todas las f贸rmulas y macros de este sitio est谩n configuradas para aplicarse sobre la celda A1.聽Algunas f贸rmulas se encuentran encerradas entre llaves {} debido a que son f贸rmulas matriciales. Estas llaves no deben introducirse tecle谩ndolas, sino que se generan autom谩ticamente al aceptar la f贸rmula pulsando Control+Shift+Enter al mismo tiempo.聽Las f贸rmulas de este sitio son compatibles con versiones de Microsoft Excel庐 2010 o superiores.聽