
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
Kayıtlı kullanıcılar: Kayıtlı kullanıcı yok