محمد قاسم 12

استاذى الفاضل ومعلمى الجليل الاستاذ سليم

بارك الله فيك يا استاذى الكبير

انظر الى الصورة المرفقه

ارغب بدلا من الرقم المسلسل يكون رقم العصو 

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

3 ساعات مضت, سليم حاصبيا said:

جرب هذا الملف

 

Salim_up.xlsm

بارك الله فييك استاذى الفاضل حل اكثر من رائع

تسلم الايادى يا رب

بس ممكن طلب بسيط يكون الجدااول قوق بعصها لسهوه الطباعه وعمل معادله لحساب المساحات

وسهوله عمل صف قبل الجدول رقم 2 وما يليه يكون فيه اجمالى ما قبله

3 ساعات مضت, ali mohamed ali said:

أحسنت عمل ممتاز استاذ سليم جعله الله فى ميزان حسناتك

بارك الله فيك معلمى الفاضل واسعدنى مرورك العطر

السلام عليكم فى الملف المرفق

شيت باسم تجهيز (2)  وبه بيانات متعدده     مثلا محصول 1 ومحصول 2 وغيره

ارغب فى احضار البيانات فى شيت ورقة2 

حسب نوع المحصول من القائمة المنسدلة فى شيت ورقة2  فى الخلية  O1

هل من مساعدة بارك الله فيكم جميعاا

uuuuup.rar

23 دقائق مضت, احمد بدره said:

أشكرك أستاذ مصطفى على كلامك الطيب ونحن أخوة كل منا يتعلم من الآخر

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

وتم عمل معادلة لمعرفة المتغيب في جميع المواد  أما النتيجة الإجمالية فيجب عمل أعمدة لكل المواد لمعرفة هل الطالب ناجح أم راسب أم غائب وعمود يتم فيه معادلة لمعرفة عدد مواد الرسوب

لكي يكون الناجح في الإحصاء العام الذي عدد مواد رسوبه صفر

تحليل اعدادى(2).rar

بارك الله فيك معلمى الفاضل

وتسلم الايادى يا رب

واحسن الله اليك كما احسنت الى 

سبب أن المعادلة لم تعمل معك بعد التعديل هو يجب أن يكون المعيايير لها نفس عدد الصفوف من وإلى

بالفعل هذا هوا السبب وبعد اصلاحه تم الحل بنجاح

تسلم الايادى يا استاذى الكبير

لماذا لا تعمل المعادله بعد التعديل 

ارغب فى معرفه سبب عدم عملها لانى صراحه اكير من يوم وانا بدرو ومش عارف

=SUMPRODUCT((t_الصف7=$S$1)*(النوع=1)*(T_انجلزيى<>"غ"))

تحليل اعدادى.rar

2 ساعات مضت, مصطفى محمود مصطفى said:

هناك معايير لم نتعرف عليها

ماهي الدرجة الصغرى والكبرى للنجاح

لاحظ الملف جعلت الصغرى للنجاح 40 والكبرى 100 ويمكن التعديل لان الملف ليس به توضيح كافي

لاحظ الخلايا الحمراء لاحصاء العربي فقط ويمكن اكماله

تحياتي لكم

تحليل اعدادى.rar

بارك الله فيك استاذى الكبير

الحل رائع وجميل وتسلم الايادى يا رب

هل بالامكان جعل النطاقات بلاد من الخلايا

مثل 

=SUMPRODUCT((data1!$D$8:$D$887=$S$1)*(النوع=2)*(data1!$F$8:$F$887>=40))

لانها لا تعمل بعد التعديل 

وارغب فى معادله اف فى شيت DATA  لتوضح التلميذ المتغيب فى جميع المواد بأنه غائب

45 دقائق مضت, احمد بدره said:

رائع أستاذ مصطفى ولك بعد إذنك يمكن تقليل الشروط وتعطي نفس الناتج

 

تحليل اعدادى(1).rar

بارك الله فيك استاذى ومعلمى الفاضل

جعله الله فى ميزان حسناتكم

