تعديل كود إدراج تعليق ديناميكي للخلية النشطة

[سعيد 1428]

أيها الإخوة 

السلام عليكم ورحمة الله 

أثناء البحث في احد المواقع الاجنبية وجدت الكود التالي 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sResult As String

    If Union(Target, Range("C11")).Address = Target.Address Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        sResult = Target.Value
        Target.ClearContents

        With Range("F15")
            .ClearComments
            .AddComment
            .Comment.Text Text:=sResult
        End With
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

الكود يقوم بعرض قيمة الخلية c11 كتعليق عند الخلية F15 

وعند تجربة الكود لاحظت أنه يقوم بحف القيمة المدخلة في الخليه C11 سواء كانت معادلة أو قيمة ثابتة

وعليه آمل منكم تعديل الكود بشكل يسمح ببقاء المعادلة في الخلية C11

وشكرا

 

COMM.xlsm

تم تعديل سبتمبر 10, 2018 بواسطه سعيد 1428

[سعيد 1428]

للرفع

[احمد بدره]

تم التعديل بالغاء عمل السطر

  ' Target.ClearContents

COMM.xlsm

[سعيد 1428]

أحى الفاضل 

بعد إلغاء السطر لا يتم تحديث قيمة التعليق إلى إذا تم وضع مؤشر الماوس في الخلية c12 ومن ثم الضغط على مفتاح الإدخال 

فيرجا المعالجة لهذه المشكلة 

ومن ناحية أخرى كيف يمكن تطبيق الكود على نطاقة من الخلايا 

خلايا ادراج التعليق	الخلايا المتغيرة
g1	h1
g2	h2
g3	h3
g4	h4
g5	h5
g6	h6
g7	h7
g8	h8
g9	h9
g10	h10
g11	h11

COMM.xlsm

تم تعديل سبتمبر 10, 2018 بواسطه سعيد 1428

[سعيد 1428]

للرفع