Condividi:        

tasto trova excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

tasto trova excel

Postdi totopc » 08/06/10 19:32

al posto di andare sempre nel menu trova per cercare qualcosa non e che si potrebbe creare un sistema sul foglio excel dove io scriva le iniziali di un nome e mi trovi quello che voglio ?
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Sponsor
 

Re: tasto trova excel

Postdi Flash30005 » 08/06/10 23:20

Dove vorresti inserire le iniziali del nome
e in quale range vorresti cercare il nome con quelle iniziali?

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: tasto trova excel

Postdi totopc » 09/06/10 08:24

http://rapidshare.com/files/396958891/esempio.xls.html
ti mando questo esempio con la speranza che mi sono spigato bene
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: tasto trova excel

Postdi totopc » 09/06/10 08:29

totopc ha scritto:http://rapidshare.com/files/396958891/esempio.xls.html
ti mando questo esempio con la speranza di essermi spiegato bene

ps se ce soluzione questo sistema mi servirebbe per vari file di excel quindi se e possibile spiegarmi anche come si fa ad inserirlo nei vari fogli
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: tasto trova excel

Postdi maxmula » 09/06/10 09:46

totopc ha scritto:al posto di andare sempre nel menu trova per cercare qualcosa non e che si potrebbe creare un sistema sul foglio excel dove io scriva le iniziali di un nome e mi trovi quello che voglio ?


Scusa, ma se lo scopo è evitare ogni volta di cliccare sul menu Modifica, andare su Trova, andare sula finestra e digitare il testo cercato non serve elaborare macro (nemmeno troppo semplici) da inserire in ogni foglio per emulare la funzione: ti basta imparare le scorciatoie da tastiera! ;)

Per la versione italiana esse sono:
SHIFT-CTRL-T => Trova
SHIFT-CTRL-S => Sostituisci


Se invece usi la versione inglese, la funzione Find si richiama col più tradizionale CTRL-F (non ho mai capito perchè cavolo debbano localizzare anche gli shortcut...)

Poi, una volta che hai aperto la finestra Trova, questa ti rimane lì con le impostazioni che hai usato l'ultima volta.
Se vuoi cercare solo le iniziali, basta che nelle opzioni (tasto [ Opzioni >> ] ) deselezioni sia "Maiuscole/Minuscole" che "Confronta intero contenuto della cella", e come "Cerca in" metti "Valori".

Digiti le iniziali, clicchi su "Trova Tutto" e vai dove ti serve.
Più semplice di così...

Ciao!
MAx
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34

Re: tasto trova excel

Postdi totopc » 09/06/10 11:26

hai ragione
ottimo
ma io non sono ferrato con excel
pero se la chiudo va via
non ce un sistema per tenerla fissa sul foglio ?
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: tasto trova excel

Postdi Flash30005 » 09/06/10 14:24

Prova questo file

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: tasto trova excel

Postdi totopc » 09/06/10 14:46

adesso per usarlo su altri fogli che devo fare ?
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: tasto trova excel

Postdi Flash30005 » 09/06/10 15:00

Su altri fogli o su altri file (cartelle excel)?

per altri fogli devi copiare soltanto il codice che si trova sul foglio1 all'interno del VBA
Vai sul Menu > Strumenti > Macro > Visual Basic Editor
Una volta nel VBA
vai sul Foglio1 (lato sinistro) e clicchi due volte
troverai questo codice (che puoi copiare anche qui)
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$H$8" Then Exit Sub
Call Cerca
End Sub

e incollarlo nel Foglio2 (cliccando sul foglio2 etc)
La macro che è nel modulo non va toccata e verrà richiamata con qualsiasi foglio da te utilizzato e nel quale avrai messo il codice sopra descritto

Se invece intendevi altre cartelle di excel (file.xls)
dovrai copiare sia la macro nel modulo

andando nel VBA
dal Menu > Strumenti > Macro > Visual Basic Editor

Codice: Seleziona tutto
Sub Cerca()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
StrN = Len([C8])
For RR = 1 To UR
If Mid(Range("A" & RR).Value, 1, StrN) = [C8] Then
Range("A" & RR).Select
GoTo esci
End If
Next RR
esci:
End Sub

puoi copiarli lì oppure qui

e inserirla in un modulo (con Inserisci > Modulo dal Menu del VBA)
Incolli la macro
Poi copi il codice del foglio1 e lo incolli nel/nei fogli della nuova cartella

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: tasto trova excel

Postdi maxmula » 09/06/10 15:02

totopc ha scritto:hai ragione
ottimo
ma io non sono ferrato con excel
pero se la chiudo va via
non ce un sistema per tenerla fissa sul foglio ?


Te lo dico solo se... mi prometti di metterti a studiare! ;)

Scherzi a parte, come accennavo prima, non è propriamente un'operazione da "non-ferrati in materia".
Io te la dico così, poi... mantenendo la promessa potrai implementarlo alla bisogna. :)


Allora: operazione preliminare: Da menu Strumenti/Personalizza/Comandi, fai in modo di piazzare il pulsantino "Trova" sulla barra degli strumenti STANDARD (quella dove ci sono i comandi per aprire e salvare i documenti e per fare copia-incolla, per intenderci)

Fatto questo, apri l'editor di Visual Basic, aggiungi un Modulo ed incollaci dentro questo codice:

Codice: Seleziona tutto
Sub MOSTRA_TROVAESOSTITUISCI()

 'Cerca la barra Standard
    NCB = Application.CommandBars.Count
    For CBID = 1 To NCB
        If Application.CommandBars(CBID).Name = "Standard" Then Exit For
    Next

'Cerca il pulsante Trova
    NCTR = Application.CommandBars(CBID).Controls.Count
    For CTRID = 1 To NCTR
        If CommandBars(CBID).Controls(CTRID).Caption = "&Trova..." Then Exit For
    Next

'Lancia la funzione Trova
    If CTRID > NCTR Then
        A = MsgBox("Controllo Trova... NON TROVATO!", vbOKOnly + vbExclamation)
        GoTo FINE
    End If
       
    Application.CommandBars(CBID).Controls(CTRID).Execute
    Application.CommandBars(CBID).Controls(CTRID).Visible = True
   
FINE:

End Sub


...e qui ti tocca studiare (tranquillo, non è difficile)
Per richiamare sempre la finestra devi richiamare questa routine al verificarsi dell'evento SelectionChange del foglio attivo:

Codice: Seleziona tutto
  Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
        Call MOSTRA_TROVAESOSTITUISCI
  End Sub


Per farlo, da editor di VB, biclicca la voce "ThisWorkbook" ed incolla il codice nella finestra che ti si apre.
Dovrai ripetere quest'operazione su tutti i fogli in cui vorrai avere la finestra sempre attiva.

In questo modo ti basterà cliccare ovunque sul foglio per far ricomparire la finestra di ricerca.

Ciao,
MAx

PS. Non è per male, ma se si mette del materiale su RapidShare o simili non è detto che tutti riescano a vederlo. Ad esempio dove mi trovo io l'accesso a questi siti è bloccato per "motivi di sicurezza"... Meglio, se possibile, fare tutto all'interno del topic in PC-Facile ;)
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34


Torna a Applicazioni Office Windows


Topic correlati a "tasto trova excel":


Chi c’è in linea

Visitano il forum: Nessuno e 30 ospiti