تناسب الكود مع تغيير اسم الشيت

[ابوسلماان]

السادة الكرام ،،،  السلام عليكم

 

عند وضع كود لترحيل البيانات أو لاي غرض آخر ،،  وهذا الكود يحتوي على اسم ورقة العمل ( الشيت ) الذي سيتم التاثير فيه.

سؤالي: لو تم تغيير اسم الورقة ( الشيت ) هل من معالجة للكود بحيث يتغير آليا؟ 

 

وشكراً ،،

[أبو حنــــين]

هناك طريقتان للاستعمال الورقة

استعمال الخاصية  Name يؤثر على اعادة تسمية الورقة

اما استعمال الخاصية   CodeName  فلا يؤثر على اعادة التسمية

و كمثال بسيط :

افتح ملف اكسيل و ضع زر و اكتب فيه الكود التالي و لاحظ الفرق عندما تغير اسم الورقة

Sub ShowNane()

MsgBox ActiveSheet.Name
MsgBox ActiveSheet.CodeName

End Sub

 

 

[عبدالسلام ابوالعوافي]

بدلا من اسبتدال اسم الشيت 

Sheets("Sheet1")
Sheets("Data")

يمكنك استعمال رقم الشيت 

Sheets(1)

وغير اسم الشيت كما تشاء

[ابوسلماان]

شكرا جزيلا لكما ،،

 

 

الفكرة الاخيرة تفي بالغرض ،، بارك الله فيكم جميعا ..

[ياسر خليل أبو البراء]

لمزيد حول الموضوع قم بالإطلاع على الرابط التالي

من هنا

[amer dabaan]

من فضلكم لدي استفسار يخص ماسبق

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

ولكن تظل مشكة نقل الشيت إلى غير مكانه سوف يختلف ترتيب الصفحات فيوقف الكود البرمجي

ما الحل ؟؟

[أ / محمد صالح]

الحل من وجهة نظري هو حماية تركيب المصنف

فلا يمكن للمستخدم تغيير اسماء الشيتات ولا ترتيبها

Review ---> protect workbook ---> password ---> structure ---> OK

وبالنسبة للتعبير عن الشيت فهناك 3 طرق

أولها ترتيب الشيت 

sheets(1)

وللشيت اسمان

اسم ظاهر في التبويبات وهذا في الكود الذي يعبر عنه

sheet1.name

والاسم البرمجي وهو يظهر في مستكشف المشروع في شاشة vbe ويكون رمزه

sheets("data").codename

وهذا الاسم البرمجي codename هو الذي لا يتأثر بتغير ترتيب الشيت ولا تسميته

ففي الصورة السابقة

Name = Data

Codename = Sheet1

index = 1

بالتوفيق 

[amer dabaan]

تمام

شكراََ جزيلاََ لرحابة صدرك