Hücre içeriğini Açıklamada gösterme

[alptun20]

BAzen hücreleri fazla genişletemeyiz. Bu sebeple hücre içeriğinin küçük bir kısmı görüntülenir. BU sebeple hücre içeriğini o hücreye atanmış Açıklamada gösterebilirmiyiz. Böylece hücre üzerine gelindiğinde hücrenin içeriği tam olarak görüntülenebilir.

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne yapıştırın. A1:A10 arasına veri girerek deneyebilirsiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Açıklama As String
On Error Resume Next
If Intersect(Target, [[COLOR=red]A1:A10[/COLOR]]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Açıklama = Açıklama & Chr(10) & Target
    With Target
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:=Açıklama
        .Comment.Shape.TextFrame.AutoSize = True
    End With
End Sub

.