كود لإضافة ارتباط تشعبى للشيتات - ممتاز و بسيط

[عبد الفتاح كيرة]

السلام عليكم

هذه وسيلة للتنقل عبر شيتات المصنف

بواسطة كود

يضيف ارتباطا تشعبيا لكل ورقة من أوراق المصنف

أعتقد أنه كود بسيط و جميل

لا يستنفذ ذاكرة ولا وقتا فى التنفيذ

الارتباطات تضاف بدءا من الخلية a2 ثم إلى أسفل

حسب عدد الشيتات

الصورة

الكود

Sub List_All_Sheet_Names_in_Column_A_with_Hyperlinks()


      Range("a1:a100").ClearContents

       For Each wsh In ThisWorkbook.Worksheets



              Range("A65536").End(xlUp).Offset(1, 0).Select


              ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=wsh.Name & "!A1", TextToDisplay:=wsh.Name


       Next wsh


End Sub

الملف التطبيقى

إضافة ارتباط تشعبى للأوراق بالكود.rar

تم تعديل مارس 14, 2011 بواسطه kemas

[محمدي عبد السميع]

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

ماشاء الله

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

الاستاذ الفاضل ابوعمر

عمل جميل ومبدع

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

ابواحمد

[دغيدى]

شكرا أبو عمر

[zine pef]

يا سلام عليك أخي كيماس

بركة الله فيك

[saad abed]

اخى عبدالفتاح (ابو عمر)

ادعو الله ان يرزقك صحة وعافية وستر

اللهم امين

اخوك سعد عابد

[طارق محمود]

السلام عليكم

الكود فعلا رائع وبسيط

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

[accountant_mostafa]

جزاك الله كل خير اخي الفاضل

بس لي طلب من فضلك الكود لا يعمل عندي أو بصراحة مش بعرف اشغل الاكواد علي اوفس 2007

انا بعرف استخدم الأكواد علي أوفس 2003

وجزاك الله كل خير

[عبد الفتاح كيرة]

ماشاء الله على الردود الطيبة و الجميلة

أخى mohammadey1 شكرا لك و جزاك الله خيرا

أخى أبا أحمد شكرا لك و بارك الله فيك

أخى الأستاذ جمال شكرا جدا لردك الطيب

أخى الأستاذ سعد شكرا لدعائك ( فعلا أهم حاجة العافية و الستر )

أما سعادة المراقب الأستاذ طارق فقد شرفت بمروره بالموضوع

الأخ accountant_mostafa لما تفتح الملف بواسطة إكسل 2007

ستأتيك رسالة لتفعيل الماكرو كى ينفذ الكود - وافق عليها

بالتوفيق للجميع