تغيير اسم الشيت

تغيير اسم الشيت

كيفية تغيير تسميات أوراق العمل من خلال كود VBA

بالطبع نعلم كيفية تغيير اسم ورقة العمل من خلال الطريقة المعتادة ، وهى بالضغط مرتين بالماوس على اسم الشيت ثم كتابة الاسم الذى نريده

ولكننا نتحدث عن طريقة لتغيير اسم الشيت ( ورقة العمل المفعلة ) ، وتغيير جميع أسماء أوراق العمل دفعة واحده

ولكن بناء على ربط التسمية ببيانات نقوم بإدخالها بإحدى الخلايا

سأضع لكم عده أكواد برمجية يمكنكم من خلالها تغيير التسميات

الشفرة الأولي

خاصة بتغيير اسم ورقة العمل النشطة فقط ، وبالطبع يمكنكم ربطها بزر داخل ورقة العمل

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

وتضعها بالحدث SelectionChange

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

الخلية المرتبط بها التسمية هى (A1 ) لا تحذف علامات التنصيص التى هى ( " " )

'فضلا عند استخدامك للشفرات البرمجية يجب ذكر المصدر
'https://elshriefacademy.blogspot.com

Sub Rename_Only_sheet_Active_mzm_1()
'Rename only ActiveSheet
Set Target = Range("A1")
  If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

الخطوات

1. اضغط على Alt + F11
2. اضغط كليك يمين على يسار شاشة المحرر
3. اختر من القائمة Insert Module
4. نسخ الشفرة ولصقها
5. العودة الى ورقة العمل
6. ثم قم برسم Shape أو وضع زر بالورقة
7. ثم ربط الشفرة بالزر أو الشكل

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

الخطوات

1. اضغط على Alt + F11
2. اضغط دبل كليك على يسار شاشة المحرر على اسم الشيت
3. تجد عدد 2 قائمتين منسدلتين
4. اضغط على القائمة التى باليسار
5. اختر منها Worksheet
6. ثم اضغط على القائمة التى على اليمين واختر منها SelectionChange
7. نسخ الأسطر البرمجية التى بين السطر الأول والأخير
8. ثم لصقها

الشفرة الثانية

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

يمكنك تغيير هذا الاختصار أو الرمز من خلال الشفرة

الرمز الموجود بالشفرة هو ( MZM_ )

لا تحذف علامات التنصيص التى هى ( " " )

'فضلا عند استخدامك للشفرات البرمجية يجب ذكر المصدر
'https://elshriefacademy.blogspot.com

Sub Rename_All_sheets_mzm_2()

'Rename worksheets With the addition of(_MZM) in The Last Name
Dim ws As Worksheet
For Each ws In Sheets
ws.Name = ws.Name & "_MZM"
Next ws
End Sub

الشفرة الثالثة

يمكنك تغيير كافة تسميات أوراق العمل دفعة واحده بناء على المعلومات أو البيانات الموجودة داخل الخلية ( A1 ) بكل ورقة عمل داخل المصنف

يمكنك تغيير الخلية من خلال الشفرة حسب التنسيق الخاص بك لأوراق العمل كما تشاء

'فضلا عند استخدامك للشفرات البرمجية يجب ذكر المصدر
'https://elshriefacademy.blogspot.com

Sub Rename_All_sheets_mzm_3()
'Rename worksheets
Dim ws As Worksheet
For Each ws In Worksheets
With ws
If .Range("A1").Value <> "" Then .Name = .Range("A1").Value
End With
Next ws
End Sub