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

[الشهابي]

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

هل توجد معادلة من خلالها يتم وضع اسم الورقة في خلية معينة تلقائيا بحيث لو تغير اسم الورقة يتغير تبعه النص في الخلية حسب اسم الورقة الجديد

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

اخوكم الشهابي

[الخالدي]

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

اخي الفاضل الشهابي

الدالة CELL مع الوسيطة filename ترجع مسار واسم الملف و اسم الورق ثم بعد ذلك يتم استخدام معادلات اخرى لاستخلاص اسم الورقة

جرب المعادلة التالية

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

او المعادلة

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

في أمان الله

[دغيدى]

=MID(CELL("filename");FIND("]";CELL("filename"))+1;LEN(CELL("filename")))

اثراءً للموضوع لاظهار اسم الورقة فى خلية معينة

تم تعديل فبراير 26, 2012 بواسطه دغيدى

[الشهابي]

الأستاذيين الكريمين الخالدي ودغيدي

جزاكم الله خير على سرعة الرد

بارك الله فيكم وزادكم الله علما ورفعة

[دغيدى]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Name = Cells(1, 1)

End Sub

أخى الفاضل .. يمكن وضع هذا الكود فى حدث الورقة ليعطى نتيجة عكسية

بمعنى ان يكون اسم الورقة كما هو مكتوب فى الخلية الأولى A1

تم تعديل فبراير 26, 2012 بواسطه دغيدى

[دغيدى]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Integer

For i = 1 To Worksheets.Count

Sheets(1).Cells(i, 1).Value = Worksheets(i).Name

Next i

End Sub

يمكن وضع هذا الكود لإدراج اسماء جميع الأوراق