الحمد لله

للرفع

السلام عليكم

الملف التالى ملف بسيط للقروض

قد يفيد البعض من المبتدئين امثالى 

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

ومنهم على سيبل المثال الا الحصر

استاذى : jjafferr   بارك الله فيك

واستاذى : ابو ياسين المشولي   بارك الله فيه

واستاذى : أحمد وجيه   بارك الله فيه

واستاذى : midomashakel بارك الله فيه

والباقى كثير جداا ولكم منى جميعا خالص الشكر والتقدير

برنامج القروض.rar

37 دقائق مضت, ابو ياسين المشولي said:

شوف المرفق كيف لم ينجح معك

 

كان هناك خطاء منى فى نقل الكود

والملف المرفقك من حضرتك يعمل جيدااا

بارك الله فيك

30 دقائق مضت, jjafferr said:

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

بارك الله فيك استاذي معلمي

الحمد لله

للرفع

بارك الله فيك معلمى الفاضل

2 ساعات مضت, jjafferr said:

الف مبروك على هذه النسخة، ونطلب منك السر في كيفية الحصول عليها، فلم اسمع من احد انه حصل عليها الى الآن 🙂

 

بارك الله فيك استاذى غلطة مطبعية  

2 ساعات مضت, jjafferr said:

الظاهر انك ما نسخت الكود كاملا ، نسيت شيء منه 🙂

 

جربت اكثر من مره ولم افلح

للاسف لم ينجح معى 

4 دقائق مضت, أحمد يوسف said:

وعليكم السلام عليك توضيح المطلوب بالضبط على الملف

فما تريد عمله غير واضح حتى تتمكن الأساتذة من المساعدة

فى الملف المرفق شيت باسم      ورقة3

به احصاء ارغب فى عمل المعادلات له لنه لم تنحج معى داله  COUNTIFS   باكثر من شرطين

مصدر البيانات تغيير الصف الخلية  S1   فى شيت ورقة 3

السلام عليكم فى الملف المرفق احصاء 

ارجوا المساعدة فى اكماله

تحليل اعدادى.rar

بارك الله فيك معلمى الفاضل

Private Sub ÃãÑ17_Click()
If MsgBox("åá ÊÑíÏ ÍÞÇð ÊÑÍíá ÇáÍÓÇÈÇÊ", _
    vbQuestion + vbYesNo + vbMsgBoxRight + vbDefaultButton2, _
    "ÊÃßíÏ ÇáÊÑÍíá") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO qard_Finished ( id, site_ID, total, sadad_1, dat_1, SN, 7ala ) " & vbCrLf & _
"SELECT qard.id, qard.site_ID, qard.total, qard.sadad_1, qard.dat_1, qard.SN, ""Êã ÇáÓÏÇÏ"" AS Expr1 " & vbCrLf & _
"FROM qard " & vbCrLf & _
"GROUP BY qard.id, qard.site_ID, qard.total, qard.sadad_1, qard.dat_1, qard.SN, ""Êã ÇáÓÏÇÏ"" " & vbCrLf & _
"HAVING (((Nz(DSum(""total"",""qard"","" site_ID="" & [site_ID])))=Nz(DSum(""sadad_1"",""qard"","" site_ID="" & [site_ID]))));"
DoCmd.RunSQL "DELETE qard.id, qard.site_ID, qard.total, qard.sadad_1, qard.dat_1, qard.SN, ""Êã ÇáÓÏÇÏ"" AS Expr1, Nz(DSum(""total"",""qard"","" site_ID="" & [site_ID])) AS Expr2 " & vbCrLf & _
"FROM qard " & vbCrLf & _
"WHERE (((Nz(DSum(""total"",""qard"","" site_ID="" & [site_ID])))=Nz(DSum(""sadad_1"",""qard"","" site_ID="" & [site_ID]))));"
MsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ", vbInformation, "ÊäÈíå"
DoCmd.SetWarnings True
          End If
End Sub

هل هكذا صحيح ام لا

