Fai la tua domanda
0

salvare una configurazione del filtro (o in generale una visualizzazione)

chiesto il 2020-03-17 12:12:14 +0200

Immagine gravatar per Claudio R.

updated 2020-03-17 12:12:48 +0200

buongiorno, ho fatto qualche ricerca, forse frettolosamente, ma non ho trovato riscontro a questa esigenza. Mi trovo spesso a dover manipolare fogli di calcolo con molti dati e troverei molto comodo poter salvare alcune configurazioni di "filtraggio" o "viste" con righe e colonne nascoste con un nome o un riferimento' al fine di poterle ripristinare rapidamente, senza rimettere mano a tutto da capo. Sostanzialmente quello che su Excel è la Visualizzazione personalizzata. Grazie dell'attenzione.

modifica retag flag offensive close merge delete

1 Answer

0

risposto il 2020-03-18 12:07:02 +0200

Ciao @Claudio R., per Filtro Avanzato ho questa macro:

Sub FiltroAvanzato
'by Grafeno – ask.88558
'================================================|
Dim oDoc, oPlanAtiva, oPlan2, oIntervallo, oCriterios, oDestino, oFiltro As Object
oIntervallo = ThisComponent.Sheets.getByName( "Plan2" ).getCellRangeByName( "A1:b9" )
oCriteri = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName( "a14:b15" )
oDestinazione = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName( "a20" )
oFiltro = oCriteri.createFilterDescriptorByObject( oIntervallo )
oFiltro.CopyOutputData = True
oFiltro.OutputPosition = oDestinazione.CellAddress
oFiltro.ContainsHeader = True
oIntervallo.Filter( oFiltro ) 'Filtrar
End Sub

-----------------------------------------------------------------------------

ATTENZIONE: Se desideri fornire maggiori dettagli alla tua domanda, utilizza modifica in questione o aggiungi un commento di seguito. Grateful.

Se la risposta soddisfa le tue necessità, fai clic sulla palla Descrição da imagem a sinistra della risposta, per finire la domanda.

modifica flag offensive delete link more
Login/Signup to Answer

Question Tools

1 follower

Stats

Chieste: 2020-03-17 12:12:14 +0200

Seen: 21 times

Last updated: Mar 18