بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
كيفية حفظ ملف Excel بناء على قيمة خلية معينة
عند استخدام مصنف اكسيل هل فكرت يوما ما فى حفظ ملف الاكسيل بناء على قيمة خلية معينة موجود فيها بيانات داخل ورقة العمل
لنفرض مثلا ان اديك فى الخلية A1 اسم المندوب وتريد حفظ ملف العمل باسم كل مندوب انت تحددة فى الخلية السابق ذكرها
واحد هيقول لى سهلة جدا هنعمل حفظ باسم ونحفظ كل مرة باسم المندوب الذ نريدة .
تمام هذة طريقة ولكنها سوف تاخذ منك الوقت والمجهود اوننا من خلال برمجة الاكسل VBA تعودنا على انجاز اعمالنا بطريقة سريعة واكثر سهولة
سوف نقوم بفتح محرر الاكواد بلضغط على ALT + F11 لفتح نافذة الاكواد
نعمل ادارج موديول جديد Insert Modoual
ونقوم بكتابة الكود التالى
Sub
EmadMohamedGhazi()
Dim
Path As String
Dim
filename As String
Path
= thisworkbook.path
filename
= Range("A1")
ActiveWorkbook.SaveAs
filename:=Path & filename & ".xls", FileFormat:=xlNormal
End
Sub