من اهم مهارات الاكسل المتقدم | تغيير اسم ورقة العمل بطريقة اكثر احترافية Excel VBA| Rename sheets in excel

بسم الله الرحمن الرحيم 
اهلا بكم متابعى موقع عالم الاوفيس

درس جديد وكود مميز من اكواد اكسل Excel VBA

من اهم مهارات الاكسل المتقدم | تغيير اسم ورقة العمل بطريقة اكثر احترافية 




شرحنا فى الدرس السابق كيفية اضافة ورقة عمل او شيت جديد لكل عميل 

رابط الدرس من هنا

واليوم نستكمل شرحنا على نفس ملف العمل


لو اننا ادرجنا اسم عميل عن طريق الخطا كيف يمكننا تغيير الاسم او تصحيحية ؟

 هذا السؤال رود بخاطرنا ونحن نجهز لهذا الدرس فاردنا ان ناتى لكم بكود سهل وجميل جدا وفية من الاحترافية مايؤهلة ان يكون كذلك .


فكرة عمل الكود 

الكود  يتكون من عدة خطوات 

  • يطلب منك اسم السشيت الذى تريد ان تقوم بتغيير اسمة 
  •  يطلب منك الكود ادخال الاسم الجديد للشيت 
  •  يقوم الكود بفحص جميع اسماء اوراق العمل الموجود فى ملف العمل من خلال حلقة تكرارية  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


لتحميل ملف العمل 


لمشاهدة شرح كيفية عمل الكود 




Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق