Yasser Fathi Albanna قام بنشر مارس 4, 2015 قام بنشر مارس 4, 2015 (معدل) موضح أسفل كود لزر التنقل بين الصفحات يوجد به إسم ورقة 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
علي المصري قام بنشر مارس 4, 2015 قام بنشر مارس 4, 2015 اضغط Alt مع F11 لفتح محرر الفيجوال بيزك اضغط على الورقة التي تريد تجد اسف الجزء الخاص باسماء الأوراق الموجودة في الملف تجد خصائص الورقة يوجد التالي (Name) يمكنك تغييره وهو الاسم المخفي للورقة والتي يمكن استخدامه مع الأوامر مثال لجعل الاختيار هو الورق 1 sheet1 sheet1.select و Name وهو الاسم الذي سوف يظهر في التبويبات tabs الموجودة في الملف ويمكنك ايضا استخدامه في الاوامر مثال Worksheets("sheet1").select
Yasser Fathi Albanna قام بنشر مارس 4, 2015 الكاتب قام بنشر مارس 4, 2015 أخى الفاضل أ / علي المصري شكرا لإهتمامك بسرعة الرد ولكنى حاولت تنفيذ إللى حضرتك كاتبه ولكنى لم أنجح وجاولت تغيير الكود إلى ولم يقبل 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 قام بنشر مارس 4, 2015 الكاتب قام بنشر مارس 4, 2015 الرجاء الإفادة بعد إذن الجميع
ياسر خليل أبو البراء قام بنشر مارس 4, 2015 قام بنشر مارس 4, 2015 الأفضل أخي ياسر كما تعلم إرفاق ملف جرب تشيل المسافة اللي بين كلمة Sheet وبين الرقم (مجرد تخمين!)
أ / محمد صالح قام بنشر مارس 4, 2015 قام بنشر مارس 4, 2015 بعد إذن الجميع الموضوع لا يخص أسماء الشيتات الموضوع يخص أسماء الإجراءات sub والصواب تغيير اسم الإجراء إلى sheet1 بدون مسافات كما أخبر الأستاذ ياسرخليل 1
Yasser Fathi Albanna قام بنشر مارس 4, 2015 الكاتب قام بنشر مارس 4, 2015 الأفضل أخي ياسر كما تعلم إرفاق ملف جرب تشيل المسافة اللي بين كلمة Sheet وبين الرقم (مجرد تخمين!) اخى الحبيب ياسر بالفعل أنا لغيت المسافات ولسه المشكلة المشكلة إن مكان Sheet1 كان مكتوب بالعربى ورقة1 ولكن ما بيقبلش العربى فى محرر الأكواد مرفق شيت للتوضيح Yasser.rar
ياسر خليل أبو البراء قام بنشر مارس 4, 2015 قام بنشر مارس 4, 2015 الأكواد صحيحة المشكلة في ربط الأزرار ..قم بعمل كليك يمين على كل زر من جديد وتأكد أنه مرتبط بالماكرو الصحيح 1
Yasser Fathi Albanna قام بنشر مارس 4, 2015 الكاتب قام بنشر مارس 4, 2015 الأكواد صحيحة المشكلة في ربط الأزرار ..قم بعمل كليك يمين على كل زر من جديد وتأكد أنه مرتبط بالماكرو الصحيح بالفعل أخى وأستاذى ومعلمى القدير كانت المشكلة بربط الأزرار بالماكرو بعد تعديل شكل الكود من ورقة 1 إلى Sheet1 ألف ألف شكر يا أ / ياسر تقبل تحياتى وتقديرى
علي المصري قام بنشر مارس 4, 2015 قام بنشر مارس 4, 2015 نعم كلامك صحيح استاذ ياسر خليل الخطأ في ربط الاكواد
Yasser Fathi Albanna قام بنشر مارس 4, 2015 الكاتب قام بنشر مارس 4, 2015 جرب هذا الملف المرفق Yasser.rar سلمت يداك أخى خزانى ولكن لا تعطنى سمكة ولكن علمنى كيف أصطاد أريد معرفة تغيير إسم الشيت كما موضح بإسم حضرتك بالكود Sub khezzani1() Sheets("Home Screen").Select End Sub
Yasser Fathi Albanna قام بنشر مارس 4, 2015 الكاتب قام بنشر مارس 4, 2015 نعم كلامك صحيح استاذ ياسر خليل الخطأ في ربط الاكواد أشكرك أخى أ / على المصرى على إهتمامك جزاك الله كل الخير
Yasser Fathi Albanna قام بنشر مارس 4, 2015 الكاتب قام بنشر مارس 4, 2015 بعد إذن الجميع الموضوع لا يخص أسماء الشيتات الموضوع يخص أسماء الإجراءات sub والصواب تغيير اسم الإجراء إلى sheet1 بدون مسافات كما أخبر الأستاذ ياسرخليل أ / محمد صالح يشرفنى مرورك على موضوع لى جزاك الله كل الخير تقبل وافر إحترامى وتقديرى
أبوعيد قام بنشر مارس 4, 2015 قام بنشر مارس 4, 2015 السلام عليكم إخواني أسمحوا لي بالمشاركة ولكن بطرح مشكلة في نفس هذا الموضوع مشكلتي هي أنني كنت أستطيع الكتابة في محرر الأكواد باللغة العربية وبعد ما عملت فورمات للجهاز أصبحت الأكواد التي فيها رسائل باللغة العربية تظهر على شكل علامة استفهام هكذا ؟؟؟؟؟؟ , بعض الإجراءات اسمها بالعربي فبعد الفرمتة أقوم بالضغط على زر الماكرو فتظهر رسالة أن الماكرو غير موجود سؤالي : كيف أستطيع العودة بالكتابة العربية داخل المحرر ؟
ياسر خليل أبو البراء قام بنشر مارس 4, 2015 قام بنشر مارس 4, 2015 أخي الحبيب أبو عيد أعتقد أنها مشكلة في ضبط الإعدادات الإقليمية للجهاز من داخل الويندوز من لوحة التحكم انقر Region and Language وآخر تبويب في النافذة Administrative ثم Change System Locale ثم اختر اللغة العربية Arabic ثم قم بعمل ريستارت للجهاز .. وشوف هتضبط معاك أم لا
أبوعيد قام بنشر مارس 4, 2015 قام بنشر مارس 4, 2015 شكرا على سرعة ردك أستاذ ياسر ظهرت هذه المشكلة على جهازالحاسوب في المدرسة سيتم العمل بمقترحك وإعلامك بالنتيجة ألف ألف شكر لك مرة أخرى
Yasser Fathi Albanna قام بنشر مارس 4, 2015 الكاتب قام بنشر مارس 4, 2015 جرب هذا الملف المرفق Yasser.rar سلمت يداك أخى خزانى ولكن لا تعطنى سمكة ولكن علمنى كيف أصطاد أريد معرفة تغيير إسم الشيت كما موضح بإسم حضرتك بالكود Sub khezzani1() Sheets("Home Screen").Select End Sub خلاص يا أ / خزانى عرفت الطريقة
أبوعيد قام بنشر مارس 25, 2015 قام بنشر مارس 25, 2015 أخي ياسر خليل شكرا لك على هذه الفكرة التي حلت لي المشكلة http://www.officena.net/ib/index.php?showtopic=59476&p=380942 تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.