açıklama eklemek

[marimar]

merhaba arkadaşlar bir excel hücresine makro ile nasıl açıklama ekleyebilirim. açıklamayı gizleyip gösterebilirim.
teşekkürler.

 

[uzmanamele]

merhaba
böyle birşey işinizi görür mü?

Sub açıklama_ekle()
On Error Resume Next
    Range("A1").AddComment
    Range("A1").Comment.Visible = True 'veya False
    Range("A1").Comment.Text Text:="user:" & Chr(10) & "açıklayamam"
End Sub

 

[janveljan]

Bu şekilde olabilir

    Range("A1").AddComment.Text Text:="Açıklama"
    Range("A1").Comment.Visible = False
    Range("A1").Comment.Visible = True
    Range("A1").ClearComments

 

[janveljan]

Bu da açıklamayı yerleştirmek için.

    Range("A1").AddComment.Text "Açıklama"
    Range("A1").Comment.Visible = True
    Range("A1").Comment.Shape.Left = Range("A1").Offset(2, 2).Left
    Range("A1").Comment.Shape.Top = Range("A1").Offset(2, 2).Top