كيفية عمل ارتباط تشعبى فى الاكسل لاى عدد من اوراق العمل بضغطة زر واحدة 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

وبالفعل هنا اكتمل العمل بشكل جميل جدا وحل مشكلة كبيرة من اصعب المشاكل التى يمكن ان تواجة مستخدمى الاكسيل

اذا اعجبك هذا العمل لاتبخل علينا بمشاركتة على وسائل التواصل الاجتماعى حتى تعم الفائدة على الجميع

لتحميل ملف العمل من هنا

عالم الاوفيس

اكسل VBA | كيفية عمل ارتباط تشعبى فى الاكسل لاى عدد من اوراق العمل بضغطة زر واحدة Automatice HyperLink In Excel

كيفية عمل ارتباط تشعبى فى الاكسل لاى عدد من اوراق العمل بضغطة زر واحدة Automatice HyperLink In Excel

الكود

قمنا بالتغلب وحل هذة المشكلة من خلال الكود التالى

قد يعجبك ايضا