Metin Kutusu ile filtreleme
- Hamurcu
- Mesajlar: 265
- Kayıt: 06 Ağu 2012, 00:14
- İşletim Sisteminiz: Windows 10/11 - Pardus Linux
- LibreOffice Sürümü: 7.x
Re: Metin Kutusu ile filtreleme
Merhaba,
Bu isteğini hiç makro yazmadan Standart Süzgeç ile halledebilirsin.
Bu isteğini hiç makro yazmadan Standart Süzgeç ile halledebilirsin.
Re: Metin Kutusu ile filtreleme
Onu denedim aslında.. Ama daha pratik olması bakımından makro ile istemiştim.
- Hamurcu
- Mesajlar: 265
- Kayıt: 06 Ağu 2012, 00:14
- İşletim Sisteminiz: Windows 10/11 - Pardus Linux
- LibreOffice Sürümü: 7.x
Re: Metin Kutusu ile filtreleme
Sanırım aşağıdaki kod işini görür.
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
Re: Metin Kutusu ile filtreleme
FiltreMetni = Sayfa.drawPage.Forms.getByName("Form").getByName("Metin Kutusu 1")
...satırında
BASIC çalışma zamanı hatası "1" alıyorum.
...satırında
BASIC çalışma zamanı hatası "1" alıyorum.
- Hamurcu
- Mesajlar: 265
- Kayıt: 06 Ağu 2012, 00:14
- İşletim Sisteminiz: Windows 10/11 - Pardus Linux
- LibreOffice Sürümü: 7.x
Re: Metin Kutusu ile filtreleme
Sayfaya koyduğun Metin Kutusunun adı farklıdır sende ondan hata alıyorsundur.
Ben standart bir metin kutusu koydum ve adı otomatik olarak "Metin Kutusu 1"
Sen bu ismi kendine göre uygun şekilde değiştirmelisin.
Ben standart bir metin kutusu koydum ve adı otomatik olarak "Metin Kutusu 1"
Sen bu ismi kendine göre uygun şekilde değiştirmelisin.
Re: Metin Kutusu ile filtreleme
Sayın Hamurcu, Change olayına yazabilir miyiz. Google tarzı, ararken (yazarken) listelesin.
- Hamurcu
- Mesajlar: 265
- Kayıt: 06 Ağu 2012, 00:14
- İşletim Sisteminiz: Windows 10/11 - Pardus Linux
- LibreOffice Sürümü: 7.x
Re: Metin Kutusu ile filtreleme
Sayfadaki veriler az olduğunda sorun olmaz ama binlerce satır veri olursa her harfe bastığında yeniden hesaplayacağı için takılmalar oluşacaktır.