Wir sind auf Ihre Unterstützung angewiesen!
💚 BITTE helfen Sie uns HEUTE mit einer SPENDE 💚
Helfen Sie das LibreOffice Forum zu erhalten!
> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗
[Gelöst] makro: Mehrere Filter gleichzeitig ausführen
[Gelöst] makro: Mehrere Filter gleichzeitig ausführen
Grüße ,
Ich habe eine Berichtsdatei mit automatischen Filtern in Arbeitsblatt 1; Filter werden von Spalte "A" bis Spalte "AZ" in Zeile 1 eingefügt .
Ich brauche ein Makro, um mehrere Spalten gleichzeitig zu filtern, dh das Makro muss "7" ausführen, wobei sieben Filter in der Reihenfolge von links nach rechts aufeinander folgen .
Bei jedem Filter, der nacheinander von links nach rechts ausgeführt wird, verringert sich die Anzahl der Zeilen, die im Bericht aus Arbeitsblatt 1 angezeigt werden .
Ich habe versucht, den Code anzupassen: Sub FiltrarDatos6 () oder Sub FiltrarDatos8 () des folgenden Link : https://wiki.openoffice.org/wiki/ES/Man ... trar_datos
Ich habe keine positiven Ergebnisse mit Link-Codes
umarmt Freunde
Ich habe eine Berichtsdatei mit automatischen Filtern in Arbeitsblatt 1; Filter werden von Spalte "A" bis Spalte "AZ" in Zeile 1 eingefügt .
Ich brauche ein Makro, um mehrere Spalten gleichzeitig zu filtern, dh das Makro muss "7" ausführen, wobei sieben Filter in der Reihenfolge von links nach rechts aufeinander folgen .
Bei jedem Filter, der nacheinander von links nach rechts ausgeführt wird, verringert sich die Anzahl der Zeilen, die im Bericht aus Arbeitsblatt 1 angezeigt werden .
Ich habe versucht, den Code anzupassen: Sub FiltrarDatos6 () oder Sub FiltrarDatos8 () des folgenden Link : https://wiki.openoffice.org/wiki/ES/Man ... trar_datos
Ich habe keine positiven Ergebnisse mit Link-Codes
umarmt Freunde
Zuletzt geändert von genie am Sa 1. Dez 2018, 17:06, insgesamt 1-mal geändert.
LibreOffice 5.4.4.2 - Windows 7
Re: makro: Mehrere Filter gleichzeitig ausführen
Hallo,
suchst du ernsthaft Hilfe? Bitte eine Beispieldatei.
suchst du ernsthaft Hilfe? Bitte eine Beispieldatei.
Gruß,
mikele
mikele
Re: makro: Mehrere Filter gleichzeitig ausführen
Grüße mikele ,
Ich möchte mich für die Hilfe bedanken .
folgt der angehängten Datei, im Arbeitsblatt 1 befindet sich ein Modell mit vier "4" -Filtern, die nacheinander in der Reihenfolge von links nach rechts laufen .
Regeln für Filter :
Filter 1: Wert größer oder gleich 7 [> = 7]
Filter 2: Wert kleiner oder gleich 6 [<= 6]
Filter 3: Wert größer als 2 [> 2]
Filter 4: Wert größer als 7 [> 7]
Hinweis :
Ich habe den automatischen Filter manuell angewendet, um als Modell zu dienen
müssen diesen Makrobetrieb automatisieren
Umarmungen
Ich möchte mich für die Hilfe bedanken .
folgt der angehängten Datei, im Arbeitsblatt 1 befindet sich ein Modell mit vier "4" -Filtern, die nacheinander in der Reihenfolge von links nach rechts laufen .
Regeln für Filter :
Filter 1: Wert größer oder gleich 7 [> = 7]
Filter 2: Wert kleiner oder gleich 6 [<= 6]
Filter 3: Wert größer als 2 [> 2]
Filter 4: Wert größer als 7 [> 7]
Hinweis :
Ich habe den automatischen Filter manuell angewendet, um als Modell zu dienen
müssen diesen Makrobetrieb automatisieren
Umarmungen
- Dateianhänge
-
- mehrere automatische filter.ods
- (12.18 KiB) 176-mal heruntergeladen
LibreOffice 5.4.4.2 - Windows 7
Re: makro: Mehrere Filter gleichzeitig ausführen
Hallo,
dafür würde auch der Standardfilter reichen.
Als Makro funktioniert das Beispiel Sub FiltrarDatos7() aus deiner Quelle schon ganz gut.
Es müssen nur die 7 Spalten deines Bereiches als Filterfelder angegeben werden.
dafür würde auch der Standardfilter reichen.
Als Makro funktioniert das Beispiel Sub FiltrarDatos7() aus deiner Quelle schon ganz gut.
Es müssen nur die 7 Spalten deines Bereiches als Filterfelder angegeben werden.
Code: Alles auswählen
mCamposFiltro(0).Field = 1
mCamposFiltro(0).Operator = com.sun.star.sheet.FilterOperator.GREATER_EQUAL
mCamposFiltro(0).IsNumeric = True
mCamposFiltro(0).NumericValue = 30
'Agregamos la segunda condición a otro campo
mCamposFiltro(1).Field = 2
mCamposFiltro(1).Connection = com.sun.star.sheet.FilterConnection.AND
mCamposFiltro(1).Operator = com.sun.star.sheet.FilterOperator.LESS_EQUAL
mCamposFiltro(1).IsNumeric = True
mCamposFiltro(1).NumericValue = 35
mCamposFiltro(1).Field = 3
...
Gruß,
mikele
mikele
Re: makro: Mehrere Filter gleichzeitig ausführen
Hallo mikele ,
Ich habe versucht, ein Sub-FilterData7() in der von Ihnen angeforderten Axexo-Datei zu verwenden, aber das Sub-FilterData7() funktionierte nicht richtig .
Umarmungen
Ich habe versucht, ein Sub-FilterData7() in der von Ihnen angeforderten Axexo-Datei zu verwenden, aber das Sub-FilterData7() funktionierte nicht richtig .
Umarmungen
LibreOffice 5.4.4.2 - Windows 7
Re: makro: Mehrere Filter gleichzeitig ausführen
Hallo,
was funktioniert nicht?
was funktioniert nicht?
- Dateianhänge
-
- mehrere automatische filter makro.ods
- (15.7 KiB) 157-mal heruntergeladen
Gruß,
mikele
mikele
Re: makro: Mehrere Filter gleichzeitig ausführen
mikele ,
Ich habe die Tests mit der Datei durchgeführt, die Sie angehängt haben, ich habe einen Button in die Datei eingefügt, ich habe den Button gedrückt und dann haben die Filter mit den Zahlen richtig funktioniert .
dann änderte ich die "D" -Spalte mit Zahlen in eine Spalte mit Namen, und dann drückte ich die Taste erneut, um zu filtern, und der korrekte Filter funktionierte nicht .
Beobachtung :
folgt der Anhangsdatei mit der Änderung, Sie können das neue Makro prüfen Sub-FilterData7() .
Umarmungen
Ich habe die Tests mit der Datei durchgeführt, die Sie angehängt haben, ich habe einen Button in die Datei eingefügt, ich habe den Button gedrückt und dann haben die Filter mit den Zahlen richtig funktioniert .
dann änderte ich die "D" -Spalte mit Zahlen in eine Spalte mit Namen, und dann drückte ich die Taste erneut, um zu filtern, und der korrekte Filter funktionierte nicht .
Beobachtung :
folgt der Anhangsdatei mit der Änderung, Sie können das neue Makro prüfen Sub-FilterData7() .
Umarmungen
- Dateianhänge
-
- mehrere automatische filter makro.ods
- (20.29 KiB) 147-mal heruntergeladen
LibreOffice 5.4.4.2 - Windows 7
Re: makro: Mehrere Filter gleichzeitig ausführen
Hallo,
du willst 3 Filterbedingungen definieren. Daher
Die Zählung beginnt bei 0.
Das Löschen des Filters geht ebenfalls direkt.
du willst 3 Filterbedingungen definieren. Daher
Code: Alles auswählen
Dim mCamposFiltro(2) As New com.sun.star.sheet.TableFilterField
Das Löschen des Filters geht ebenfalls direkt.
- Dateianhänge
-
- mehrere automatische filter makro 2.ods
- (21.39 KiB) 160-mal heruntergeladen
Gruß,
mikele
mikele
Re: makro: Mehrere Filter gleichzeitig ausführen
mikele ,
sehr gutes Makro, arbeitet bereits entsprechend der Anfrage im Thema .
Ich möchte die Nachfrage nach einer weiteren Sache nutzen, da der BASIC Code geschrieben wird, wenn im Filter(1) nach mehreren Kriterien gefiltert werden soll : mCamposFiltro(1).StringValue = Array ( "joão" , "juca", "carlos" )
Wie lautet der Code, um das Field(1) mit dem Array zu filtern ?
Ich habe es versucht, es gelang mir nicht .
Umarmungen
sehr gutes Makro, arbeitet bereits entsprechend der Anfrage im Thema .
Ich möchte die Nachfrage nach einer weiteren Sache nutzen, da der BASIC Code geschrieben wird, wenn im Filter(1) nach mehreren Kriterien gefiltert werden soll : mCamposFiltro(1).StringValue = Array ( "joão" , "juca", "carlos" )
Wie lautet der Code, um das Field(1) mit dem Array zu filtern ?
Ich habe es versucht, es gelang mir nicht .
Umarmungen
LibreOffice 5.4.4.2 - Windows 7
Re: makro: Mehrere Filter gleichzeitig ausführen
Hallo,
am einfachsten nutzt du wie in Sub FiltrarDatos9() einen regulären Ausdruck.
Also folgende Zeilen ergänzen:
und
am einfachsten nutzt du wie in Sub FiltrarDatos9() einen regulären Ausdruck.
Also folgende Zeilen ergänzen:
Code: Alles auswählen
oDesFiltro.UseRegularExpressions = True
Code: Alles auswählen
mCamposFiltro(1).StringValue = "joão|juca|carlos"
Gruß,
mikele
mikele
An alle, die das LibreOffice-Forum nutzen:
Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.
❤️ Vielen lieben Dank für Ihre Unterstützung ❤️