كود لاضافة تعليقات فى اكسل بمحتويات الخلية

اضافة تعليقات بالاكسل موضوع سهل

بخطوات بسيطة 
كليك يمين على الخلية ثم INSERT COMMENT
يظهر لك مربع التعليق لتضيف التعليق 
اذا اردت التعديل 
كليك يمين على الخلية التى بها تعليق 
ثم EDIT COMMENT 
واذا اردت حذف التعليق 
كليك يمين على الخلية ثم DELETE COMMENT
كل ذلك فى حالة اضافة تعليق يدوى كتابة بيدك 

اما اذا اردت ان يظهر التعليق تلقائى بمحتوى الخلية 

فعليك بالكود التالى :

Sub Createcomments()

'Create comments in cells where the value is larger than column width

Dim rng As Range

Dim Cell As Variant

On Error Resume Next

Set rng = Application.InputBox(Prompt:="Select a range:", _

Title:="Create comments in cells where the value is larger than column width", _

Default:=Selection.Address, Type:=8)

On Error GoTo 0

If rng Is Nothing Then

Else

    For Each Cell In rng

        If Len(Cell) * 0.9 > Cell.ColumnWidth Then

            If Cell.Comment Is Nothing Then

                Cell.AddComment Cell.Value

            End If

        End If

    Next Cell

End If

                                                     End Sub

لتنفيذ الماكرو تابع الفيديو التالى :