Satır Gizle

Satır Gizle

#2679 İleti | nadir | 14 Ekm 2020, 10:23

A3:A102 arasındaki boş satırları gizlemek ve yazdırma işi bittikten sonra gösterme kodu gerekiyor.

sub gizle_yazdir
...A3:A102 arası boş satırlar gizlenecek.
....yazdırma (kaydetme) işlmi PDF olarak yapılacak.
....gizlenen satırlar gösterilecek
end sub
nadir
 
İleti: 7
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7

Re: Satır Gizle

#2682 İleti | Hamurcu | 19 Ekm 2020, 17:40

Merhaba,

A3:A102 arasındaki boş olan satırları gizlemek için aşağıdaki kodu kullanabilirsiniz.

Kod: Tümünü seç
Sub BosSatirlariGizle()

    Dim Kitap As Object
    Kitap =  ThisComponent

    Dim Sayfa As Object
    Sayfa = Kitap.getSheets().getByIndex(0)

    Dim SatirSayisi As Long
    SatirSayisi=Sayfa.getCellRangeByName("A3:A102").Rows.Count

    SatirNo=0

    For r = 2 To SatirSayisi-1 Step 1
   
       
        Hucre=Sayfa.getCellByPosition( 0, r )
       
        If Hucre.Type = com.sun.star.table.CellContentType.EMPTY Then
         
          Sayfa.Rows.getByIndex(r).IsVisible=False

        End If
       
    Next r

End Sub


Daha önce gizlenmiş olan satırları tekrar görünür yapmak için aşağıdaki kodu kullanabilirsiniz.

Kod: Tümünü seç
Sub GizliSatirlariGoster()

    Dim Kitap As Object
    Kitap =  ThisComponent

    Dim Sayfa As Object
    Sayfa = Kitap.getSheets().getByIndex(0)

    Dim SatirSayisi As Long

    SatirSayisi=Sayfa.getCellRangeByName("A3:A102").Rows.Count

    For r = 2 To SatirSayisi-1 Step 1
   
      Sayfa.Rows.getByIndex(r).IsVisible=True
       
    Next r

End Sub
Kullanıcı avatarı
Hamurcu
 
İleti: 208
Kayıt: 06 Ağu 2012, 00:14
Konum: İstanbul
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 6.x

Re: Satır Gizle

#2686 İleti | nadir | 23 Ekm 2020, 09:56

Teşekkürler
nadir
 
İleti: 7
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7


Calc - Hesap Tablosu

Kimler çevrimiçi

Kayıtlı kullanıcılar: Google [Bot]

cron