16 ساعات مضت, samrati1 said:

اعتقد ان مشروعك على اوفيس 2016 هل ممكن تحويله الي 2003 او 2007 ومن ثم ساحاول مساعدتك 

بالفعل استاذى الاوفيس لدى3013

بارك الله فيك

14 ساعات مضت, ابو ياسين المشولي said:

واذا كان لديه قرض ولكنه صفر اي مسدد القرض

القروض المسددة تنقل الى جدول القروض المنتهيه 

بفضل الكود الذى تفضلت على به

معلمنا الفاضل 

بارك الله فيك

نقلت الكود ولم يعمل معى 

UP.rar

السلام عليكم

ارغب فى التالى 

عدم تسجيل قرض للعضوا اذا كان مسجلا له قرض من قبل

مثلا العضو رقم 7 مسجل له قرض من قبل فى جدول القروض 

وعند تسجيل قرض جديد تم اختيارة هنا يجد مدخل البيانات رساله بأن هذا العضو مسجلا له قرض من قبل 

بارك الله فيك

UP.rar

بارك الله فيك معلمى الفاضل

بالفعل يعمل بنجاح 

بارك الله فيك

لى طلب بسيط  هل من الممكن عمل رساله تأكيد قبل التنفيذ

43 دقائق مضت, Rebaz Bahram said:

وعليكم السلام

تفضل اخي محمد

0002.rar

بعد التجربه ايضا لم يعمل معى 

يبدوا ان المشكله لدى 

35 دقائق مضت, ابو ياسين المشولي said:

اتفضل اتمنى يكون المطلوب

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO qard_Finished ( id, site_ID, total, sadad_1, dat_1, SN, 7ala ) " & vbCrLf & _
"SELECT qard.id, qard.site_ID, qard.total, qard.sadad_1, qard.dat_1, qard.SN, ""تم السداد"" AS Expr1 " & vbCrLf & _
"FROM qard " & vbCrLf & _
"WHERE (([qard]![dat_1]=[qard]![total]));"
DoCmd.RunSQL "DELETE qard.id, qard.site_ID, qard.total, qard.sadad_1, qard.dat_1, qard.SN, [qard]![dat_1] " & vbCrLf & _
"FROM qard " & vbCrLf & _
"WHERE ((([qard]![dat_1])=[qard]![total]));"
DoCmd.SetWarnings True

 

0002.rar

للاسف لم يعمل معى استاذى الفاضل

17 دقائق مضت, Rebaz Bahram said:

وعليكم السلام

تفضل اخي محمد

0002.rar

بارك الله فيك استاذى الكبير

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

16 دقائق مضت, ابو ياسين المشولي said:

اتفضل اتمنى يكون المطلوب

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO qard_Finished ( id, site_ID, total, sadad_1, dat_1, SN, 7ala ) " & vbCrLf & _
"SELECT qard.id, qard.site_ID, qard.total, qard.sadad_1, qard.dat_1, qard.SN, ""تم السداد"" AS Expr1 " & vbCrLf & _
"FROM qard " & vbCrLf & _
"WHERE (([qard]![dat_1]=[qard]![total]));"
DoCmd.RunSQL "DELETE qard.id, qard.site_ID, qard.total, qard.sadad_1, qard.dat_1, qard.SN, [qard]![dat_1] " & vbCrLf & _
"FROM qard " & vbCrLf & _
"WHERE ((([qard]![dat_1])=[qard]![total]));"
DoCmd.SetWarnings True

 

0002.rar

بارك الله فيكم استاذى 

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

السلام عليكم

فى الملف المرفق جدول للقروض

وارغب فى التالى عنما يكون العضو كا قد سدد كامل القرض يقوم الاستعلام بنقل بيانات العضو الى جدول اخر للقروض التى تم الانتهاء منها وحذفها من الجدول الاساسي

وذلك كله تحت امر يكون فى النموزج الرئيسي 

هل يمكن المساعده فى عمل ذلك

0002.rar

بارك الله فيك استاذى الكبير