Extraindo somente o texto em itálico de uma célula
Enviado: 26 Mar 2016 às 16:25
Olá a todos
Eu estou fazendo um trabalho no qual eu preciso extrair o texto formatado em itálico de dentro de cada célula, o qual corresponde à espécies florestais. Tentei uma função em VBA, mas não tive sucesso. Essa função funciona somente quando o texto inicia com caracteres formatados em itálico.
Seuge em anexo uma amostra dos dados que estou trabalhando.
Agradeço desde já a atenção de vocês.
Abs,
Carlos
Eu estou fazendo um trabalho no qual eu preciso extrair o texto formatado em itálico de dentro de cada célula, o qual corresponde à espécies florestais. Tentei uma função em VBA, mas não tive sucesso. Essa função funciona somente quando o texto inicia com caracteres formatados em itálico.
Código: Selecionar todos
Alguém poderia me ajudar a adaptar essa função ou talvez criar outra?Option Explicit
Public Function StandardName(ByRef OpCell As Range) As String
Dim CharPos As Long, _
IsItalic As Boolean, _
TempStr As String
TempStr = ""
For CharPos = 1 To Len(OpCell.Value)
IsItalic = OpCell.Characters(CharPos, 1).Font.Italic
If Not IsItalic Then Exit For
TempStr = TempStr & Mid(OpCell, CharPos, 1)
Next CharPos
StandardName = Trim(TempStr)
End Function
Seuge em anexo uma amostra dos dados que estou trabalhando.
Agradeço desde já a atenção de vocês.
Abs,
Carlos