بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
من اهم مهارات الاكسل المتقدم | تغيير اسم ورقة العمل بطريقة اكثر احترافية
شرحنا فى الدرس السابق كيفية اضافة ورقة عمل او شيت جديد لكل عميل
رابط الدرس من هنا
واليوم نستكمل شرحنا على نفس ملف العمللو اننا ادرجنا اسم عميل عن طريق الخطا كيف يمكننا تغيير الاسم او تصحيحية ؟
هذا السؤال رود بخاطرنا ونحن نجهز لهذا الدرس فاردنا ان ناتى لكم بكود سهل وجميل جدا وفية من الاحترافية مايؤهلة ان يكون كذلك .فكرة عمل الكود
الكود يتكون من عدة خطوات- يطلب منك اسم السشيت الذى تريد ان تقوم بتغيير اسمة
- يطلب منك الكود ادخال الاسم الجديد للشيت
- يقوم الكود بفحص جميع اسماء اوراق العمل الموجود فى ملف العمل من خلال حلقة تكرارية FOR EACH
- اذا وجد اسم الشيت موجود اى ان ورقة العمل موجود ة فى ملف العمل يقوم على الفور بتغيير اسم ورقة العمل الى الاسم الجديد
- اذا تم فحص اسماء جميع اوراق العمل ولم يكن موجود الاسم المراد تغييرة يتم اعطاء رسالة للمستخدم بان اسم هذا الشيت غير موجود فى ملف العمل الحالى .
كود سهل جدا وبسيط وان شاء الله هيفيدكم فى شغلكم
نافذة الكود
Sub rename_sheets()
Dim ws As Worksheet
Dim oldsheetname As
String
Dim newsheetname As
String
oldsheetname = InputBox("من فضلك ادخل اسم الشيت المراد تغيير
اسمة")
newsheetname = InputBox("من فضلك ادخل اسم الشيت الجديد")
For Each ws In ThisWorkbook.Worksheets
If oldsheetname = ws.Name Then
ws.Name = newsheetname
Exit Sub
End If
Next ws
MsgBox "عفوا الشيت المراد تغيير اسمة غير موجود فى ملف العمل الحالى", vbInformation
End Sub
لتحميل ملف العمل
لمشاهدة شرح كيفية عمل الكود