Kommentarin yazi büyüklügünü ve bicimini ayarlama

[kaleci]

Merhaba arkadaslar,

Asagida Hareketli Kommentar(Hücrelerdeki ek aciklama) nin yazi seklini ve yazi büyüklügünü ayarlamak istedim ama hata veriyor. Aceba neden?

Kodun nasil calistigini anlatayim:

1.) Sayfaya Range(C4:C368) e kadar 01.01.07-31.12.07 yaziniz.
2.) Sayfaya Range(AG5:AG17) ye Kommentar icin aciklama yaziniz. Örnegin(AG5=Seminer, AG6=23 Nisan Bayrami, AG7= Ramazan Bayrami....AG17=Yilbasi)
3.) Sayfaya Range(AH5:AH17) ye AG5=01.01.07, AH6=23.04.07, AH7=12.10.07.....AH17=31.12.07) yaziniz.
ve Sayfaya bir CommandButton ekleyiniz, kodu Cmd'a yaziniz. Sonra üzerine tiklayiniz. Range(C4:C368) deki tarihlerin üzerinde, Range(AG5:AG17) deki Kommentarlarin yazilmis oldugunu göreceksiniz.

Ben kodda su degisiklikleri yaptim ama calismadi. Bir arkadas yardimci olursa memnun olurum.

Dim Cmt As Comment
Set Cmt = Cells.Range("C1:C400").AddComment
Cmt.Text CStr(Cells(Zeile, 33))
With Cmt.Shape.TextFrame.Characters.Font
.Name = "Arial"
.Size = 14
End With


Private Sub CommandButton3_Click()
Dim Zeile As Integer
Dim Spalte As Integer
Range("C1:C400").ClearComments 'löschen der Kommentare
For Spalte = 4 To Range("C65536").End(xlUp).Row 'Schleife für das Datum
For Zeile = 5 To Range("AH65536").End(xlUp).Row 'Schleife Feiertage Datum
If Cells(Spalte, 3) = Cells(Zeile, 34) Then 'Vergleich des Datum's wenn gleich dann,
Cells(Spalte, 3).AddComment 'Kommentar erstellen
Cells(Spalte, 3).Comment.Visible = False 'Kommentar ausgeblendet
Cells(Spalte, 3).Comment.Text CStr(Cells(Zeile, 33)) 'Inhalt des Kommentars
End If
Next Zeile
Next Spalte
End Sub

Saygilarimla
kaleci

 

[Levent Menteşoğlu]

Comment üzerinde işlem yapabilmek için visible özelliği true olmalıdır. Bu sebeple kodlarınızın başına öncelikle "...Comment.Visible = True" gibi bir satır yazarak görünür yapmalı işlemi gerçekleştirdikten sonrada tekrar gizlemek için true değerini false yaparak bir satır ilave edebilirsiniz.

 

[kaleci]

Sayin Hocam,
Ben onu bilincli olarak "Comment.Visible = False" yapmistim. Cünkü "Comment" dedigim yani "Hücrelere ek olarak icerigini degistirmeden eklenen aciklamalar". Bu "Kommentarlari" AG5 den itibaran yazdim, ve bu AG deki veriler "C" satirinda her yil, degisik tarihlere, otomatik olarak yaziliyorlar. Hocam 13 tane "Kommentar" in hepsini teker teker degistirmek istemedim. Aceba VBA üzerinden mümkün mü diye düsündüm ve mümkünmüs. Degisikligi asagidaki gibi yaptim ve oldu. Seni yakalamisken Forumla ilgili bir sey sorayim.

Bu Forum da soru sorarken veya cevap verirken, Kodlari bir cerceve icerisine alabiliyorduk, yazilari kalin veya renkli yazmak icin bir yer vardi. Simdi bulamiyorum. Bu fonksiyona nasil girebilirim.

With Cells(Spalte, 3).Comment.Shape.TextFrame.Characters
.Font.Size = 20
.Font.Name = "Arial"
End With

Saygilarimla
kaleci