ادراج اول اربع احرف من اسم الملف في خلية

[Hasancad]

السلام عليكم

جزاكم الله خيرا على ما تقومون به

لي سؤال بسيط

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

فهل يمكن استخدام جزء من اسم الملف في خلية في الملف نفسه ؟

 

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

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

أخي الكريم حسن

أهلاً بك في المنتدى ونورت بين إخوانك

جرب الكود التالي سيتم وضع أول أربعة حروف في الخلية A1 ..

Sub Test()
    Range("A1").Value = Mid(ActiveWorkbook.Name, 1, 4)
End Sub

إذا لم يؤدي الكود الغرض فيرجى إرفاق ملف أو مزيد من التوضيح

تقبل تحياتي

[سليم حاصبيا]

انسخ هذه المعادلة الى اي خلية في الملف

=MID(MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-1),1,4)

 

تم تعديل فبراير 6, 2016 بواسطه سليم حاصبيا

[Hasancad]

في 2/6/2016 at 08:30, ياسر خليل أبو البراء said:

أخي الكريم حسن

أهلاً بك في المنتدى ونورت بين إخوانك

جرب الكود التالي سيتم وضع أول أربعة حروف في الخلية A1 ..

Sub Test()
    Range("A1").Value = Mid(ActiveWorkbook.Name, 1, 4)
End Sub

إذا لم يؤدي الكود الغرض فيرجى إرفاق ملف أو مزيد من التوضيح

تقبل تحياتي

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

 

في 2/6/2016 at 09:46, سليم حاصبيا said:

انسخ هذه المعادلة الى اي خلية في الملف

=MID(MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-1),1,4)

 

جربتها و لكنها لا تعمل تعطي #VALUE! 

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

filename.zip

[سليم حاصبيا]

يجب ان يكون الملف محفوظاً كي يتعرف عليه الاكسل

17 دقائق مضت, Hasancad said:

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

 

جربتها و لكنها لا تعمل تعطي #VALUE! 

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

filename.zip

يجب ان يكون الملف محفوظاً كي يتعرف عليه الاكسل

[Hasancad]

8 دقائق مضت, سليم حاصبيا said:

يجب ان يكون الملف محفوظاً كي يتعرف عليه الاكسل

يجب ان يكون الملف محفوظاً كي يتعرف عليه الاكسل

هو محفوظ يا اخي الكريم و كيف سارفقه ان لم يكن محفوظا و للتاكيد فتحته مرة اخرى الان و نفس النتيجه

[سليم حاصبيا]

انظر الى المرفق

 

adress_for _expeince.rar

[Hasancad]

في 2/8/2016 at 11:26, سليم حاصبيا said:

يجب ان يكون الملف محفوظاً كي يتعرف عليه الاكسل

يجب ان يكون الملف محفوظاً كي يتعرف عليه الاكسل

هو محفوظ يا اخي الكريم و كيف سارفقه ان لم يكن محفوظا و للتاكيد فتحته مرة اخرى الان و نفس النتيجه

 

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

يعمل بكفاءه