Macro per ricerca parola in stringa di testo e restituzione valore

Question

Buongiorno,

non avendo alcuna familiarità con le macro, avrei bisogno del vostro aiuto per risolvere un problema di ricerca testo all'interno di una stringa e restituzione di un valore corrispondende.

Di seguito l'esempio con le istruzioni.

• I campi colonna C richiedono di essere compilati con la categoria di prodotto presente in colonna F
• la colonna B contiene l'elenco dei prodotti
• la colonna F contiene l'elenco delle categorie
• la colonna E contiene la chiave di testo che deve essere ricercata all'interno della colonna B, in base alla quale inserire la relativa categoria in colonna C
• le colonne B, E ed F contengono valori noti
• Il nr. di campi valorizzati in colonna B tendono ad aumentare, similmente quelli nelle colonne E ed F, anche se non in egual misura (la routine dev'essere in grado di cercare il dato pontenzialmente in tutte le righe delle colonne E ed F a prescindere dalla posizione del testo e dal fatto che sia scritto in maiuscolo o minuscolo).

L'obbiettivo è generare una macro che permetta di associare a ciascun prodotto la relativa categoria, cercando all'interno delle stringhe di testo della colonna B una o più parole contenute all'interno della colonna E e restituendo il relativo valore presente nella colonna F.

Grazie per l'aiuto che vorrete darmi.

Saluti

Alessio Foglia

Answer 1

' esegue la scansione della colonna 2 e tramite la funzione associa le categorie

Sub Macro()

  Dim Riga As Long

  Dim shfoglio As Worksheet

  Set shfoglio = Worksheets("Foglio1")

  Riga = 3

  Do While shfoglio.Cells(Riga, 2) <> ""

    shfoglio.Cells(Riga, 3) = fnChiaveDiTesto(shfoglio, Riga)

    Riga = Riga + 1

  Loop

End Sub

Function fnChiaveDiTesto(shfoglio As Worksheet, Riga As Long) As String

  Dim RigaCdT As Long

  RigaCdT = 3

  Do While shfoglio.Cells(RigaCdT, 5) <> ""

    If InStr(UCase(shfoglio.Cells(Riga, 2)), UCase(shfoglio.Cells(RigaCdT, 5))) > 0 Then

      fnChiaveDiTesto = shfoglio.Cells(RigaCdT, 6)

      Exit Do

    End If

    RigaCdT = RigaCdT + 1

  Loop

End Function

Answer 2

' esegue la scansione della colonna 2 e tramite la funzione associa le categorie

Sub Macro()

 

  Dim Riga As Long

  Dim shfoglio As Worksheet

 

  Set shfoglio = Worksheets("Foglio1")

 

  Riga = 3

  Do While shfoglio.Cells(Riga, 2) <> ""

    shfoglio.Cells(Riga, 3) = fnChiaveDiTesto(shfoglio, Riga)

    Riga = Riga + 1

  Loop

 

End Sub

Function fnChiaveDiTesto(shfoglio As Worksheet, Riga As Long) As String

 

  Dim RigaCdT As Long

 

  RigaCdT = 3

  Do While shfoglio.Cells(RigaCdT, 5) <> ""

    If InStr(UCase(shfoglio.Cells(Riga, 2)), UCase(shfoglio.Cells(RigaCdT, 5))) > 0 Then

      fnChiaveDiTesto = shfoglio.Cells(RigaCdT, 6)

      Exit Do

    End If

    RigaCdT = RigaCdT + 1

  Loop

   

End Function

Prefetto!

Grazie mille per l'aiuto.

Saluti

Alessio

Answer 3

Ciao,

se ho ben capito la tua domanda, i valori nelle colonne B, E ed F li inserisco io.

Ho necessità che la colonna C sia compilata in automatico sulla base dei valori esistenti.

Grazie

Alessio

Answer 4

ciao

ma una tabella con i prodotto/categoria

l'hai fatta?

come si fa ad associare un prodotto

ad una determinata categoria?