ارتباط تشعبي لتشغيل ماكرو او كود

[ماجدجلال]

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

اخواني الاعزاء

ما هي الطريقة لجعل الارتباط التشعبي يقوم بتشغيل ماكرو

وكذلك تشغيل كود

وذلك بدلا من الذهاب الي صفحة

وشكرا جزيلا لكم

[ماجدجلال]

السلام عليكم

للرفع

[طارق محمود]

السلام عليكم

أخي / ماجد

السوءال عام جدا

الأفضل تحديد ماذا تريد بالضبط

مثلا لجعل مربع أو صورة (علي شكل زر) تقوم بتشغيل ماكرو

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

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

ومثلا

لجعل خلية معينة (سواء بها محتوي أم لا) ترتبط بمكان آخر في نفس الورقة أو نفس الملف أو حتي خارج الإكسل أو الإنترنت

قف عليها ثم Ctrl-K

ثم اتبع التعليمات

[ماجدجلال]

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

شكرا لك استاذ طارق

وانا اسف لعدم توضيح السؤال بصورة اكبر ,

لنفترض اننا لدينا رابط تشعبي يقوم هذا الربط بالانتقال الي الصفحة الثانية .

المطلوب هو كيف اجعل هذ الرابط يقوم بتشغيل ماكروا محدد ,

الملف المرفق به شرح اتمني ان يكون اكثر توضيحا :

وهو لدي رابط تشعبي موجود في الخلية H3 ( لتشغيل الماكروا انقر هنا ) يقوم هذا الرابط حاليا عند النقر علية بالانتقال الي الصفحة الثانية ,

المطلوب هو : تعديل هذا الربط لكي يقوم بتشغيل الماكروا mocro1 ,

وشكرا جزيلا لك

300.zip

[عبدالله المجرب]

جرب المرفق

300.zip

[ريان أحمد]

بارك الله فيك أستاذي وأطال الله في عمرك

[ماجدجلال]

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

نعم استاذ عبدالله هذا هو المطلوب ,

ولكن لي طلب بسيط

هل يمكن جعل الرابط التشعبي عند النقر علية يقوم بتنفيذ الماكروا فقط ؟

اي يقتصر عمل علي تشغيل الماكروا فقط دون الذهاب الي الصفحة الثانية كما في الملف المرفق . اي انة يعمل شي واحد فقط

وشكرا جزيلا لكم ,,,

[طارق محمود]

السلام عليكم

أخي ماجد

استبدل هذا الكود

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

mocro1

End Sub

بالتالي

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address <> "$H$3" Then Exit Sub

mocro1

End Sub

[طارق محمود]

أو تفضل المرفق

((ع عندي مشكلة في رفع الملفات ))

تجد الملف علي الرابط

http://www.4shared.com/rar/zi8j0vRl/300.html

[ماجدجلال]

السلام عليكم

شكرا لك استاذ طارق والشكرا ايضا للاستاذ عبدالله

جزاكم الله كل خير .

[mom101]

بامكانك تغيير الرابط التشعبي لكي يشير الي الصفحة الاولى فذالك اسهل

او اضافة الي الكود Sheets(1).Select