LibreOffice Türkiye Forumları

Kod: Tümünü seç

sub Filtrele()

dim Sayfa as object, FiltreMetni as object

dim FiltrelenecekBolge as object, FiltreParametreleri as object
dim FiltrelenecekSutun(0) As New com.sun.star.sheet.TableFilterField   

Sayfa = thiscomponent.sheets.getByName("Çizelge1")
FiltreMetni = Sayfa.drawPage.Forms.getByName("Form").getByName("Metin Kutusu 1")

FiltrelenecekBolge = Sayfa.getCellRangeByName("a5:c150")
FiltreParametreleri = FiltrelenecekBolge.createFilterDescriptor(true)
FiltrelenecekBolge.filter(FiltreParametreleri) 

with FiltrelenecekSutun(0)		' (0) ilk filtre parametrelerini tanimlar. Ikincisi icin (1) ve devam etmelidir.
    .Field = 1                  ' B Sutununa gore filtrelemesi icin 1 giriliyor (0-->A sutunu demek)
    .IsNumeric = false          ' Metne gore filtrelemek icin False giriliyor. Sayisal filtreleme icin True girilmeli
    .Operator = com.sun.star.sheet.FilterOperator.EQUAL
    .StringValue = ".*" & FiltreMetni.text & ".*"
end with

with FiltreParametreleri                                    
    .ContainsHeader = true                      
    .UseRegularExpressions = true
    .setFilterFields(FiltrelenecekSutun())    
end with

FiltrelenecekBolge.filter(FiltreParametreleri)

end sub