ricerca evidenzia contenuto

Attribute VB_Name = "ricerca_evidenzia_contenuto"

'

Option Explicit

'

' vba - ricerca ed evidenzia cella in base al contenuto utilizzando una espressione regolare

'

Sub EvidenziaCellaPerContenuto()

Dim procedura, testodaricercare As String, cella As Range

Set procedura = CreateObject("VBScript.RegExp")

testodaricercare = InputBox("cosa deve contenere la cella:", "scelta", "")

With procedura

.Pattern = testodaricercare

.IgnoreCase = True

.Global = True

For Each cella In ActiveSheet.UsedRange

If .test(cella.Value) Then cella.Interior.ColorIndex = 3

Next cella

End With

Set procedura = Nothing

'

End Sub

'