اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

قوائم فصول


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

استاذ احمد

منذ متى و نحن نخفي الكودات ( عن بعضنا) بكلمة سر

هل رأيتني مرة واحدة قمت بوضع كلمة سر على اي كود

ربما يكون الكود بحاجة الى اضافات تمكنه من التسريع و انقاص حجم الملف

  • Like 1
رابط هذا التعليق
شارك

أشكرك أستاذي سليم على انتباهي أن محرر الأكواد بكلمة سر

فأنا لم أتعمد ولم أنتبه لهذا

والملف تم إلغاء كلمة السر من محرر الأكواد

قوائم.xls

رابط هذا التعليق
شارك

استاذ احمد

لم ادرس الاكواد جيداً بعد

لكني لاحظت شيئاً 

ان المستخدم عندما ينفذ كود معين يجب ان يكون في الشيت التي يتبع لها هذا  الكود

ولا مجال هنا للخطأ  لان عملية Undo غير مجدية في الاكواد (ربما يقوم الكود بمسح سجلات غير مرغوب بمسحها) 

لذا اقترح ان تدرج العبارة التالية في بداية كل كود

If ActiveSheet.Name <> "ْXXXXXX" Then Exit Sub

مكان XXXXXX تضع اسم الشيت حبث سينفذ الماكرو

 التقليل قدر المستطاع من استعمال Select   التي ترهق البرنامج.

مثلا بدل استعمال

Sheets("Sheet1").Select
Range("a1:a500").Select
Range("a1:a500").Copy

يكفي

Sheets("Sheet1").Range("a1:a500").Copy

 

 

  • Like 2
رابط هذا التعليق
شارك

اريد تعديل على هذا الملف بحيث تصبح القائمة واحدة 60 طالب بنون وبنات معا لان فى فصول بنات فقط وفى فصول ولاد فقط او مشتركين معا

بمعنى ان يبدا التسلسل من 1 الى 60 مرة واحدة مش عاوز دة فى صف ودة فى صف مع وضع مسافة فى الاسفل القائمة لكتابة شئون الطلبة والمدير

قوائم.xls

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information