كيفية اظهار تعليق الخلية النشطة

[Salmawy18]

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

إخوتي الكرام...........

عندي ملف موجود به تعليقات كثيرة 

هل من الممكن وجود كود ........ عند الضغط (وليس الوقوف بالماوس) على الخلية المختارة وتحديدها يقوم بإظهار التعليق الخاص بها واخفاء التعليقات الأخرى ( وذلك لكل خلية اختارها يظهر التعليق الخاص بها).

شكرا لكم......

وبارك الله فيكم

Show One Comment .... Hide Others.zip

[أبو عبد النور]

وعليكم السلام،

جرب المرفق.

 

Show_Hide_Comment_click.rar

[Salmawy18]

شكرا أخي الكريم ............كود جميل....ولكن

عند الضغط على اي خلية ليس بها تعليق........تظهر رسالة خطأ ف الكود 

لو سمحت ممكن تراجعها و تعالج هذا الخطأ لو تكرمت

وبارك الله فيك

 

[ياسر خليل أبو البراء]

أليس من الطبيعي أن يظهر التعليق بمجرد الوقوف بالماوس على الخلية التي بها تعليق؟!

لم أفهم المطلوب في حقيقة الأمر بعد ..

[أبو عبد النور]

تم النعديل

Private CRg    As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("C6:C9")) Is Nothing Then Exit Sub
    If (CRg Is Nothing) = False Then
        CRg.Comment.Visible = False
    End If
    Target.Comment.Visible = True
    Set CRg = Target
End Sub

 

[Salmawy18]

بارك الله فيك أخي الكريم ..... أبو عبد النور

هذا هو المطلوب بالفعل وجزاك الله خيرا

......أخي الكريم ... ياسر خليل أبو البراء....

نعم التعليق يظهر بمرور الماوس على الخلية   .... ولكن عندي عمود خلايا التعليقات طويل جدا ....ولذلك فأنا اتحرك عن طريق الأسهم ...أسرع وأسهل

أتمنى إني أكون قد أوضحت ...... ومعذرة في عدم التوضيح في أول الأمر