اللغة العربية داخل محرر الأكواد

[Yasser Fathi Albanna]

موضح أسفل كود لزر التنقل بين الصفحات

يوجد به إسم ورقة 1 وورقة 2 وهكذا

هل يمكن كتابة بدلا من ورقة 1 بالعربى إلى Sheet 1

لأن محرر الأكواد لا تظهر به اللغة العربية ولا يعمل الكود

Sub ورقة1()
    Sheets("Home Screen").Select
 End Sub
Sub ورقة2()
    Sheets("Weekly Plan").Select
 End Sub
Sub ورقة3()
    Sheets("Visit Pharmacies").Select
 End Sub
Sub ورقة4()
    Sheets("Sales Branches").Select
 End Sub
Sub ورقة5()
    Sheets("Branches Stock").Select
 End Sub
Sub ورقة6()
    Sheets("Competition Report").Select
 End Sub

تم تعديل مارس 4, 2015 بواسطه Eng : Yasser Fathi Albanna

[علي المصري]

اضغط Alt  مع F11 لفتح محرر الفيجوال بيزك

اضغط على الورقة التي تريد

تجد اسف الجزء الخاص باسماء الأوراق الموجودة في الملف

تجد  خصائص الورقة

يوجد التالي

(Name)   يمكنك تغييره وهو الاسم المخفي للورقة والتي يمكن استخدامه مع الأوامر

مثال لجعل الاختيار هو الورق 1    sheet1

sheet1.select

و

Name وهو الاسم الذي سوف يظهر في التبويبات tabs الموجودة في الملف

ويمكنك ايضا استخدامه في الاوامر

مثال

Worksheets("sheet1").select

[Yasser Fathi Albanna]

أخى الفاضل أ / علي المصري

شكرا لإهتمامك بسرعة الرد

ولكنى حاولت تنفيذ إللى حضرتك كاتبه ولكنى لم أنجح

وجاولت تغيير الكود إلى ولم يقبل

Sub Sheet 1()
    Sheets("Home Screen").Select
 End Sub
Sub Sheet 2()
    Sheets("Weekly Plan").Select
 End Sub
Sub Sheet 3()
    Sheets("Visit Pharmacies").Select
 End Sub
Sub Sheet 4()
    Sheets("Sales Branches").Select
 End Sub
Sub Sheet 5()
    Sheets("Branches Stock").Select
 End Sub
Sub Sheet 6()
    Sheets("Competition Report").Select
 End Sub

أين الخطأ لأن اللغة العربية أى ورقة 1 تكتب داخل محرر الأكواد بلغة غريبة ويفشل عمل الكود

[Yasser Fathi Albanna]

الرجاء الإفادة بعد إذن الجميع

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

الأفضل أخي ياسر كما تعلم إرفاق ملف

جرب تشيل المسافة اللي بين كلمة Sheet وبين الرقم (مجرد تخمين!)

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

بعد إذن الجميع

الموضوع لا يخص أسماء الشيتات

الموضوع يخص أسماء الإجراءات sub

والصواب تغيير اسم الإجراء إلى sheet1 بدون مسافات كما أخبر الأستاذ ياسرخليل

[Yasser Fathi Albanna]

الأفضل أخي ياسر كما تعلم إرفاق ملف

جرب تشيل المسافة اللي بين كلمة Sheet وبين الرقم (مجرد تخمين!)

اخى الحبيب ياسر

بالفعل أنا لغيت المسافات ولسه المشكلة

المشكلة إن مكان Sheet1 كان مكتوب بالعربى ورقة1

ولكن ما بيقبلش العربى فى محرر الأكواد

مرفق شيت للتوضيح

Yasser.rar

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

الأكواد صحيحة

المشكلة في ربط الأزرار ..قم بعمل كليك يمين على كل زر من جديد وتأكد أنه مرتبط بالماكرو الصحيح

[خزاني]

جرب هذا الملف المرفق

Yasser.rar

[Yasser Fathi Albanna]

الأكواد صحيحة

المشكلة في ربط الأزرار ..قم بعمل كليك يمين على كل زر من جديد وتأكد أنه مرتبط بالماكرو الصحيح

بالفعل أخى وأستاذى ومعلمى القدير

كانت المشكلة بربط الأزرار بالماكرو بعد تعديل شكل الكود من ورقة 1 إلى Sheet1

ألف ألف شكر يا أ / ياسر

تقبل تحياتى وتقديرى

[علي المصري]

نعم كلامك صحيح استاذ ياسر خليل

الخطأ في ربط الاكواد

[Yasser Fathi Albanna]

 

جرب هذا الملف المرفق

Yasser.rar

 

سلمت يداك أخى خزانى

ولكن لا تعطنى سمكة ولكن علمنى كيف أصطاد

أريد معرفة تغيير إسم الشيت كما موضح بإسم حضرتك بالكود

Sub khezzani1()
    Sheets("Home Screen").Select
 End Sub

[Yasser Fathi Albanna]

نعم كلامك صحيح استاذ ياسر خليل

الخطأ في ربط الاكواد

أشكرك أخى أ / على المصرى

على إهتمامك

جزاك الله كل الخير

[Yasser Fathi Albanna]

بعد إذن الجميع

الموضوع لا يخص أسماء الشيتات

الموضوع يخص أسماء الإجراءات sub

والصواب تغيير اسم الإجراء إلى sheet1 بدون مسافات كما أخبر الأستاذ ياسرخليل

أ / محمد صالح

يشرفنى مرورك على موضوع لى

جزاك الله كل الخير

تقبل وافر إحترامى وتقديرى

[أبوعيد]

السلام عليكم

إخواني أسمحوا لي بالمشاركة ولكن بطرح مشكلة في نفس هذا الموضوع

مشكلتي هي أنني كنت أستطيع الكتابة في محرر الأكواد باللغة العربية وبعد ما عملت فورمات للجهاز أصبحت الأكواد التي فيها رسائل باللغة العربية تظهر على شكل علامة استفهام هكذا ؟؟؟؟؟؟ , بعض الإجراءات اسمها بالعربي فبعد الفرمتة أقوم بالضغط على زر الماكرو فتظهر رسالة أن الماكرو غير موجود

سؤالي : كيف أستطيع العودة بالكتابة العربية داخل المحرر ؟

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

أخي الحبيب أبو عيد أعتقد أنها مشكلة في ضبط الإعدادات الإقليمية للجهاز من داخل الويندوز

من لوحة التحكم انقر Region and Language وآخر تبويب في النافذة Administrative ثم Change System Locale  ثم اختر اللغة العربية Arabic ثم قم بعمل ريستارت للجهاز .. وشوف هتضبط معاك أم لا

[أبوعيد]

شكرا على سرعة ردك أستاذ ياسر

ظهرت هذه المشكلة على جهازالحاسوب في المدرسة

سيتم العمل بمقترحك وإعلامك بالنتيجة

ألف ألف شكر لك مرة أخرى

[Yasser Fathi Albanna]

 

 

جرب هذا الملف المرفق

Yasser.rar

 

سلمت يداك أخى خزانى

ولكن لا تعطنى سمكة ولكن علمنى كيف أصطاد

أريد معرفة تغيير إسم الشيت كما موضح بإسم حضرتك بالكود

Sub khezzani1()
    Sheets("Home Screen").Select
 End Sub

خلاص يا أ / خزانى عرفت الطريقة

[أبوعيد]

أخي ياسر خليل

شكرا لك على هذه الفكرة التي حلت لي المشكلة

http://www.officena.net/ib/index.php?showtopic=59476&p=380942

تحياتي