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

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

قام بنشر

استاذ ياسر

هل من الممكن ان توضح لى النقاط الهامة فى البرنامج لانو مش راضى يزبط معى

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

عمل ممتاز فعلا ربنا يجعلة فى ميزان حسناتك يارب

انتظر ان شاء الله التوضيح

895352505.jpg

قام بنشر

الأخ الحسام

أعتذر إليك على التأخير في الرد

الخطأ الذي ظهر لديك في ورقة الإحصائيات هو الدالة Countifs وهي من الدوال السمتحدثة في 2007

أكيد بتستخدم 2003 عشان كدا ظهر الخطأ عندك

عموماً لو أردت ممكن أقوم بالتعديل وأستخدم الدالةSumproduct كبديل لها

بس اديني مهلة يوم أو يومين لإني مشغول شوية

سأقوم بالعتديل المناسب وأرفق لك الملف إن شاء الله

قام بنشر

أيها الحسام

إليك الملف بعد التعديل

قمت بالتعديل عليه بما يتناسب مع السنة الدراسية الجديدة

أرجو الاطلاع والإفادة بمدى الاستفادة

وأي طلب أنا موجود إن شاء الله

حمل الملف من هنا

أخوك أبو البراء

قام بنشر (معدل)

الاستاذ ياسر

جزاك الله عنى وعن كل من حمل الملف كل خير

عندى تعليق بسيط

ياريت لو تجعل سنة حساب تاريخ الميلاد فى خلية معينة بحيث نقدر نستخدم البرنامج فى اى سنة

وياريت لو عملت موضوع فى المنتدى عن البرنامج لانة فية كتير فى هذة الايام محتاج لمثل هذا الموضوع

ثالثا

الف شكر استاذ ياسر وكل عام وانت بخير

تم تعديل بواسطه الحســـام
قام بنشر

ياريت لو تجعل سنة حساب تاريخ الميلاد فى خلية معينة بحيث نقدر نستخدم البرنامج فى اى سنة

أخي الحبيب هذا حادث بالفعل (بس إن شاء الله حادث مش حادثة )

في السجل يوجد ورقة عمل باسم Conditions مخفية ، يمكن إظهارها عن طريق محرر الأكواد وستجد أن هناك خلية يمكن من خلالها تغيير التاريخ كما طلبت

لا تنسانا من صالح دعائك

وأي اقتراحات أنا أرحب بها بحيث يمكننا تطوير هذا البرنامج للاستفادة منها الاستفادة القصوى

أي إضافة تقترحها نتعاون فيها نحن أعضاء المنتدى الموقر بحيث يظهر العمل بأفضل صورة إن شاء الله

أخوكم أبو البراء

  • 6 years later...
قام بنشر

بارك الله فيك أخي الحسام

صراحة البرنامج منذ أمد بعيد .. ولا أعرف المشكلة التي لديك بالضبط

من المفترض أنه يعمل بشكل تلقائي مع أي زيادة للفصول في كل مرحلة ...

حاول تحدد المشكلة بشيء من التفصيل لمحاولة تقديم المساعدة إن شاء الله

قام بنشر

المشكلة يا استاذ ياسر ان البرنامج محدد ل 5 فصول فقط لكل مرحلة ومينفعش تزود اكترمن 5 فصول 

يعنى مفيش 1 - 8 مثلا او 3 - 9

المطلوب يكون العدد اكتر من 5 فصول فى القوائم والاعداد (count) 

واشكرك على سرعة الاستجابة

قام بنشر

إذاً المشكلة في ورقة العمل الخاصة بالإحصاء

إذا كان الأمر كذلك حاول تدرج صفوف بحيث يتلائم مع العدد المطلوب ثم قم بنسخ المعادلات الموجودة ..

أو حدد ورقة العمل المطلوب العمل عليها ، والمطلوب بالضبط (حاول توضح بالصور لأني نسيت البرنامج .. زهايمر) وإن شاء الله أنا أو غيري نساعدك في إتمام المطلوب

قام بنشر

الف سلامة عليك يا استاذ ياسر من الزهايمر دا كل الوقت اللى عدى حوالى 5 سنين :smile:

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

الكود دا بعد ما عدلت فيه :smile:

