In questo articolo, impareremo come creare un modulo utente per la ricerca e la stampa tramite VBA in Microsoft Excel.
Capiamo con un semplice esercizio:-
Abbiamo dati nel foglio 1 in cui la colonna A contiene l'ID agente, la colonna B contiene il nome, l'indirizzo della colonna C, la città della colonna D, la regione della colonna E, il paese della colonna F e la colonna G contiene il CAP.
Nel foglio successivo (foglio 2), vogliamo recuperare i dettagli secondo l'immagine sotto menzionata:-
Se cerchiamo l'ID agente, tutti i dettagli dovrebbero apparire nell'intervallo A11: D11. E poi dai la stampa.
Seguire i passaggi indicati di seguito per cercare e stampare i dettagli: -
- Premi il tasto F11 per aprire l'editor di Visual Basic
- Inserisci il modulo per scrivere il codice per il pulsante di ricerca
- Scrivi il codice sotto indicato:-
Sub Searchdata() Dim Lastrow As Long Dim count As Integer Lastrow = Sheets("Data").Cells(Rows.count, 1).End(xlUp).Row For X = 2 To Lastrow If Sheets("Data"). Cells(X, 1) = Foglio3.Range("B3") Then Sheet3.Range("A11") = Sheets("Dati").Cells(X, 1) Foglio3.Range("B11") = Sheets(" Dati").Celle(X, 2) Foglio3.Intervallo("C11") = Fogli("Dati").Celle(X, 3) & " " & Fogli("dati").Celle(X, 4) _ & " " & Fogli("dati").Celle(X, 5) & " " & Fogli("Dati").Celle(X, 6) Foglio3.Intervallo("D11") = Fogli("Dati"). Cells(X, 7) End If Next X End Sub
Spiegazione del codice:- Innanzitutto, definiremo le variabili e poi abbiamo definito quale riga sarà l'ultima riga, quindi abbiamo definito cosa e dove verrà cercato l'ID agente e quindi come verrà aggiornato l'intervallo per l'ID agente cercato.
Ora assegneremo questa macro al pulsante Cerca.
- Fare clic con il tasto destro sul pulsante
- Fare clic su Assegna macro
- Qui, il nostro argomento macro è Searchdata, fare clic su searchdata e quindi fare clic su OK
Esegui la macro:-
- Per eseguire la macro, fai clic sul pulsante Cerca
- Se l'ID agente sarà presente, i dettagli verranno aggiornati, altrimenti i dettagli non verranno visualizzati
Per dare la stampa, assegna la macro sotto menzionata:-
- Inserisci il pulsante dalla scheda Sviluppatore> Inserisci> Pulsante (controllo modulo)
- Scrivi la macro nello stesso modello in cui abbiamo scritto la macro per Searchdata, con il nome dell'oggetto di Printout
Sub PrintOut() Sheet3.Range("A1:D12").PrintPreview Sheet3.Range("A1:D12").PrintOut End Sub
- Assegna la macro al pulsante come abbiamo assegnato a searchdata
In questo modo possiamo cercare i dati e poi dare la stampa ai dettagli cercati tramite VBA in Microsoft Excel.
Se ti è piaciuto il nostro blog, condividilo con i tuoi amici su Facebook. E puoi anche seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare, completare o innovare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica