عرض اسماء اوراق العمل

[زياد علي]

السلام عليكم

عيدكم مبارك

بالمرفق كود يعرض اسماء اوراق العمل

بعد كتابة هذه المعادلة البسيطة في الورقة ()SHNAME =

تحياتي

عرض اسماء اوراق العمل.rar

[عبدالله فاروق ابو ريان]

=RIGHT(CELL("filename";A2);LEN(CELL("filename";A2))-FIND("]";CELL("filename";A2)))

جزاك الله خيرا 
ويمكن ايضا عن طريق كتابة المعادلة التالية 

 

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم عبد الله فاروق على إحياء الموضوعات القديمة ليستفيد منه الأعضاء الجدد والقدامي

إليك دالة معرفة شبيهة لما قدمت في المشاركة الأولى

Function SheetName(rCell As Range, Optional UseAsRef As Boolean) As String
    Application.Volatile
        If UseAsRef = True Then
            SheetName = "'" & rCell.Parent.Name & "'!"
        Else
            SheetName = rCell.Parent.Name
        End If
End Function

لاستخدام الدالة .. قم في أي خلية بوضع المعادلة التالية

=SheetName(A1)

تقبل تحياتي

 

[عبدالله فاروق ابو ريان]

استاذنا ياسر خليل جزاك الله خير ونحن نتعلم منكم

[ياسر خليل أبو البراء]

أخي الحبيب عبد الله فاروق

كلنا نتعلم من بعضنا البعض ، فلولاكم لما تعلمت شيئاً فبكم ومنكم تعلمت

تقبل وافر تقديري واحترامي

[عبدالله فاروق ابو ريان]

استاذي ياسر ارفع القبعة انحني احتراما لهذا الكلام 
تقبل وافر تقديري واحترامي

[محي الدين ابو البشر]

السلام عليكم

وجمعة مباركة بإذن الله تعالى

احببت أن أشارك في هذا الموضع بالمرفق التالي  إثراءً للموضوع

حسث نخصص صفحة لفهرس الصفحات ويمكن الانتقال منها إلى الصفحة المطلوبة بالضغط على السم الصفحة

أرجو أن ينال الإعجاب

 

فهرس الصفحات.rar

[ناصر سعيد]

جزاكم الله  خيرا

 

[ابوعبدالواجد]

جزاكم الله خيرا