في عملنا اليومي ، قد تكون هناك أوراق عمل متعددة في ملف مصنف ، كيف يمكنك إنشاء فهرس لعلامات تبويب الأوراق في ورقة عمل وإنشاء ارتباط تشعبي لكل علامة تبويب؟

قم بإنشاء فهرس أوراق مرتبط تشعبيًا برمز VBA

قد يساعدك رمز VBA التالي على إنشاء فهارس لأسماء الأوراق في ورقة عمل جديدة أمام أوراق العمل الأخرى. الرجاء القيام بما يلي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

كود VB: إنشاء فهرس من الأوراق ذات الارتباط التشعبي


Sub CreateIndex()
'updateby Extendoffice
Dim xAlerts As Boolean
Dim I As Long
Dim xShtIndex As Worksheet
Dim xSht As Variant
xAlerts = Application.DisplayAlerts
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Index").Delete
On Error GoTo 0
Set xShtIndex = Sheets.Add(Sheets(1))
xShtIndex.Name = "Index"
I = 1
Cells(1, 1).Value = "INDEX"
For Each xSht In ThisWorkbook.Sheets
If xSht.Name <> "Index" Then
I = I + 1
xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
End If
Next
Application.DisplayAlerts = xAlerts
End Sub


3. ثم اضغط F5 مفتاح لتنفيذ هذا الرمز ، وورقة عمل جديدة باسم “فهرس”في المصنف قبل كافة الأوراق التي تتضمن أسماء الأوراق ذات الارتباطات التشعبية.