saluti ,
Voglio creare una macro di base in LibreOffice per inserire i pulsanti del filtro automatico nell'intervallo da "C1 a G1" in Sheet1 .
osservazione :
segue un file modello allegato e un'immagine della soluzione che sto cercando con Macro .
abbracci .
[RISOLTO] macro Inserire i pulsanti del filtro automatico
[RISOLTO] macro Inserire i pulsanti del filtro automatico
- Allegati
-
- pulsante del filtro automatico.ods
- (19.6 KiB) Scaricato 102 volte
Ultima modifica di chimico il lunedì 3 dicembre 2018, 16:23, modificato 2 volte in totale.
LibreOffice 5.4.4.2 no Windows 7
Re: macro Inserire i pulsanti del filtro automatico
prova il registratore di macro da Strumenti, macro, registra
applica i filtri manualmente e poi clicca su Termina Registrazione
applica i filtri manualmente e poi clicca su Termina Registrazione
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Re: macro Inserire i pulsanti del filtro automatico
saluti amico mio ,
Ho già provato il registratore di macro, ma non funziona per la regione da "C1 a G1" ?
ha il foglio di lavoro allegato per testare .
abbracci .
Ho già provato il registratore di macro, ma non funziona per la regione da "C1 a G1" ?
ha il foglio di lavoro allegato per testare .
abbracci .
LibreOffice 5.4.4.2 no Windows 7
Re: macro Inserire i pulsanti del filtro automatico
Ti allego tuo file con area definita "FILTRO" con il seguente range $Sheet1.$C$1:$G$337
Poi lancia la macro Filtro
Saluti
Poi lancia la macro Filtro
Saluti
- Allegati
-
- pulsante del filtro automatico.ods
- (19.85 KiB) Scaricato 137 volte
LibreOffice 7.2.2.2 windows 10
Openoffice 4.1.13 su windows 10
Openoffice 4.1.13 su windows 10
Re: macro Inserire i pulsanti del filtro automatico
saluti Gaetanopr ,
Grazie per l'aiuto .
puoi aumentare l'area definita "FILTRO" con intervallo per più colonne, se aggiungo più colonne .
il numero di colonne può variare .
la macro deve "vedere" tutte le colonne con i valori e quindi inserire i "filtro" nelle colonne con i valori .
amici abbracci .
Grazie per l'aiuto .
puoi aumentare l'area definita "FILTRO" con intervallo per più colonne, se aggiungo più colonne .
il numero di colonne può variare .
la macro deve "vedere" tutte le colonne con i valori e quindi inserire i "filtro" nelle colonne con i valori .
amici abbracci .
LibreOffice 5.4.4.2 no Windows 7
Re: macro Inserire i pulsanti del filtro automatico
La prossima volta specifica meglio, perchè nel messaggio iniziale dicevi altro, usa questa macro
Saluti
Codice: Seleziona tutto
Sub Filtro 'L' AREA DEFINITA Filtro DEVE ESSERE GIA' PRESENTE
Dim oDir As New com.sun.star.table.CellRangeAddress
Doc = ThisComponent
Sh = Doc.getSheets.getByName("Sheet1")
a = Sh.createCursor
a.gotoEndOfUsedArea(false)
LastRow = a.RangeAddress.EndRow
LastCol = a.RangeAddress.EndColumn
DB = ThisComponent.DataBaseRanges()
RBD = DB.getByName("Filtro")
Nome = "Filtro"
If DB.hasByName(Nome) Then
RBD = DB.getByName(Nome)
oDir = Sh.getCellrangeByPosition(2, 0, LastCol, LastRow).RangeAddress
RBD.setDataArea( oDir )
End if
RBD.AutoFilter = True
End Sub
LibreOffice 7.2.2.2 windows 10
Openoffice 4.1.13 su windows 10
Openoffice 4.1.13 su windows 10
Re: macro Inserire i pulsanti del filtro automatico
[Risolto]
sr. Gaetanopr ,
Grazie mille per il tuo aiuto .
grazie per aver riformulato la macro .
È stato fantastico .
amici abbracci .
sr. Gaetanopr ,
Grazie mille per il tuo aiuto .
grazie per aver riformulato la macro .
È stato fantastico .
amici abbracci .
LibreOffice 5.4.4.2 no Windows 7