Condividi:        

Filtrare parola chiave e cancellare il superfluo

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

Filtrare parola chiave e cancellare il superfluo

Postdi calculon » 25/05/11 22:10

Sì, ci sto prendendo gusto.

Mettiamo il caso che io abbia copiato su excel un testo piuttosto lungo, all'interno del quale voglio isolare una parola chiave ben precisa cancellando tutto il resto.

Come potrei operare?

Grazieee
calculon
Utente Senior
 
Post: 161
Iscritto il: 07/01/11 15:08

Sponsor
 

Re: Filtrare parola chiave e cancellare il superfluo

Postdi Avatar3 » 25/05/11 22:43

Fai bene a prenderci gusto pero...

spiega meglio il quesito
perché se prendo per buono ciò che hai specificato
basterebbe scrivere la "parola chiave" nella colonna a fianco della colonna contenente la frase e copiarla fino alla fine delle righe che hai sul foglio contenente la frase
Ma non credo proprio che ciò che vuoi! :roll:
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04

Re: Filtrare parola chiave e cancellare il superfluo

Postdi calculon » 25/05/11 23:07

Allora, il testo contiene delle stringhe del tipo num.prot. 234/2001_; iscr. prot. 14777/2010_ e altre stringhe che a me non interessano.

Io vorrei isolare solo la parte numerica es. 234/2001, 14777/2010 ecc.. cancellando tutto ciò che non mi serve.
calculon
Utente Senior
 
Post: 161
Iscritto il: 07/01/11 15:08

Re: Filtrare parola chiave e cancellare il superfluo

Postdi Avatar3 » 25/05/11 23:13

E' ancora poco per fare un'analisi di ciò che deve essere tolto e cosa deve rimanere
potresti inviare due o tre stringhe complete?
(metti delle XXX in caso di dati sensibili corripondenti a nomi etc ma non cancellare i caratteri jolly: underscore, punto e virgola etc)
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04

Re: Filtrare parola chiave e cancellare il superfluo

Postdi calculon » 27/05/11 16:46

In realtà non sono riuscito proprio a cancellare tutto ciò che non mi serve, ma ho pensato di risolvere il problema applicando un filtro.

ActiveSheet.Range("$B$1:$B$11039").AutoFilter Field:=1, Criteria1:= _
"=*checkbox*", Operator:=xlAnd

In questo modo mi viene evidenziata la stringa che contiene il dato che mi interessa, poi col comando

Selection.Replace What:= _
"TESTO DA ELIMINARE ", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False

elimino quanto mi è superfluo.


Grazie mille
calculon
Utente Senior
 
Post: 161
Iscritto il: 07/01/11 15:08

Re: Filtrare parola chiave e cancellare il superfluo

Postdi calculon » 27/05/11 17:06

Piuttosto, ora, l'ultimo tassello per ottenere un lavoro assolutamente perfetto è dato dalla possibilità di far aprire in automatico alla macro una serie di indirizzi internet, composti da una parte costante e una variabile già filtrata e incolonnata su excel.

http://baubaumiciomicio/Servizi/sociali ... Richiesta=PARTEVARIABILE&servizio=NSG"

Se lui riuscisse ad aprire questi link a ruota con google Chrome sarebbe davvero la svolta per il mio lavoro!
calculon
Utente Senior
 
Post: 161
Iscritto il: 07/01/11 15:08

Re: Filtrare parola chiave e cancellare il superfluo

Postdi Avatar3 » 27/05/11 22:25

Il link da te inviato è errato
riprova seguendo la procedura indicata nel forum
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04

Re: Filtrare parola chiave e cancellare il superfluo

Postdi calculon » 28/05/11 00:14

Sì, è un link fittizio.
Ho riportato un semplice esempio per riuscire a spiegare il mio progetto.

E' proprio necessario il link corretto?
calculon
Utente Senior
 
Post: 161
Iscritto il: 07/01/11 15:08

Re: Filtrare parola chiave e cancellare il superfluo

Postdi ricky53 » 28/05/11 00:25

Ciao,
NO.
Però ptrebbe aiutare nella comprensione del quesito.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Filtrare parola chiave e cancellare il superfluo

Postdi Anthony47 » 28/05/11 15:36

