كود يعمل على اظهار اسم الملف فى ليبل Lable داخل فورم ( عنوان معدل )

[عبد الرحمن شفيق]

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

به رقم سري واسم مستخدم

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

الذي يظهر في بداية التشغيل

 

ولكم جزيل الشكر

 

[رجب جاويش]

أخى الفاضل / عبد الرحمن

أرجو الاهتمام فى المرات القادمة بكتابة عنوان مناسب لمحتوى الموضوع ( طبقا لقواعد المشاركة )

سوف يتم تعديل العنوان ولكن الرجاء الاهتمام بهذه النقطة فى المرات القادمة

[رجب جاويش]

أخى الفاضل / عبد الرحمن

تفضل أخى ما تريد

اسم المستخدم :  ragab

كلمة المرور : 123

 

فورم واجهة يظهر اسم الملف.rar

[عبد الرحمن شفيق]

كل الشكر والتقدير لك استاذ الكبير / رجب جاويش

وبالنسبة للعنوان مفهوم جدا ولكن هذا من السرعة في عرض الموضوع عليكم

 

وبخصوص الكود ارجو ان تكرمت شرح السطر التالي وخصوصا الرقم  -4

Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)

وما المقصود بـ Left وما هو المقصود بـ Len

 

لك ارق التحيات

[أبو حنــــين]

نيابة عن اخي رجب

لو فرضنا ان الخلية C3 تحتوي على الحروف :  ABCDEF

عندما نكتب الدالة التالية

=RIGHT(C3;2)

فالناتج هو : EF

و هناك دالة اخى :

=LEFT(C3;2)

الناتج هو : AB

 

و المعنى ان الدالة  RIGHT  تعطي عدد الحروف التي نريد اختيارها ابتداءا من اليمين و نحن اخترنا 2 لذلك تحصلنا على او حرفين من اليمين  EF

و الدالة  LEFT  تعمل عكس الاولى اي اخترنا اول حرفين من اليسار فكان الناتج هو AB

 

اما عند كتابة الدالة

=LEN(C3)

فالناتج يكون 6 و تعني مجموع عدد الحروف ( حروف ، ارقام ، مسافات ، علامات ، . . . )

اما في ما يخص السؤال او السطر

Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)

الجملة : ThisWorkbook.Name تعطي الاسم الكامل للملف زائد نقطة زائد ملحق الملف و هو xls

الملحق زائد النقطة = 4   اي لو قمنا بحساب ( .xls ) سنجد ثلاث حروف و نقطة بمجموع 4

لذلك استعمل اخي رجب -4 ليظهر الاسم دون نقطة و دون ملحق

تم تعديل فبراير 25, 2014 بواسطه أبو حنين

[حمادة عمر]

السلام عليكم

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

شرح راقي وسلسل واكثر من ممتاز

 

ومشاركة مني ولو بمعلومة بسيطة وسط هؤلاء العمالقة

الي الاخ / عبد الرحمن

اي انك ان اردت ايضا ان يظهر اسم الملف بالامتداد الخاص به سيكون الكود كالتالي بدون المعادلات المذكورة والمشروحة من / ابو حنين

Me.Label3.Caption = ThisWorkbook.Name

والشكر موصول لصاحب الرد العملاق / رجب جاويش .. جزاه الله خيرا

فهو دائما مبدع بكل المقاييس

 

تقبلوا خالص تحياتي

[رجب جاويش]

أخى الحبيب / أبو حنين

أخى الحبيب / حمادة عمر

جزاكم على الله كل خير على هذه المشاركات الجميلة والشرح الرائع

[إبراهيم ابوليله]

اجى رجب

كود رائع بارك الله فيك

اخى ابوحنين

شرح رائع ومعلومات دسمه

بارك الله فيك

[إبراهيم ابوليله]

اخى حماده

الزياده فى الخير

تدل على الاصرار على توصيل كافة المعلومات الينا

بارك الله فيك

[أبو حنــــين]

الأخ الحبيب : حمادة عمر

الأخ الحبيب : رجب جاويش

الأخ الحبيب : ابراهيم ابوليله

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

[الجموعي]

أخي الكريم لو اردت إضافة السنة الحالية للكود

هذا الكود

Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Year(Now())

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

Me.Label1.Caption = Year(Now())

وإذ اردت ايضا ان يظهر اسم الملف بالامتداد الخاص به

Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - x)

[رجب جاويش]

أخى الحبيب / ابراهيم

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

[رجب جاويش]

أخى الحبيب / أبو حنين

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

[رجب جاويش]

أخى الحبيب / الجموعى

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

على هذه الاضافات