كيف أجعلها مقروءه

[الـمـتـنـكـر]

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

الموضوع يا جماعة بإختصار كيف أجعل كل موضوع أكتبه

حين يضغط على كلمة عرض يعطي أنها قرأت

علما بأن كلمة عرض تكون بإرتباط تشعيبي على شي معين

هل يستطيع خبراءنا أن يساعدوني بأن تصبح كأنها مثل الإيميل

حين أعرض المعاملة تلقائيا تعطي أنها قرأت.

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

---------

مرفق ملفي

__________.zip

[ابو اسامة العينبوسي]

السلام عليكم

دبل كلك على الموضوع

* ممكن ايضا عمل ازاله للارتباط التشعبى برمجيا بعد الحدث دبل كلك

جرب المرفق ونطبق على ملفك ان كان المطلوب

test1.rar

[الـمـتـنـكـر]

ممتاز

ويا ريت تكون جديده قبل ما أفتح الإرتباط التشعيبي

ويوم أضغط على الإرتباط التشعيبي ويفتح يعطني تلقائي قرأت

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

[عبدالله باقشير]

السلام عليكم

عن اذن اخي ابو اسامة حفظه الله

ممكن ايضا بهذا الكود :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
 Selection.Hyperlinks(1).TextToDisplay = "مقروءة"
End Sub

[الـمـتـنـكـر]

تحية ملئها التقدير لأخواني الذين قاموا بالإطلاع على موضوعي ومن قام بالرد

أبو أسامة الله يعطيك العافية مجهود رائع

وأتمنى أن يعدل على كود أخونا خبور بأن :

أن يوضع بدل كلمة مقروءة رقم 1

ويوضع هذا الرقم في خانة (تم)

والله يعطيكم العافية مقدما على محاولاتكم الأكثر من رائعة

تم تعديل أغسطس 24, 2008 بواسطه الـمـتـنـكـر

[ابو اسامة العينبوسي]

السلام عليكم

مشكور استاذ خبور

[الـمـتـنـكـر]

بإنتظار مبدعينا الكرام

[عبدالله باقشير]

السلام عليكم

شكرا اخي ابواسامة

المتنكر تفضل حسب ما فهمت من طلبك:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Selection(1, 6).Value = 1
End Sub

[الـمـتـنـكـر]

الله يعطيك العافية مشكور

وصلت لمطلوبي

الفضل لله ثم لأخواني أبو أسامة وخبور