هل يمكن تسمية خلية بنفس اسم ال workbook

[tahrir55555]

لى سؤال يا شباب هل يمكن تسمية خلية بنفس اسم ال workbook يبارك فى عمركم

[طارق محمود]

السلام عليكم

لى سؤال يا شباب هل يمكن تسمية خلية بنفس اسم ال workbook يبارك فى عمركم

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

[خالدو]

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

جرب المعادلة التالية في الخلية المعنية:

=CELL("filename")

[tahrir55555]

جزاك الله خيرا - المعادلة بتكتب المسار كله وليس اسم الملف فقط فهل يمكن ان يكتب اسم الملف فقط ؟

اعزكم الله

[طارق محمود]

السلام عليكم

في هذه الحالة تعملها علي خطوتين

بفرض أن المعادلة السابقة

=CELL("filename") 

موجودة في الخلية K1 إذهب لخلية أخري واكتب المعادلة التالية

=MID(K1,SEARCH("[",K1)+1,SEARCH("]",K1)-SEARCH("[",K1)-1)

[tahrir55555]

سلمت يداك الفاضل TareQ M ولكنى وجدت هذا الكود يمكن ينفع

Function MyName() As String

MyName = ThisWorkbook.Name

End Function

Function MyFullName() As String

MyFullName = ThisWorkbook.FullName

End Function

Function SheetName(rAnyCell)

Application.Volatile

SheetName = rAnyCell.Parent.Name

End Function

ثم نقوم بعمل المعادلات داخل الملف

مثلا =myname()

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

[magodey]

أخى الكريم إن شاء الله تضبط هذه المعادلة

=MID(CELL("filename";A1);FIND("[";CELL("filename";A1))+1;FIND("]";CELL("filename";A1))-FIND("[";CELL("filename";A1))-1)

مرفق ملف للتوضيح

name.zip

[tahrir55555]

اخى magodey مظبوط جدا حفظك الله