الرئيسية | مايكروسوفت اوفيس | مايكروسوفت اكسل | إعداد قائمة بالـ worksheets التي بالملف Excel VBA

إعداد قائمة بالـ worksheets التي بالملف Excel VBA

إعداد قائمة بالـ worksheets التي بالملف Excel VBA

نستعرض في هذا الموضوع كيفية إعداد قائمة بأسماء أوراق العمل Worksheets التي توجد بالملف ثم تحويل إسم كل شيت الى رابط للشيت Hyperlink.


الأساليب المتبعة في هذا الكود

  1. الحلقة التكرارية For Each
  2. الدالة Hyperlink – VBA

كود إنشاء قائمة بأسماء worksheets في الملف

Option Explicit
 
Sub ListAllSheets2()
 
Dim sht As Worksheet
Dim i As Integer
i = 2
 
For Each sht In Worksheets
i = i + 1
 
ActiveSheet.Hyperlinks.Add _
anchor:=Cells(i, 2), _
Address:="", _
SubAddress:=sht.Name & "!a1", _
TextToDisplay:=sht.Name
 
Next sht
End Sub

فيديو : إعداد قائمة بالـ worksheets التي بالملف Excel VBA

شاهد أيضاً

الدالة SUMIFS

حساب المجموع وفقاً لأكثر من شرط | الدالة SUMIFS مايكروسوفت اكسل

الدالة SUMIFS هي إحدى الدوال التي تم إضافتها في نسخة الأوفيس 2007، وجاءت لتكون الإمتداد ...