عمل رسالة تلميح للخلية Cell Tip

[ابو تراب]

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

 

اعضاء منتدانا الكرام هذه محاولة لعمل رسالة تلميحية لخلية بالاكواد  ارجوا ان تنال اعجابكم.

 

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

 

الفكرة هى وضع شكل Shape و تنسيقه و من ثم تسميته بما تشاء (اسميته هنا بـ CellTip)

 

بعدها يمكنك التحكم به كما في الكود التالي:

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


With ActiveSheet.Shapes("CellTip")
    If Not Intersect(Target, Range("B3:D12")) Is Nothing And Target.Count = 1 Then
        .Top = Target.Top + 20
        .Left = Target.Left
        With .TextFrame2.TextRange.Characters
            Select Case Target.Column
            Case 2: .Text = "الاسم الأول متبوع بأسم العائلة"  ' B = الاسم
            Case 3: .Text = "العمر بالسنوات"  ' C = العمر
            Case 4: .Text = "عنوان الاقامة الحالي"  ' D = العنوان
            End Select
        End With
        .Visible = True
    Else
       .Visible = False
    End If
End With


End Sub

لمزيد من التوضيح انظر الملف المرفق.

 

الحمد لله وحده الذي بنعمه تتم الصالحات

 

 

Cell Tip.zip

[محمد الريفى]

ماشاء الله تبارك الله

اخى الحبيب ابو تراب ربنا يبارك فيك وفى اعمالك

واسمح لى بهذه الاضافه التى لاتذكر بجانب الكود الخاص بك

انه يمكن عمل التلميح من التحقق من الصحه من خلال عمل تنبيه برسالة ادخال

واضافة علامة على اظهار رسالةالالدخال عند تحديد  الخليه

تقبل منى تحياتى وشكرى

[ibn_egypt]

اخى ابو تراب

 

مميز دائما وأعمالك في منتهي الروعة والجمال

 

جزاك الله كل خير وجعل عملك في ميزان حسناتك

 

 تقبل تحياتى  

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

بسم الله ما شاء الله

أفكار خلاقة وإبداع بلا حدود

تمت الإضافة للمكتبة بشكل أكيد .. ولكن مع تعديل النطاق فقط ..دا بعد إذنك طبعاً

تم تعديل يناير 21, 2015 بواسطه YasserKhalil

[الجموعي]

ماشاء الله أستاذي أبو تراب

إبداع بلا حدود

سلمت يمينك

تحياتي

[ابو تراب]

ماشاء الله تبارك الله

اخى الحبيب ابو تراب ربنا يبارك فيك وفى اعمالك

واسمح لى بهذه الاضافه التى لاتذكر بجانب الكود الخاص بك

انه يمكن عمل التلميح من التحقق من الصحه من خلال عمل تنبيه برسالة ادخال

واضافة علامة على اظهار رسالةالالدخال عند تحديد  الخليه

تقبل منى تحياتى وشكرى

 

الاستاذ محمد الريفي .. انت رائع الهمتني فكرة افضل و اكثر احترافية

 

هذا الكود  بأستخدام ال Data Validation

 

If Not Intersect(Target, Range("H3:J12")) Is Nothing And Target.Count = 1 Then
    With Target.Validation
        .Delete
        Select Case Target.Column
            Case 8: .Add Type:=xlValidateInputOnly
                    .InputTitle = "الأسم": .InputMessage = "الاسم الأول متبوع بأسم العائلة"
            Case 9: .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Formula1:="=And(mod(" & Target.Address & ",1)=0," & Target.Address & ">0)"
                    .InputTitle = "العمر": .InputMessage = "العمر بالسنوات"
                    .ErrorTitle = "الخطأ": .ErrorMessage = "العمر يجب ان يكون كبر من الصفر و بدون كسور"
                    
            Case 10: .Add Type:=xlValidateInputOnly
                    .InputTitle = "العنوان": .InputMessage = "عنوان الاقامة الحالي"
        End Select
    End With
End If

مرفق ملف لمن اراد تطبيق الطريقة

 

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

 

تقبل تحياتي

Cell Tip and Data Validation.zip

[ابو تراب]

 

اخى ابو تراب

 

مميز دائما وأعمالك في منتهي الروعة والجمال

 

