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

المساعدة فى استخراج قوائم الفصول من السجل


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

استاذ ياسر

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

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

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

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

895352505.jpg

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

الأخ الحسام

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

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

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

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

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

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

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

أيها الحسام

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

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

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

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

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

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

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

الاستاذ ياسر

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

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

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

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

ثالثا

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

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

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

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

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

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

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

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

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

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

  • 6 years later...

 اخى@ياسر خليل أبو البراء جزاك الله خيرا على البرنامج الجميل والمفيد جدا 

استعملة من 3 سنوات

هل من الممكن ان ازود عدد الفصول فى كل مرحلة يعنى انا ممكن احتاج 8 او 9 لكل مرحلة ؟

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

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

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

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

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

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

المشكلة يا استاذ ياسر ان البرنامج محدد ل 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