Autoukrywanie wierszy

[gery77]

Witam,
Proszę o pomoc w stworzeniu makra które ukryje te wiersze w kalkulacji gdzie będzie występował znaczek "-" w kolumnie B (Nazwa opis) z zakresu od wiersza 3 do 102.
Plik w załączniku.

Z góry dzięki za pomoc.

[Minio]

Czy to koniecznie musi być makro?
Bo samo ukrycie zbędnych wierszy bez problemu załatwisz filtrem.

[gery77]

Musi być makro.
Ale możesz opisać swoją metodę przy użyciu autofiltra?

[belstar]

To samo o czym pisał Minio, tylko że makrem.

Kod: Zaznacz cały

Sub Filter()
	Dim oSheet     
	Dim oFilterDesc
	Dim oFields(0) As New com.sun.star.sheet.TableFilterField
	oSheet = ThisComponent.getSheets().getByIndex(0)
	oFilterDesc = oSheet.createFilterDescriptor(True)
	oFields(0).Field = 1
	oFields(0).IsNumeric = false
	oFields(0).StringValue = "-"
	oFields(0).Operator = com.sun.star.sheet.FilterOperator.NOT_EQUAL
	oFilterDesc.setFilterFields(oFields())
	oFilterDesc.ContainsHeader = True
	oSheet.filter(oFilterDesc)
End Sub

[gery77]

Jest prawie ok.
Tylko że ma to dotyczyć zakresu tylko i wyłącznie:B3 do B102
Ważne jest też aby makro było przyporządkowane do konkretnego arkusza.

[belstar]

Kod: Zaznacz cały

Sub Filter()
	Dim oSheet     
	Dim oFilterDesc
	Dim oFields(0) As New com.sun.star.sheet.TableFilterField
	oSheet = ThisComponent.getSheets().getByName("wycena")
	oCell = oSheet.getCellRangeByName("B3:B102")
	oFilterDesc = oCell.createFilterDescriptor(True)
	oFields(0).Field = 1
	oFields(0).IsNumeric = false
	oFields(0).StringValue = "-"
	oFields(0).Operator = com.sun.star.sheet.FilterOperator.NOT_EQUAL
	oFilterDesc.setFilterFields(oFields())
	oSheet.filter(oFilterDesc)
End Sub

[gery77]

Nie działa zakres ("B3:B102"), reszta chyba jest ok.
Przy okazji jak można prosić o kod makra do operacji odwrotnej czyli odkrywania tych wierszy?

[belstar]

Nie działa zakres ("B3:B102")

Wyjaśnij o co chodzi.

Przy okazji jak można prosić o kod makra do operacji odwrotnej czyli odkrywania tych wierszy

Kod: Zaznacz cały

Sub RemoveFilter()
  Dim oSheet
  Dim oFilterDesc
  
  oSheet = ThisComponent.getSheets().getByName("wycena")
  oFilterDesc = oSheet.createFilterDescriptor(True)
  oSheet.filter(oFilterDesc)
End Sub

[gery77]

Nie działa zakres ("B3:B102")

Wyjaśnij o co chodzi.

Wpisana "-" w komórkę np. B2 lub B103 też zostaje ukryta a nie powinna.

[belstar]

Dzieje się tak bo filtr działa dla całej kolumny. Inne rozwiązanie w załączniku.