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

[ابن الظاهرة]

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

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

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

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

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

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

تم تعديل فبراير 14, 2005 بواسطه ابن الظاهرة

[محمد حجازي]

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

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

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

[ابن الظاهرة]

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

السلام عليكم

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

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

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

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

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

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

[محمد حجازي]

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

جرب التعديل التالي:

________.zip

[ابن الظاهرة]

(y)

الله لا يحرمنا منك استاذي .

اشكرك جزيل الشكر واسال الله تعالى ان يجزيك خير الجزاء عنا وعن كل من يستفيد منكم في هذا المنتدى ..

تحياتي لك والسلام (y)

[فارس الأمارات]

استاذ محمد :

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

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

[محمد حجازي]

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

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

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

[tag4m]

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

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

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

لو سمحت حاولت اعدل الكود للعمل على 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

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

تم تعديل أغسطس 11, 2005 بواسطه tag4m

[الفدعاني]

البيانات

التحقق من صحة البيانات

وهناك عدل الرقم اللي تبيه

[tag4m]

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

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

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

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

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

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