اذهب الي المحتوي
أوفيسنا

عمل رسالة تلميح للخلية 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

  • Like 5
رابط هذا التعليق
شارك

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

تم تعديل بواسطه YasserKhalil
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

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

 

هذا الكود  بأستخدام ال 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

  • Like 2
رابط هذا التعليق
شارك

 

اخى ابو تراب

 

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

 

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

 

:fff: تقبل تحياتى :fff: 

 

 

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

 

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

رابط هذا التعليق
شارك

 

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

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

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

 

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

 

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

 

تقبل تحياتي

 

رابط هذا التعليق
شارك

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

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

سلمت يمينك

تحياتي :fff:

 

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

 

تقبل تحياتي  :fff: 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

 

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

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

بارك الله بك

 

 

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

 

رائع

 

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

 

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

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

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

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

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

 

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

رابط هذا التعليق
شارك

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

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

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

 

هلا نايف 

 

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

 

Target.Value

رابط هذا التعليق
شارك

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

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

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

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

ممكن كود

شكرا

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information