Açıklama gizle / göster.

[Leoncio]

Merhaba;

Bir çalışma kitabı içinde bulunan açıklamaları gizle veya göster yapmak için hangi kodları kullanmalıyım?

Konunun yanlış anlaşılmaması için örnek dosyayı ekliyorum.

 

[altanson]

gizlemek istediğiniz hücreler için B5 hücresine başka bir aralık belirtebilirsiniz.

Sub Makro1()
    Range("B5").Select
    ActiveCell.Comment.Visible = False
End Sub

sanırım erken davrandım bu kod çoklu alan seçmeniz durumunda sadece ilk hücredeki açıklamayı gizliyor. tümünü aynı anda gizlemek veya göstermek istiyorsunuz sanırım?

 

[Leoncio]

Tümünü aynı anda gizlemek veya göstermek istiyorsunuz sanırım?

Evet. Sayfa üzerindeki tüm hücreleri gizlemek, göstermek istiyorum.

 

[Recep İpek]

Sayfanıza ToggleButton ekleyerek aşağıdaki kodları kullanabilirsiniz.

Private Sub ToggleButton1_Click()
On Error Resume Next
Dim c As Comment, s As Boolean
s = ToggleButton1.Value
For Each c In Me.Comments
c.Visible = s
If s = True Then
ToggleButton1.Caption = "Gizle"
Else
ToggleButton1.Caption = "Göster"
End If
Next
End Sub

 

[Seyit Tiken]

Sayın Leventer, aşağıdaki gibi bir deneyin. Bu şekilde iş görür mü? Kodlar örnek niteliğindedir. Bunu çalışmanıza göre revize etmeye çalışınız.

Sub Makro1()
On Error Resume Next
For s = 1 To 5
Range("A" & s).AddComment
Range("A" & s).Comment.Visible = 1
Range("A" & s).Comment.Text Text:="" & Chr(10) & ""
Next
End Sub

 

[Leoncio]

Sayın Tiken, Sn. Ripek'in kodları gibi çalışmalı.

Sn. Ripek:
(Sayfanıza ToggleButton ekleyerek aşağıdaki kodları kullanabilirsiniz.) diyorsunuz. Ben genelde bu tarz kodları Personal.xls dosyası içinde oluşturup bunları özelleştir ile butonlara bağlayarak değişik çalışma kitaplarında kullanıyorum.

Bu işlemi ToogleButton eklemeden daha basit bi şekilde yapamazmıyız?

Kodlarınız tam istediğim sonucu veriyor.

 

[Recep İpek]

O zaman kodlarınızı ikiye bölüp,

Sub Göster()
On Error Resume Next
Dim c As Comment
For Each c In Me.Comments
c.Visible = True
Next
End Sub

Sub Gizle()
On Error Resume Next
Dim c As Comment
For Each c In Me.Comments
c.Visible = False
Next
End Sub

şeklinde deneyiniz.

 

[Leoncio]

Sn. Ripek;
Kodları denetim.

Me.Comments satırı hata verdi.. Dosya ekte.

 

[Recep İpek]

İlgili kodları sayfanın VBE bölümüne kopyalayınız.

Personal.xls dosyasına başka şekilde uyarlamak gerekebilir.

 

[Leoncio]

Sn.Ripek;

Eklediğiniz dosya üzerinde çalışıyor. Kodlar ilgili sayfanın VBE sayfasına yapıştırdığımda problem yok. Boş bir modüle yapıştırdığımda çalışmıyor.

Modül üzerinde çalışmadığı içinde bu kodları kullanamıyorum.

 

[Merhum İdris SERDAR]

Sn.Ripek;

Eklediğiniz dosya üzerinde çalışıyor. Kodlar ilgili sayfanın VBE sayfasına yapıştırdığımda problem yok. Boş bir modüle yapıştırdığımda çalışmıyor.

Modül üzerinde çalışmadığı içinde bu kodları kullanamıyorum.

Aşağıdaki kodları deneyin.

Sub gizle()

Cells.Select
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Range("A1").Select
End Sub

Sub goster()
Cells.Select
Application.DisplayCommentIndicator = xlCommentAndIndicator
Range("A1").Select
End Sub



.

 

[Leoncio]

Sn. Yurttaş tamamdır. Teşekkürler.


Diğer arkadaşlarada ayrıca teşekkür ederim. Sağolun.

 

[Seyit Tiken]

Yurttaş beyin kodlarından esinlenerek bu şekilde de kullanılabilir.

Sub Düğme1_Tıklat()
Application.DisplayCommentIndicator = 1
End Sub

Sub Düğme4_Tıklat()
Application.DisplayCommentIndicator = 0
End Sub

 

[Leoncio]

Yurttaş beyin kodlarından esinlenerek bu şekilde de kullanılabilir.

Sub Düğme1_Tıklat()
Application.DisplayCommentIndicator = 1
End Sub

Sub Düğme4_Tıklat()
Application.DisplayCommentIndicator = 0
End Sub

Evet ayni işlemi yapıyor. Teşekkürler.

 

[BaY_KaPTaN]

Merhabalar.
Gönderiyi hortlatmış gibi olacağım ama başlık ve içerik gayet iyi olduğu için buradan sormak daha doğru ve faydalı olacağına inanıyorum.

Sadece seçili hücrenin olduğu satırda ne kadar açıklama varsa göstermek istesek nasıl bir yol izleriz?


A2, C2, B3, E4, D5 ve F5'de açıklama olduğunu varsayarsak,
A5 tıklandığında (5. satırdaki herhangi bir hücre), sadece 5. satırda yer alan D5 ve F5'in açıklaması görünsün, diğerleri gizli kalsın.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Dim c As Comment
For Each c In ActiveSheet.Comments
    c.Visible = c.Parent.Row = ActiveCell.Row
Next

 

[BaY_KaPTaN]

Merhaba,
Deneyiniz...

Dim c As Comment
For Each c In ActiveSheet.Comments
    c.Visible = c.Parent.Row = ActiveCell.Row
Next

@ÖmerBey Çok teşekkürler üstad.