Realçar texto num Range

 A propósito do post anterior, existe uma maneira bem mais ajustada de efectuar esta espécie de filtro.

 

 Com a utilização de código VBA, podemos facilmente chegar ao mesmo resultado:

 

 

Sub Texto_Realce()

    Dim SearchString As String

    Dim SearchRange As Range

    Dim curCell As Range

    Dim StringLength As Integer

    Dim StartPosition As Integer

  

    Set SearchRange = Range("A1:A10")

    SearchRange.Font.FontStyle = "Regular" 

    SearchString = InputBox("Escreva o texto que pretende realçar")

    If SearchString = "" Then

        Exit Sub

    Else      

    End If  

    StringLength = Len(SearchString)   

    For Each curCell In SearchRange    

        StartPosition = InStr(curCell.Value, SearchString)

        If StartPosition > 0 Then 

            curCell.Characters(Start:=StartPosition, Length:=StringLength) _

                .Font.FontStyle = "Bold"

        Else           

        End If

    Next curCell 

End Sub