Przeniesienie makr filtrowania z VBA do LibreOffice

[LibOffAR]

Witam

mam kody:

Kod: Zaznacz cały

  If (ActiveCell.Parent.AutoFilterMode) Then
    Dim field As Integer: field = ActiveCell.Column - ActiveSheet.AutoFilter.range.Column + 1
    If (field > ActiveSheet.AutoFilter.range.Columns.Count) Then Exit Sub
    ActiveCell.AutoFilter field:=field, Criteria1:=ActiveCell.Value
  End If

Ustawia mi filtr w bieżącej kolumnie na wartość z zaznaczonej komórki

Kod: Zaznacz cały

  If (ActiveCell.Parent.AutoFilterMode And ActiveCell.Parent.FilterMode) Then
    ActiveSheet.ShowAllData
  End If

Resetuje mi wszystkie filtry jako nie wybrane - ale filtry nadal są dostępne do użycia

P.s.
ważne jest to że powyższy kod działa na każdym arkuszu (pola filtrów na różnych arkuszach mają różną lokalizacje)

nie mam pojęcia jak to przenieść do LibreOffice, prośba o pomoc

Ps

[LibOffAR]

Żadnej odpowiedzi. Czy to jest zatem wogóle realne aby to przenieść?

[Jan_J]

Jest. Ale albo ktoś wie i pomaga, albo nie wie, ma czas i pomaga, albo nie wie i nie ma czasu.

[LibOffAR]

szkoda że nie ma odp ponieważ to jest dla mnie bardzo fajna funkcjonalność ;( i szkoda że jej w LO nie mogę przenieść

[belstar]

Dodaj załącznik (plik excela), postaram się w wolnym czasie to przerobić na LO a nie chcę marnować czasu na tworzenie pliku z danymi do testów.

[LibOffAR]

Dodałem załącznik z danymi i podłączonymi w VBA funkcjami

z góry dziękuję za podjęcie tematu

[LibOffAR]

Czy już udało się podejść do tematu? jednak jakieś problemy?

[LibOffAR]

Na razie w temacie cisza, znajdzie się ktoś chętny na podjęcie wyzwania?

[LibOffAR]

Nadal poszukuję odpowiedzi na powyższe, jakieś koncepcje na rozwiązanie problemu ?

[LibOffAR]

Czy po tak długim czasie coś się zmieniło w możliwościach rozwiązania tego problemu ?

[belstar]

Czy po tak długim czasie coś się zmieniło w możliwościach rozwiązania tego problemu ?

Ano usiadłem i coś tam skleciłem, ale zadowolony nie jestem. Wymaga to dopracowania, może jak znajdę czas. Sprawdź i napisz co jest nie tak.

[LibOffAR]

Dziękuję,
ruszyło to w dobrym kierunku, moje zauważone:
- podczas wskazywania kolejnych kolumn nie chciałbym aby czyściły się wcześniejsze wybory, czyli potrzebuję aby działało to tak:
- - pokaż bursy, ogranicz je do samodzielnych jednostek = TAK, ogranicz je do delegatura = W
- czyść teoretycznie pokazuje wszystko ale w wybranym filtrze nadal jest dostępny wskazany wybór i dokonując zwykłego wyboru w innym filtrze (kolumnie) ten wybór także jest brany pod uwagę np:
- pokaż Samodzielne jednostki = TAK, Czyść, wybierz w filtrze delegatury = W, pokazują się wiersze z W ale brakuje tych z Samodzielne jednostki = NIE

Jeśli powyższe uda się przełamać to chciałbym takie makra zapisać gdzieś ogólnie dostępne a działanie przycisków chciałbym przypisać pod jakieś 2 klawisze (spodziewane: chodząc po danych arkusza i wskazując dane wartości mógłbym skrótem klawiaturowym bardzo szybko ograniczać duże zestawy danych do wierszy mnie interesujących)