معادلة لعرض اسم ورقة العمل في خلية !!

[أيسم إبراهيم]

السلام عليكم

أنا عندي قناعة كبيرة بأن كل شيء ممكن بالإكسيل

هل ممكن عمل معادلة لعرض اسم ورقة العمل في خلية ؟؟؟

[عبدالله باقشير]

السلام عليكم

=MID(CELL("filename";'خبور خير'!$A$1);FIND("]";CELL("filename";'خبور خير'!$A$1))+1;256)

شاهد المرفق

استخراج اسماء الاوراق.rar

[الحسامي]

السلام عليكم

بارك الله فيك اخي خبور

وهنا معادلات اخرى وجدتها في احدى المواقع

 

=REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),"")

 

=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-SEARCH("]",CELL("filename",A1)))

[أيسم إبراهيم]

بارك الله فيكم جميعا

و كل عام أنتم بخير بقدوم شهر رمضان المعظم

[أبوعبد الله]

إخواني الأعزاء وأحبابي

وهاتان معادلتان بأكوادالأولى وهي للحصول على إسم الورقة النشطة بأي خلية فيها وإسم المعادلة "إسم_الورقة_النشطة" ، والمعادلة الثانية وهي للحصول بأي مكان بالملف على إسم ورقة برقمها والمعادلة إسمها"إسم_الورقة_رقم" وبالمرفق تطبيق للمعادلتين أرجو أن تكون مفيدة .

وكل عام وأنتم بخير ورمضان كريم .

مع حبي وتقديري

أبو عبدالله

معادلة إسم الورقة النشطة ومعادلة إسم الورقة حسب رقمها.rar

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

بسم الله ما شاء الله

منتدى إلتقاء المبدعين ...أعمال وحلول كلها رائعة

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

إليكم الملف المرفق

أخوكم أبو البراء

ExtractSheetNames.rar

[احمد فضيله]

بارك الله فيكم جميعا

[الخالدي]

السلام عليكم ورحمة الله وبركاته

بارك الله فيكم وجزاكم كل خير

ولإثراء الموضوع

الدالة التالية تعيد عدد الاوراق النشطة للمصنفات المفتوحة

=INFO("numfile")

الدالة CELL عند عدم تحديد المرجع فانها تعيد معلومات اخر الخلية تم تغيرها, فالمعادلة التالية تعيد اسم الورقة النشطة

=RIGHT(CELL("filename");LEN(CELL("filename"))-SEARCH("]";CELL("filename")))

هناك العديد من (info_type) مع الدالة CEL تحدد نوع المعلومة , المعادلة التالية تعيد مرجع الخلية النشطة

=CELL("address")

من (info_type) الوسيطة format وهي تعيد تنسيق أرقام الخلية , المعادلة التالية عند وضعها في التحقق من الصحة تجبر المستخدم على ادخال التاريخ الخلية بتنسيق mmm-yy

=CELL("format";A1)="D3"

تحياتي

[أيسم إبراهيم]

السلام عليكم

إبداعات تفوق الوصف

ما شاء الله عليكم

ولإثراء الموضوع أكثر

هذه دالةمن إعداد المستخدم UDF تعطي اسم ورقة العمل النشطة

Function SheetName()

   SheetName = ActiveSheet.Name

End Function

شكل المعادلة كالتالي

=SheetName()

لكن بها نقص وهو أنها لا يتم تحديثها إذا تغيرت اسم ورقة العمل بعد إدراج الدالة. فهل من حل ؟؟؟؟

دمتم بخير

أيسم إبراهيم

تم تعديل أغسطس 5, 2010 بواسطه أيسم إبراهيم

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

ببساطة انقر نقراً مزدوجا على الخلية التي بها المعادلة بعد تغيير اسم الورقة سيتم تغيير اسم الورقة للاسم الجديد

[أيسم إبراهيم]

السلام عليكم جميعا

جزاك الله كل الخير أخي ياسر كلامك سليم.

ولكن كان قصدي أن يتم التعديل على الكود ليكون التغيير أتوماتيكي بمجرد تغيير اسم ورقة العمل

دمتم بخير

أيسم إبراهيم

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

جرب أن تضع هذا الكود في صفحة ورقة العمل

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Me.Range("A1:C15")) Is Nothing Then

        Application.CalculateFullRebuild

    End If

End Sub

[أبو العقاب]

ما شاء الله

تفاعل رائع

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

أخي أيسم

جرب تكتب الدالة في ورقة العمل بالشكل التالي(خدعة بسيطة منقولة للأمانة)

=SheetName()&TEXT(NOW();"")

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

أخي أيسم الغالي

إليك حل آخر:::

جرب الكود التالي

Function SheetName()

    Application.Volatile True

    SheetName = ActiveSheet.Name

End Function

[عبدالله باقشير]

========================

الاخ الحبيب/ ياسر خليل

بصراحة ابداع بلا حدود

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

و

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

العالم الجليل علامة الإكسيل

والله لكم يطير قلبي فرحاً بكلماتك الرقيقة

جزاكم الله خيرا على تشجيعكم لي

وإننا مهما بلغنا فلن نبلغ قطرة في بحر علمكم فمنكم دائماً نستفيد

جزاك الله عنا خير الجزاء