أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil هل يمكن تغيير مسار الصورة فى الحفظ ونقلها للمسار الجديد اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تسمية المصنف الحالي بناءً على قيمة خلية Rename ActiveWorkbook By Cell Value Trick

السلام عليكم إخواني وأحبابي في الله أقدم لكم في موضوع اليوم كود كحل لسؤال أحد الأخوة على الفيس بوك يقوم الكود بتسمية ..



15-11-2019 01:34 مساء
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 

السلام عليكم إخواني وأحبابي في الله

أقدم لكم في موضوع اليوم كود كحل لسؤال أحد الأخوة على الفيس بوك

qNyQw_01

يقوم الكود بتسمية المصنف الحالي الذي يحتوي الكود بناءً على القيمة الموجودة في خلية معينة

وهذا هو الكود

Sub Rename_ActiveWorkbook_By_Cell_Value_Trick()
    Dim sValue As String, wbName As String, newName As String

    sValue = Sheets(1).Range("A1").Value
    If sValue = "" Then MsgBox "Cell Is Empty. The Cell Must Have A Value", vbExclamation: Exit Sub
    
    wbName = ThisWorkbook.FullName
    newName = Mid(wbName, 1, InStrRev(wbName, "")) & sValue & ".xlsm"
    If wbName = newName Then MsgBox "The Workbook Was Already Renamed", vbExclamation: Exit Sub
    
    ActiveWorkbook.SaveAs newName
    Kill wbName
End Sub


شرح الكود:
*******
في السطر الأول إعلان عن مجموعة من المتغيرات من النوع النصي

في السطر التالي تعيين قيمة للمتغير sValue ليساوي قيمة الخلية A1 الموجودة في أول ورقة عمل ، ويمكن تغيير الخلية أو ورقة العمل كما تشاء

في السطر الثالث اختبار قيمة الخلية بحيث لو كانت الخلية فارغة ولا تحتوي على أي قيمة تظهر رسالة تفيد بذلك ويتم الخروج من الإجراء بدون تنفيذ بقية الكود Exit Sub

في السطر الرابع يتم تخزين مسار المصنف الحالي (المسار بالكامل وليس اسم المصنف فقط) وذلك من خلال استخدام ThisWorkbook.FullName

في السطر الخامس تعيين قيمة للمتغير بحيث يخزن نفس مسار المصنف متبوعاً بقيمة الخلية والامتداد xlsm ليصبح هذا المتغير بمثابة المسار الجديد للملف بما يشمل اسم الملف معه

في السطر السادس إذا وجد مصنف بنفس الاسم المطلوب التغيير إليه يتم إظهار رسالة تفيد بأن المصنف تمت تسميته ويتم الخروج من الإجراء الفرعي

في السطر السابع يتم حفظ المصنف الحالي بالاسم الجديد في المسار المحدد في الاسم الجديد
ActiveWorkbook.SaveAs newName


وأخيراً يتم حذف المصنف القديم (ذو الاسم القديم) والاحتفاظ بالمصنف ذو الاسم الجديد فقط

وأخيراً أرجو أن يكون الشرح مفيد وواضح لكم إن شاء الله

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

أخوكم في الله / ياسر خليل أبو البراء
 
 


15-11-2019 04:32 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1772
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif تسمية المصنف الحالي بناءً على قيمة خلية Rename ActiveWorkbook By Cell Value Trick
أحسنت استاذ ياسر عمل ممتاز جعله الله فى ميزان حسناتك
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

15-11-2019 04:43 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif تسمية المصنف الحالي بناءً على قيمة خلية Rename ActiveWorkbook By Cell Value Trick
بارك الله فيك أخي العزيز علي ومشكور على مرورك المشرف




الكلمات الدلالية
تسمية ، المصنف ، الحالي ، بناءً ، قيمة ، خلية ، Rename ، ActiveWorkbook ، Cell ، Value ، Trick ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 03:45 صباحا