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

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

قام بنشر

أستاذى الفاضل / محمد يوسف

جزاك الله كل خير على هذا الدعاء الطيب المبارك

وجعل الله لك بمثله

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

قام بنشر

أخى فى الله

استاذى القدير // رجب جاويش

ما شاء الله عليكم

أسأل الله عز وجل لكم أن يديم عليكم نعمه ويحفظكم من شرور خلقه

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

قام بنشر

أستاذى الفاضل / محمد يوسف

تم تعديل كود الميكانيكا

 

أستاذى الفاضل

كان مع اضافة السطرين

لابد من وضع نقطة قبل كلمة Cells  فى السطر التالى لتعنى الخلايا الخاصة بصفحة الشيت ( وهذه النقطة توضع عند استخدام With بدلا من كتابة اسم الشيت )

If .Cells(R, 91) = "عربى" Or .Cells(R, 91) = "عربي لربع الدرجة" Then

وفى السطر الثانى توضع نقطة أيضا قبل كلمة Range لنفس السبب

.Range("A" & R).Range("A1,O1,R1:S1").Copy

الشطف.rar

قام بنشر

استاذى القدير / رجب باشا

شرح رائع

أفادكم الله خالص شكرى وتقديرى لشخصكم الكريم

وعلى فكرة الشطف دى لك الفضل فيها اسنتجتها من شيت المراجعة لكنترول الصف الثانى الثانوى الخاص بشخصكم الكريم

ومرة أخرى ألف مليون شكر على ما تبذلونه من جهد لوجه الله فى هذا المنتدى

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

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

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

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

سجل حساب جديد

تسجيل دخول

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

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

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

Important Information