Qualcosa del tipo:
Codice: Seleziona tutto
MyLink="http://baubaumiciomicio/Servizi/sociali ... Richiesta=" & Range("A1").value & "&servizio=NSG"
ActiveWorkbook.FollowHyperlink Address:=MyLink , NewWindow:=True

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Filtrare parola chiave e cancellare il superfluo

Postdi calculon » 29/05/11 15:40

URL = "http://baubaumiciomicio/Servizi/sociali ... Richiesta=" & Range("A1").value & "&servizio=NSG"

file = "c:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

Call Shell(file & " " & URL, vbNormalFocus)

End Sub

In questo modo funziona bene, solo che apre solo il link collegato alla cella a1.

A me piacerebbe che lo facesse fino alla cella 300.

Come va modificata la stringa?

Grazieeeeeeeeee
calculon
Utente Senior
 
Post: 161
Iscritto il: 07/01/11 15:08

Re: Filtrare parola chiave e cancellare il superfluo

Postdi calculon » 29/05/11 21:58

For I = 1 To 1000
If Cells(I, 1) = "" Then Exit Sub

risoltooooo.

Grazie come sempre!
calculon
Utente Senior
 
Post: 161
Iscritto il: 07/01/11 15:08

Re: Filtrare parola chiave e cancellare il superfluo

Postdi Avatar3 » 29/05/11 22:05

Bravo!
hai trovato da solo un metodo
più correttamente potresti usare questo codice
Codice: Seleziona tutto
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row

Che conta il numero di righe sulla colonna A del foglio "Foglio1"
Poi fai il tuo ciclo for... next
Codice: Seleziona tutto
For I = 1 To UR

In questa maniera non hai bisogno di fare un exit sub in caso di cella vuota
e se le righe dovessero essere più di 1000 il codice precedente ti darà il numero effettivo di righe 1500, 3000 etc
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04

Re: Filtrare parola chiave e cancellare il superfluo

Postdi calculon » 30/05/11 21:35

Chiarissimo!

Ora la domanda del giorno:
aprire un sito e copiare il suo contenuto è fattibile?

Suppongo di sì. 'sto visual basic è una roba assurda!
calculon
Utente Senior
 
Post: 161
Iscritto il: 07/01/11 15:08

Re: Filtrare parola chiave e cancellare il superfluo

Postdi Anthony47 » 30/05/11 21:45

Per questo non avresti nemmeno bisogno di aprire la pagina, ma usi l' url calcolato come link della query.

Guarda nell' help on line di excel come funziona la query web, prova a eseguirne qualcuna sulle tue pagine (Menu /Dati /Importa dati esterni /Nuova query web) e dicci se questo strumento e' idoneo per quello che devi fare.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Filtrare parola chiave e cancellare il superfluo

Postdi Avatar3 » 30/05/11 21:50

E' semplicissimo
Memorizza il link del sito di tuo interesse
Apri un nuovo foglio
Regista una macro
Vai su Menu Dati -> Importa Dati Esterni -> Nuova query Web
Nella finestra in alto icolla il link del sito
Porebbero apparire delle frecce nere su fondo giallo, ognuna corrisponde ad una tabella
selezioni quella/quelle che ti interessano
Premi importa (cella A1)
Premi Ok
Fermi la macro
e nel vba troverai un codice simile a questo
Codice: Seleziona tutto
Sub Macro1()
'
' Macro1 Macro'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.lottoconsult.it/estrazioni_lotto.asp?anno=2008", Destination _
        :=Range("A1"))
        .Name = "estrazioni_lotto.asp?anno=2008"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "7,8"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub


Se incolli questa macro e la avvii avrai i risultati del lotto anno 2008 per tutte le ruote
Per cambiare anno sostituisci il 2008 in questa riga
Codice: Seleziona tutto
        "URL;http://www.lottoconsult.it/estrazioni_lotto.asp?anno=2008", Destination _
        :=Range("A1"))

Anno che potresti rendere variabile con un for... next
Codice: Seleziona tutto
       
For Anno = 2000 to 2010
 "URL;http://www.lottoconsult.it/estrazioni_lotto.asp?anno=" & Anno, Destination _
        :=Range("A1"))
'...
'...
Next Anno

In questo caso i dati vanno accodati ma non è un problema
calculon ha scritto:'sto visual basic è una roba assurda!
;)
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04


Torna a Applicazioni Office Windows


Topic correlati a "Filtrare parola chiave e cancellare il superfluo":


Chi c’è in linea

Visitano il forum: Nessuno e 109 ospiti