Aprire il foglio di lavoro in cui si desidera trovare una corrispondenza . Premere il tasto " Alt " e tasti " F11 " insieme . Si apre l'editor di Visual Basic (VBE ) .
2
Fare clic su " Inserisci" e poi su " Modulo ". Verrà inserita una finestra vuota del modulo
3
Copia e incolla il seguente codice nella finestra vuota : .
Sub Find_First ( ) per
Dim FindString come String
Dim RNG come gamma
FindString = InputBox ( "Inserire un valore di ricerca " ) per
Trim ( FindString ) < > "" Then
< . p > Con Sheets ( " Foglio1 " ) Range ("A1 : Z256 " ) .
Set Rng = Find ( What: = FindString , _
Dopo : . . = cellule (cellule . conte ) , _
lookin : = xlValues , _
LookAt : = xlWhole , _
SearchOrder : = xlByRows , _
SearchDirection : = xlNext , _
MatchCase : = False ) per
Se Non RNG è niente allora
Application.Goto RNG , vero
Else
MsgBox " Non abbiamo trovato nulla "
End If End With
End If End Sub
4
Cambiare il " gamma " nel codice per l'intervallo di celle in cui si desidera cercare una corrispondenza . Per esempio, se si vuole guardare in celle C1 : C1000 , tipo "C1 : C1000 " al posto di "A1 : . Z256 "
5
Premere " F5 ", quindi digitare la stringa di testo o dati che si desidera trovare nella casella di testo . Excel troverà la partita e evidenziare la cella .
software © www.354353.com