بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
كود مهم جدا من اكواد الاكسل Excel VBA
كيفية عمل ارتباط تشعبى فى الاكسل لاى عدد من اوراق العمل بضغطة زر واحدة Automatice HyperLink In Excel
اذا كان لديك ملف عمل فية اكثر من 200 ورقة عمل وتريد اضافة ارتباط تشعبى لكل اوراق العمل
الموضوع جدا صعب ومرهق وياخذ وقت طويل ومجهود . بالفعل انة صعب جدا اذا قمنا بعملة بالطريثة اليدوية التلقليدية من الوقوف على الخلية واضافة ارتباط تشعبى لكل ورقة عمل على حدة
ولكن باستخدام الاكسل VBA اصبح الامر سهل جدا ومريح , من خلال الكود التالى سوف نقوم باضافة Automatice HyperLink In Excel بطريقة سهلة وبسيطة جدا
الكود
Sub
CreateHyperlinksToAllWorksheets()
Dim objSheet As Worksheet
Range("A1").Select
For Each objSheet In
ActiveWorkbook.Worksheets
If ActiveSheet.Name <>
objSheet.Name Then
ActiveCell.Hyperlinks.Add
Anchor:=Selection, Address:="", SubAddress:="'" &
objSheet.Name & "'" & "!A1",
TextToDisplay:=objSheet.Name
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireColumn.AutoFit
End If
Next objSheet
End
Sub
يالة من كود جميل فعلا انجز كل اوراق العمل دفعة واحدة فقط . ولكن هنا قمنا بحل نصف المشلكة ولكن باقى المشكلة اننا نريد ان نعمل كود اخر يقوم بادراج ارتباط تشعبى الى الورقة الرئيسية Automatice HyperLink In Excel
قمنا بالتغلب وحل هذة المشكلة من خلال الكود التالى
For
Each ws In Worksheets
ws.Select
If
ws.Name <> Sheets("Sheet Menu").Name Then
ActiveSheet.Cells(2, 5).Select
ActiveSheet.Hyperlinks.Add
Anchor:=Selection, Address:="", SubAddress:= _
"'Sheet Menu'!A1",
TextToDisplay:="Mastersheet"
End
If
Next
ws
Sheets("Sheet
Menu").Select
وبالفعل هنا اكتمل العمل بشكل جميل جدا وحل مشكلة كبيرة من اصعب المشاكل التى يمكن ان تواجة مستخدمى الاكسيل
اذا اعجبك هذا العمل لاتبخل علينا بمشاركتة على وسائل التواصل الاجتماعى حتى تعم الفائدة على الجميع
قد يعجبك ايضا
- تحميل برنامج حركة الخزينة مجانا
- اسطوانة التعريفات الشاملة DriverPack Solution بدون نت
- شيت بجميع اكواد الخدمة في فورى Fawry اكواد فوري
- برنامج مجانى لمتابعة حركة الخزينة Excel
- تحميل برنامج مخازن مجانى 100 % كامل ومفتوح المصدر | Store Management System
- برنامج متابعة الشيكات (شيكات دفع / شيكات قبض ) Cheques Management + نسخة تجريبية
- تحميل برنامج الكاشير2020 المجانى لادارة حسابات المحلات التجارية Cashier
- تحميل برنامج مجانى حضور وانصراف الموظفين بالبصمة( دوام الموظفين المجانى)
- تحميل برنامج مخازن مجانى 100%
- -برنامج المنجز 2024
- تحميل برنامج محاسبى كامل كفعل مدى الحياة