Private Sub ComboBox1_DropButtonClick()
If ComboBox1.Value = 1 Then
Range("ListsGrade").Value = 1
ElseIf ComboBox1.Value = 2 Then
Range("ListsGrade").Value = 2
ElseIf ComboBox1.Value = 3 Then
Range("ListsGrade").Value = 3
ElseIf ComboBox1.Value = 4 Then
Range("ListsGrade").Value = 4
ElseIf ComboBox1.Value = 5 Then
Range("ListsGrade").Value = 5
ElseIf ComboBox1.Value = 6 Then
Range("ListsGrade").Value = 6
ElseIf ComboBox1.Value = "KG1" Then
Range("ListsGrade").Value = "KG1"
ElseIf ComboBox1.Value = "KG2" Then
Range("ListsGrade").Value = "KG2"
End If
End Sub
Private Sub CommandButton1_Click()
Call Proc_Lists
End Sub
Private Sub txtclass_Change()
On Error Resume Next
If txtclass.Text = 1 Then
Range("ListsClass").Value = 1
ElseIf txtclass.Text = 2 Then
Range("ListsClass").Value = 2
ElseIf txtclass.Text = 3 Then
Range("ListsClass").Value = 3
ElseIf txtclass.Text = 4 Then
Range("ListsClass").Value = 4
ElseIf txtclass.Text = 5 Then
Range("ListsClass").Value = 5
ElseIf txtclass.Text = 6 Then
Range("ListsClass").Value = 6
ElseIf txtclass.Text = 7 Then
Range("ListsClass").Value = 7
ElseIf txtclass.Text = 8 Then
Range("ListsClass").Value = 8
ElseIf txtclass.Text = 9 Then
Range("ListsClass").Value = 9
ElseIf txtclass.Text = 10 Then
Range("ListsClass").Value = 10
ElseIf txtclass.Text = 11 Then
Range("ListsClass").Value = 11
ElseIf txtclass.Text = 12 Then
Range("ListsClass").Value = 12
ElseIf txtclass.Text = 13 Then
Range("ListsClass").Value = 13
Else
MsgBox prompt:="No more!!", Title:=""
txtclass.Text = ""
End If
End Sub
Private Sub UserForm_Initialize()
ComboBox1.SetFocus
ComboBox1.AddItem "1"
ComboBox1.AddItem "2"
ComboBox1.AddItem "3"
ComboBox1.AddItem "4"
ComboBox1.AddItem "5"
ComboBox1.AddItem "6"
ComboBox1.AddItem "KG1"
ComboBox1.AddItem "KG2"
End Sub

 

قام بنشر

أخي الكريم الحسام

يوجد ورقة عمل مخفية باسم Conditions ، قم بإظهارها من خلال محرر الأكواد Alt + F11 وروح للخصائص الخاصة بهذا الشيت ..أي حدد الشيت من نافذة المشروع ، ومن نافذة الخصائص قم بإظهار ورقة العمل من الخاصية Visible اجعلها xlSheetVisiible

 

تاني خطوة عدل نطاق الفصول من النطاق F14 لتزيد الفصول كما تريد .. وليكن 13 فصل ..إذاً ستقوم بكتابة الفصول من 1 إلى 13 أي من النطاق F14 إلى F26

الآن اذهب للتبويب Formulas ثم Name Manager ثم اختر النطاق المسمى ClassList ثم انقر Edit لتعديل مدى النطاق ، ستعدل رقم 18 إلى 26 ليشمل جميع الفصول

....

  • Like 1
قام بنشر

المشكلة تحدث عندما تضغط على زر "عرض القائمة" أم ماذا يحدث معك بالضبط لأحاول المساعدة .. ؟؟

وصدقني أنا ناسي البرنامج وتفاصيله تماماً .. لقد مر دهر طويل

 

قام بنشر

الحل الوحيد اخى ياسر دا الملف الخام الاول

معلش هاتعب حضرتك

هل ممكن تزود لى اعداد الفصول فى القوائم والاحصاء بامكانية 10 فصول لكل مرحلة مثلا

لانى بقى لى اكترمن اسبوع بحاول ومعرفتش والله

Record.rar

قام بنشر

أخي الكريم

لكي أعدل الملف أحتاج لمعرفة المطلوب بدقة أكثر وتفاصيل أكثر ..تحدث بلغة الإكسيل أي قل في ورقة كذا والعمود كذا المطلوب أن تظهر النتائج بالشكل كذا ...

إليك الملف بعد ضبط ورقة الإحصاء فقط إلى حين معرفة المطلوب الثاني ..مع العلم أنني لا أعمل إلا على طلب واحد فقط في كل مرة (حيث أنني أتشتت من كثرة الطلبات)

إليك الملف المرفق

Baraa Record V1.rar

  • Like 1
قام بنشر

انا اسف والله بس حضرتك صاحب الملف واكثر واحد معرفة به

اخر طلب والملف يكون شامل ورقة (Lists) قوائم الفصول لا تقبل اكثر من الفصل الخامس

المطلوب توسيع عدد الفصول بها علشان تقبل اكثر من 5 فصول للمرحلة يعنى تقبل 1 - 6 مثلا

ودى صورة للتوضيح اكثر

 

1.JPG

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