اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم 

اهنئكم على ترقية المنتدى

برجاء تفسير تغير المسميات  من دهاز لاخر وتعطل الكود من جهاز لاخر

Set WS = Sheets("ÝÇÊæÑÉ"): Set SH = Sheets("ÇÓÊÏÚÇÁ ÝÇÊæÑÉ")
BillNo = SH.Range("A2").Value
If IsEmpty(SH.Range("A2")) Then MsgBox "ÃÏÎá ÑÞã ÇáÝÇÊæÑÉ ÇáãØáæÈ ÇÓÊÏÚÇÆåÇ": Exit Sub
Applic

قام بنشر

وعليكم السلام ورحمة الله

أخي الكريم، من العادة أن الكود لا يتعطل من جهاز لآخر إلا إن وُجدت بعض المشاكل في الأوفيس الذي نُقل إليه الكود (عدم استقرار بعض النسخ مثل نسخة 2007، خاصية أمان الماكرو...)... بالنسبة لتغيّر المسميات من جهاز لآخر فهذا يرجع -ربما- للغة البرمجة في الجهاز، ويمكن تبديل اللغة بعد فتح VBA في خاصية Tools ثم Options وتختار التنسيق Format الذي يناسبك (وخاصة فيما يخص اللغة العربية) وأحسنها هو تنسيق (Courier New (Occidental وهو المستعمل عموما... والله أعلم

 

بن علية

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information