Cerca su foglio |
|
| Storico
discussioni |
|
| Aiuto di Alberto |
Stò iniziando a lavorare in vba e ho un problema
(beh sicuramente più di uno, ma ora mi preme questo).
stò
cominciando ad usare il comando cells.find. quando lo uso il comando
mi attiva la cella interessata (se c'è). io però ho bisogno di
metterlo in un ciclo if then per fare una cosa del tipo: se il
valore cercato esiste allora ...
quindi per farlo dovrebbe
essere una cosa del genere:
c = cells.find ("xxyyzz").activate
if c =true then . . .
else
end if
qualcuno sa se è
possibile?
alberto |
|
| Ciao alberto di
Apoben64 |
Benevenuto nel forum !.
ti allego questo codice
, che puoi adattare alle tue esigenze e che utilizza la proprietà
find, con un ciclo , per la ricerca di testo mediante una inputbox.
come puoi notare la risposta si visualizza in una msgbox .
spero
ti possa essere d'aiuto !
Sub ricerca()
Dim CL As Object
Dim Zona As Excel.Range
Dim Cerca As String
Dim Dove As String
Dim domanda As Integer
Dim txtTesto As String
Dim I As Byte
txtTesto = ""
Worksheets("Quadro1").Activate
Set Zona = ActiveSheet.UsedRange
ANCORA_1:
Cerca = InputBox("Digita Nominativo")
If Cerca = "" Then Exit Sub
On Error GoTo NONTROVATO
Dove = Zona.Find(Cerca).Row
For I = 1 To 4 Step 1
txtTesto = txtTesto & " " & Cells(Dove, I).Value
Next
domanda = MsgBox("trovato """ & Cerca & """ nella riga " & Dove _
& ". Tutte le parole """ & txtTesto & """ Vuoi cercare ancora?", vbYesNo)
If domanda = vbNo Then
Exit Sub
Else
GoTo ANCORA_1
End If
Exit Sub
NONTROVATO:
domanda = MsgBox("Non trovato!")
Resume ANCORA_1
End Sub | |
|
| Grazie per l'aiuto di
Alberto |
Molto interessante la tua routine, perderei
l'intera giornata a studiare e capire il funzionamento di routine
come quella, ma rischierei il licenziamento.
avrei un'altra
domanda: a parte l'ottimo funzionamento di questo forum, conoscete
manuali, dispense, o anche corsi su cd che siano semplici e validi
per conoscere meglio il vba?
ciao alberto |
|
| di Enzo |
Se vuoi io ho acquistato tempo fa un manuale
interessante
si chiama visualbasic 6.0
guida alla
programmazione
autori julia case bradley - anita c. millspaugh
casa editrice mcgraw-hill
e' in italiano
prova un po
|
|
| Per alberto di
Apoben64 |
Ciao alberto, la routine era solo un esempio
pratico di come cercare un valore con il metodo find, se vuoi la
possiamo applicare alla tua realtà.
per quanto riguarda qualche
corso, in questo sito , mauro ha svilppato un corso base ed uno con
approndimenti che riguardano in maniera ampia gli argomenti tipo
relativi al vba, e quello che più importa è semplice.
un saluto
luca |
|
| Per apoben64 di
Alberto |
La routine è molto interessante. ho avuto modo di
studiarmela velocemente e capire alcune cose che magari non
conoscevo e non erano disponibili sulla guida in linea di excel
(es.:zona=excel.range).
nel mio caso specifico (e la tua routine
può essere adattata) stavo cercando un comando simile a
"..contiene.." dei filtri |
|
|