Visual Basic 6 - interazione con EXCEL

ciao a tutti,

ho bisogno di verificare se la data che mi da l' utente tramite inputbox è in un documento excel.


ho gia fatto mille tentativi ma il mio problema è che la data potrebbe essere tra delle parole TIPO: "oggi 12/06/2008 è una bella giornata"

e riportarle in una text. Probabilmente sara frequente trovarne piu di una.

ho impostato un codice che ho trovato ma non da l' esito che voglio.

Dim Zona As Range
Dim x As String
Dim CL As Range
Dim Inizio As Long
Dim Fine As Long
Call pulisci
Set Zona = Worksheets(1).UsedRange ' seleziona la zona dei dati presenti nel foglio
x = InputBox(" Digita la Parola da Cercare", " Ricerca Parola")

Fine = Len(x) ' determiniamo la lunghezza della parola da cercare

For Each CL In Zona
Inizio = InStr(CL.Value, x) ' determiniamo la variabile della parola (x) che è compresa tra nella stringa (CL.value)

CL.Characters(Start:=Inizio, Length:=Fine).Font.ColorIndex = 5 ' la cella è selezionata e verrà evidenziata solo la parte della varibile (fine)
CL.Characters(Start:=Inizio, Length:=Fine).Font.Bold = True ' la parola cercata sarà grassettata

Next



Public Sub pulisci()
Cells.Select
Selection.Font.ColorIndex = 0 ' elimina la colorazioen dei caratteri
Selection.Font.Bold = False ' elimina il grassetto
Cells(1, 2).Select
End Sub

che nn da l' esito che vuoi, in che seneo?

Ciao Anto,

grazie sei sempre molto gentile e preparato.


praticamente con quel codice che ho postato

inserendo ad inputbox la parola "pippo"

mi evidenzia sul file excel tutti gli inizi di parola di lunghezza pippo quindi 5 caratteri e li mette tutti in grasetto.

Invece io voglio che mi evidenzi e mi metta in grassetto solo ed esclusivamente se trova nel testo la parola "pippo".

Il file che ho postato evidenzia le parole della stessa lunghezza ma non identiche.

spero di essermi spiegato meglio.

premetto che nn sono esperto con excel (proprio per niente), ma prova ad aggiugere una if

For Each CL In Zona
if instr(cl.value,x)
Inizio = InStr(CL.Value, x)
CL.Characters(Start:=Inizio, Length:=Fine).Font.ColorIndex = 5
CL.Characters(Start:=Inizio, Length:=Fine).Font.Bold = True
endif
Next 

o se no prova a usare il mid xò ti rallenta un po
+ di così nn posso

grandeeeeeeeeeeeeeeee


funziona!!!!!


grazie !

e pensa che nn ci credevo neanche io

prego