Visual Basic 6 - interazione con EXCEL

Forum - Visual Basic 6 - interazione con EXCEL

moet (Normal User)
Pro

Messaggi: 185
Iscritto: 13/11/2007

Postato alle 19:52
Mercoledì, 25/06/2008

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.

Codice sorgente - presumibilmente VB.NET

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

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 9:31
Giovedì, 26/06/2008

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

moet (Normal User)
Pro

Messaggi: 185
Iscritto: 13/11/2007

Postato alle 14:27
Giovedì, 26/06/2008

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.

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 17:59
Giovedì, 26/06/2008

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

Codice sorgente - presumibilmente VB.NET

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

moet (Normal User)
Pro

Messaggi: 185
Iscritto: 13/11/2007

Postato alle 19:16
Giovedì, 26/06/2008

grandeeeeeeeeeeeeeeee

funziona!!!!!

grazie ! :k:

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 20:11
Giovedì, 26/06/2008

e pensa che nn ci credevo neanche io

prego