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

كيف احعل البرنامج ينتهي برقم صف معين في هذا الشيت


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

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

لدي هذا البرنامج لرصد درجات طلاب يحدد عدد الطلاب ويظهر خانات الرصد بناء على العدد والعدد الاقصى للطلاب خمسين طالب فقط ولكن ما اريده عندما يكون العدد اقل من الخمسين اريد الاتي :

1 / يرتفع الصف الذي بعد الرقم 50 يعني الصف رقم63 الى تحت الرقم المحدد للطلاب يعني اذا كان العدد 30 يكون الصف الذي فيه نص يعتمد مغلم المادة الى تحت الصف المحدد فيه عدد الطلاب يعني 30 .

سارفق ملف للعمل عليه في منتدى تحميل الملفات المؤقتة ..

http://www.officena.net/ib/index.php?showtopic=5746

تحياتي والسلام

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

السلام عليكم ...

يمكنك حل مشكلتك عن طريق التنسيق الشرطي ، وفي حالة احتواء الأعمدة على صيغ يمكنك الاستعانة بالدالة INDIRECT لتنظيم المجالات.

لم أعدل المرفق لأن السؤال لم يكن واضح ، وفي حالة رغبتك بالتعديل فرجاء بتوضيح السؤال وإرفاق ملف جديد يحتوي على الصيغ.

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

استاذي العزيز محمد :

السلام عليكم

اشكرك على سرعة تجاوبك معنا ونعتذر على ازعاجنا الدائم لكم وهذا لعلمنا انكم ترحبون بالمزعجين امثالنا والرغبين في الاستفادة من علمكم :d

استاذ ما اقصده ان البرنامج مصمم كما تلاحظ ليتحكم المعلم بعدد الطلاب في صفه ويقوم هو تلقائيا باظهار تخطيط الرصد بعدد الطلاب فلو كان العدد 20 يظهر عشرين صف لعشين طالب واذا كان 45 يظهر خمسة واربعين وهكذا الى الان لا مشكلة في عمل البرنامج والحمد لله ..

المشكلة تكمن انه في الصف 63 يوجد عبارة معلم المادة والمشرف التربوي ومدير المدرسة وهذه تكون مناسبة لو كان العدد 50 طالب في الصف لكن لو كان العدد اقل من 50 طالب تجد ان المسافة بين هذا الصف واقصد الصف 63 تزيد وانا اريدها تحت صف اخر طالب انتهى به التخطيط يعني لو كان العدد مثلا 40 اريدها تتحرك تلقائيا لتكون تحت رقم هذا الطالب ..

اتمنى ان يكون مقصدي واضح ..

واعتذر على ازعاجي الدائم لكم

تحياتي والسلام .

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

  • 2 weeks later...

استاذ محمد :

هل للورقة التي فيها الرسم البياني اي فائدة في البرمجة

وهل من الممكن ان نقوم بتغيير موقع الرقم الموجود في الخلية H6 الى موقع اخر خارج نطاق الطباعة ..

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

السلام عليكم ...

بالنسبة للورقة التي فيها الرسم البياني فلا أئر لها على الكود المكتوب ، و الرسم البياني أتى مع الملف المرسل من قبل السائل.

بالنسبة لتغيير موقع الرقم الموجود في الخلية H6 يمكنك ذلك بشرط تعيديل الكود ليشير إلى الخلية الجديدة (عدل القيمة $H$6 إلى دليل الخلية الجديدة).

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

  • 5 months later...

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

بسم الله الرحمن الرحيم

ماشاء الله ياأستاذ محمد ربنا يبارك لك :fff:

لو سمحت حاولت اعدل الكود للعمل على 300 صف ولكنى فشلت ولم اعرف السبب

وهذا هو الكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$H$3" Then

Sheets("2").Range("A10:ax309").EntireRow.Hidden = False

If Target.Value = 300 Then Exit Sub

Sheets("2").Range(Cells(Target.Value + 10, 1), Cells(309, 300)).EntireRow.Hidden = True

End If

End Sub

شكرا لكم وارجو الافادة

تم تعديل بواسطه tag4m
رابط هذا التعليق
شارك

اخى الفاضل الفدعاني

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

فالكود يعطى رسالة بوجود خطأ ولا اعرف كيف اعالجة

شكرا للجميع وشكر خاص للاستاذ ابن الظاهرة الذى انشأ هذا الموضوع

وللعلامةالكبيرالاستاذ محمد حجازى :fff:

وفى انتظار الحل :fff:

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

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

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

Important Information