عبد الفتاح كيرة قام بنشر مارس 14, 2011 قام بنشر مارس 14, 2011 (معدل) السلام عليكم هذه وسيلة للتنقل عبر شيتات المصنف بواسطة كود يضيف ارتباطا تشعبيا لكل ورقة من أوراق المصنف أعتقد أنه كود بسيط و جميل لا يستنفذ ذاكرة ولا وقتا فى التنفيذ الارتباطات تضاف بدءا من الخلية 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
عبدالله المجرب قام بنشر مارس 15, 2011 قام بنشر مارس 15, 2011 الاستاذ الفاضل ابوعمر عمل جميل ومبدع بارك الله لك في علمك ونفع بك ابواحمد
saad abed قام بنشر مارس 15, 2011 قام بنشر مارس 15, 2011 اخى عبدالفتاح (ابو عمر) ادعو الله ان يرزقك صحة وعافية وستر اللهم امين اخوك سعد عابد
طارق محمود قام بنشر مارس 15, 2011 قام بنشر مارس 15, 2011 السلام عليكم الكود فعلا رائع وبسيط جزاك الله خيرا
accountant_mostafa قام بنشر مارس 15, 2011 قام بنشر مارس 15, 2011 جزاك الله كل خير اخي الفاضل بس لي طلب من فضلك الكود لا يعمل عندي أو بصراحة مش بعرف اشغل الاكواد علي اوفس 2007 انا بعرف استخدم الأكواد علي أوفس 2003 وجزاك الله كل خير
عبد الفتاح كيرة قام بنشر مارس 15, 2011 الكاتب قام بنشر مارس 15, 2011 ماشاء الله على الردود الطيبة و الجميلة أخى mohammadey1 شكرا لك و جزاك الله خيرا أخى أبا أحمد شكرا لك و بارك الله فيك أخى الأستاذ جمال شكرا جدا لردك الطيب أخى الأستاذ سعد شكرا لدعائك ( فعلا أهم حاجة العافية و الستر ) أما سعادة المراقب الأستاذ طارق فقد شرفت بمروره بالموضوع الأخ accountant_mostafa لما تفتح الملف بواسطة إكسل 2007 ستأتيك رسالة لتفعيل الماكرو كى ينفذ الكود - وافق عليها بالتوفيق للجميع
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.