جزاك الله كل خير وجعل عملك في ميزان حسناتك

 

 تقبل تحياتى  

 

 

الاستاذ ابن مصر شاكرا لك مرورك الكريم و كلمات الطبية

 

 تحياتي لشخصك الكريم   

[ابو تراب]

 

بسم الله ما شاء الله

أفكار خلاقة وإبداع بلا حدود

تمت الإضافة للمكتبة بشكل أكيد .. ولكن مع تعديل النطاق فقط ..دا بعد إذنك طبعاً

 

هلا و غلا بأخي الغالي ياسر شاكر لك مرورك العطر و تفضلك بأضافتها لمكتبتك الرائعة

 

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

 

تقبل تحياتي

 

[ابو تراب]

ماشاء الله أستاذي أبو تراب

إبداع بلا حدود

سلمت يمينك

تحياتي

 

يامرحبا بأخي الغالي الجموعي .. سعد بمرورك العطر و جمال عباراتك

 

تقبل تحياتي   

[محمد الريفى]

اخى الحبيب ابو تراب

ماشاء الله لاقوة الابالله

ربنا يبارك فيك ويكرمك  ويزيدك من علمه وينفعنا بك

اعمال متميزه بمعنى الكلمه

تقبل منى اجمل تحيه

[نايف - م]

موضوع جميل و حرفي تمام

شكرا أخي أبو تراب

بارك الله بك

[وليد زقزوق]

رائع

[ابو تراب]

 

موضوع جميل و حرفي تمام

شكرا أخي أبو تراب

بارك الله بك

 

 

هلا باخي الفاضل نايف .. شكرا الله لك كلماتك الطيبة و مرورك الكريم

 

رائع

 

حياك اخي الفاضل و ليد... شكرا على مرورك الكريم و اعجابك بالموضوع

 

اخى الحبيب ابو تراب

ماشاء الله لاقوة الابالله

ربنا يبارك فيك ويكرمك  ويزيدك من علمه وينفعنا بك

اعمال متميزه بمعنى الكلمه

تقبل منى اجمل تحيه

 

الاستاذ محمد الريفي ...جزاك الله خيرا على الفكرة الرائعة .. و تقبل تحياتي و تقدير على مرورك العطر و كلماتك المشجعة

[نايف - م]

شكرا للفكرة الحلوة

بس إذا ممكن كيف استطيع أن أجعل الرسالة التلميحية تعطي قيمة الخلية التي أقف عليها

استفيد هنا في حالة كانت الداتا في الخلية كبيرة

[ابو تراب]

شكرا للفكرة الحلوة

بس إذا ممكن كيف استطيع أن أجعل الرسالة التلميحية تعطي قيمة الخلية التي أقف عليها

استفيد هنا في حالة كانت الداتا في الخلية كبيرة

 

هلا نايف 

 

يمكنك الوصول لقيمة الخلية عن طريق الكود التالي:

 

Target.Value

[نايف - م]

أخي الكريم شكرا ل لطفك

لكني لم أفهم

رجاء

عندي عمود

AP9:AP8000

أريد عند الضغط على أي خلية أن يظهر محتواها بتلميح

تماما كما فعلت حضرتك

شكرا

[ابو تراب]

جرب المرفق

example.zip

[نايف - م]

بالضبط هي المطلوب

لكن أريدها باستخدام شكل يمكنني تنسيقه و تنسيق خطه

إذا ممكن

[نايف - م]

طيب أخي استخدمت الكود التالي من وحي حلك  و مشي الحال

If Not Intersect(Target, Range("AP9:AP8000")) Is Nothing And Target.Count = 1 Then
    With ActiveSheet.Shapes("nyefhello")
     .Top = Target.Top + 20
     .Left = Target.Left
        
    With .TextFrame2.TextRange.Characters
     .Text = Target.Value
    End With
    End With
End If

لكن ببعض الخلايا التي يوجد بها داتا كبيرة

الشكل لا يتوسع تلقائيا ليحتويها

ممكن كود

شكرا

[ابو تراب]

هلا نايف

 

ما تحتاج كود فقط اتبع كما في الصورة

 

[نايف - م]

شكرا للرد

بس الصورة ما عم تقبل تفتح

شو العمل

[ابو تراب]

حمل الصورة من المرفق

1.zip