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

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

قام بنشر

كل عام وحضراتكم بخير

أعجبني هذا الكود وإضافة الأستاذ رجب عليه الرائعة

ولكن ...

أريد أن أعرف

1- إذا تم تغير صف البداية وليكن الصف العشرون مثلاً أين التغيير في الكود ؟

2- إذا أردت إضافة صفحة أخرى وتعمل مع الكود ولتكن شيت 2 .. فما هي الإضافة التي أضيفها ؟

وشكراً

قام بنشر

السلام عليكم

هل تقصد هكذا

جزاك الله كل خير نعم اقصد ماقدمته

ولكن يبقى سؤال

غند اضافة اوراق اخرى ونريد ان تعمل مع الكود .. ماهي الاضافه التي نضيفها في الكود ؟

قام بنشر

أخى الفاضل /

alyfahem

أول تغير يكون فى السطر التالى


Const A As Integer = 15

حيث يستبدل الرقم 15 بالرقم 22
التغيير الثانى يكون فى السطر التالى وهو الذى يقصده أيضا أخى الفاضل ابن بنها

For i = 2 To 3

حيث يستبدل الرقم 3 بالرقم 4

قام بنشر

اخي الكريم الاستاذ رجب

جزاك الله خيرا وكل عام وانت طيب

غند اضافة اوراق اخرى ونريد ان تعمل مع الكود .. ماهي الاضافه التي نضيفها في الكود ؟ اقتباس

معذره في صياغة سؤالي لاني كنت اقصد

الملف به كثير من الاوراق وكنت اريد عمل الكود في اوراق محددة من الملف .. ادعو الله ان اكون وصلت الفكره

قام بنشر

اشكرك اخي الاستاذ رجب لمتابعتك معي ومع الجميع بارك الله لك

هذا الرابط به الملف الجميل المطلوب عمل الكود فيه

في صفحة بانات اساسيه فيى الخليه اف 5 سنعمل معادله لايجاد عدد الطلاب

ومن هذا العدد ستكون عدد صفوف كل من الصفحات التاليه ... رصد درجات - الشيت - مراجعه - كشوف تبييض الناجحين - وكشوف تبييض الراسبين -

كنترول 2012 رجب جاويش.

قام بنشر

اخي الاستاذ رجب

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

For i = 3To 8

لاادري لماذا لاتعمل في الصفحات التي زدتها


Sheets(i).Range(Cells(A, 1), Cells(Rows.Count, 5)).EntireRow.Delete

مامعنى الرقم 5 هنا

قام بنشر

أخى الفاضل

هذه العملية تعتمد على ترتيب الصفحات

أى لابد أن تكون الصفحات التى يتم تنفيذ الكود فيها بنفس أرقام حلقة التكرار For i = 3To 8

والرقم 5 يعنى العمود الخامس

قام بنشر

أخى الفاضل

هذه العملية تعتمد على ترتيب الصفحات

أى لابد أن تكون الصفحات التى يتم تنفيذ الكود فيها بنفس أرقام حلقة التكرار For i = 3To 8

والرقم 5 يعنى العمود الخامس

اخي الاستاذ رجب

بارك الله لك

لو سمحت غير في الكود الى الرقم 8 ستجد ان الكود ينفذ المطلوب ماعدا الصفحات الزياده تاتي بصف واحد

== بالنسبه للرقم 5 وهو يعني العمود الخامس هل تقصد ان المسح يتم حتى العمود الخامس فقط

قام بنشر

أخى الفاضل

هذا الخطأ يحدث لأن الخلية A14 فى الصفحة السابعة والثامنة فارغة

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

أما الرقم 5 وهو يعنى العمود الخامس فعلا لكن يتم حذف الصف بكاملة

ويمكنك تغيرة الى رقم آخر دون مشاكل ( المهم وجود مدى معين فقط )

قام بنشر

أما الرقم 5 وهو يعنى العمود الخامس فعلا لكن يتم حذف الصف بكاملة

ويمكنك تغيرة الى رقم آخر دون مشاكل ( المهم وجود مدى معين فقط ) ... اقتباس

معذره اخي الفاضل

السطر الاول اريد مزيد من التوضيح له

السطر التاني هل معناه ان المدى هنا الى العمود الخامس فقط

قام بنشر

فكرة حذف الصف كله تعتمد على الجزء الأخير من هذا السطر


Sheets(i).Range(Cells(A, 1), Cells(Rows.Count, 5)).EntireRow.Delete

وهو الجزء

EntireRow.Delete

وهو يعنى حذف كامل الصف الذى يوجد به المدى المحدد فى الجزء الأول من السطر

  • 2 weeks later...
قام بنشر

أخى الفاضل

لم تكن هناك مشكلة

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

أما بالنسبة لكنترول الاعدادى فقد استغرق منى شهور أثناء عمله ومجهود كثير جدا

وخاصة أننى كنت فى بداية عهدى بالأكواد

فاعذرنى أخى لأنه يحتاج الى وقت وتفرغ ذهنى غير موجود حاليا

لكن ممكن خطوة خطوة مع بعض وأى تعديل أنا تحت أمرك فيه

قام بنشر

لكن ممكن خطوة خطوة مع بعض وأى تعديل أنا تحت أمرك فيه

الأمر لله بارك الله فيك

الملف المرفق في صفحة الرصد اريد ربط الزراير بالاكواد مع ملحوظة ازاله الزراير التي عندما اضغط عليها بيمين الماوس لاتعمل

وربط صفحة الرصد بالصفحة الاصليه الشيت

بدايه.rar

قام بنشر

لو سمحت يا استاذ رجب اربط ولو زر واحد وانا اكمل الباقي على منواله

بشرط ان يكون الزر من النوع الذي اذا ضعط عليه بيمين تاماوس تظهر قائمة

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