Çözüldü Sayfalardaki Klavuz çizgileri

[k0081]

Merhaba arkadaşlar

Sayfadaki "Klavuz çizgileri" ni, açıp-kapatmak istiyorum. ( sayfa sayısı 20 den fazla...)

yardımcı arkadaşa şimdiden teşekkürler.

 

[DoğanD]

Merhaba,

Aşağıdaki kodu kapatmak için kullanabilirsiniz. Açmak için ise Gridlines satırının değerini True ile değiştirin.

Sub dd()
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveWindow.DisplayGridlines = False
Next i
Application.ScreenUpdating = True
End Sub

 

[kulomer46]

Alternatif Çalışma

Ekran Resmi

Sub Tüm_kılavuz_çizgilerini_göster()

    aktif_sayfa = ActiveSheet.Name
    Sheets.Select
    ActiveWindow.DisplayGridlines = True
    Sheets(aktif_sayfa).Select

End Sub
Sub Tüm_kılavuz_çizgilerini_gizle()

    aktif_sayfa = ActiveSheet.Name
    Sheets.Select
    ActiveWindow.DisplayGridlines = False
    Sheets(aktif_sayfa).Select

End Sub

 

[Korhan Ayhan]

Tek butonla gizleme ve gösterme için alternatif..

Option Explicit

Sub Gridlines_Show_Or_Hide()
    Dim Sh As Worksheet
    Static My_Check As Boolean
   
    For Each Sh In ThisWorkbook.Worksheets
        Sh.Select
        ActiveWindow.DisplayGridlines = My_Check
    Next

    Sheets(1).Select
   
    MsgBox "Klavuz çizgileri " & IIf(My_Check = False, "pasif", "aktif") & " yapılmıştır.", vbInformation
    My_Check = Not My_Check
End Sub

 

[k0081]

@Korhan Ayhan
@DoğanD
@kulomer46

Cevaplar için çok Teşekkürler , Arkadaşlar. Tamamdır. Elinize sağlık.

 

[uzmanamele]

Merhaba

Tüm sayfaları seç / Görünüm / Klavuz çizgileri
Tik'i kaldı / Sayfaları çöz