bahnay

استاذ على المصري ربنا يبارك في حضرتك هو دا اللي كنت محتاجه فعلا ربنا يزيدك علم ويجعله في ميزان حسناتك يارب بالنسبة لسؤال حضرتك ليه ما استخدمتش المعادلات لأني بعمل برنامج بالفيجوال بيسك وعامل زر استيراد بيانات من الاكسيل والمعادلات بتعمل مشاكل علشان كده لجأت للكود للمرة الثانية اشكرك جدا

دا كود لحساب سن الطالب في أول أكتوبر الكود شغال تمام لكن على الصف الاول فقط من البيانات انا محتاج التعديل عليه ليعمل على كل الصفوف Sub a() Dim st As Date Dim ed As Date Dim st_y As Integer Dim st_m As Integer Dim st_d As Integer Dim ed_y As Integer Dim ed_m As Integer Dim ed_d As Integer Dim y As Integer Dim m As Integer Dim d As Integer '------------------------------------------ st = Range("b2") ed = Range("c1") st_y = Year(st) st_m = Month(st) st_d = Day(st) ed_y = Year(ed) ed_m = Month(ed) ed_d = Day(ed) If ed_d >= st_d Then d = ed_d - st_d Else d = 30 + (ed_d - st_d) ed_m = ed_m - 1 End If If ed_m >= st_m Then m = ed_m - st_m Else m = 12 + (ed_m - st_m) ed_y = ed_y - 1 End If If ed_y < st_y Then MsgBox "date error": GoTo theend y = ed_y - st_y If d = 30 Then d = 0: m = m + 1 If m = 12 Then m = 0: y = y + 1 ActiveSheet.Range("D2") = y ActiveSheet.Range("E2") = m ActiveSheet.Range("F2") = d theend: End Sub school.zip

دا كود لحساب سن الطالب في أول أكتوبر الكود شغال تمام لكن على الصف الاول فقط من البيانات انا محتاج التعديل عليه ليعمل على كل الصفوف Sub a() Dim st As Date Dim ed As Date Dim st_y As Integer Dim st_m As Integer Dim st_d As Integer Dim ed_y As Integer Dim ed_m As Integer Dim ed_d As Integer Dim y As Integer Dim m As Integer Dim d As Integer '------------------------------------------ st = Range("b2") ed = Range("c1") st_y = Year(st) st_m = Month(st) st_d = Day(st) ed_y = Year(ed) ed_m = Month(ed) ed_d = Day(ed) If ed_d >= st_d Then d = ed_d - st_d Else d = 30 + (ed_d - st_d) ed_m = ed_m - 1 End If If ed_m >= st_m Then m = ed_m - st_m Else m = 12 + (ed_m - st_m) ed_y = ed_y - 1 End If If ed_y < st_y Then MsgBox "date error": GoTo theend y = ed_y - st_y If d = 30 Then d = 0: m = m + 1 If m = 12 Then m = 0: y = y + 1 ActiveSheet.Range("D2") = y ActiveSheet.Range("E2") = m ActiveSheet.Range("F2") = d theend: End Sub

دا كود لحساب سن الطالب في أول أكتوبر الكود شغال تمام لكن على الصف الاول فقط من البيانات انا محتاج التعديل عليه ليعمل على كل الصفوف Sub a() Dim st As Date Dim ed As Date Dim st_y As Integer Dim st_m As Integer Dim st_d As Integer Dim ed_y As Integer Dim ed_m As Integer Dim ed_d As Integer Dim y As Integer Dim m As Integer Dim d As Integer '------------------------------------------ st = Range("b2") ed = Range("c1") st_y = Year(st) st_m = Month(st) st_d = Day(st) ed_y = Year(ed) ed_m = Month(ed) ed_d = Day(ed) If ed_d >= st_d Then d = ed_d - st_d Else d = 30 + (ed_d - st_d) ed_m = ed_m - 1 End If If ed_m >= st_m Then m = ed_m - st_m Else m = 12 + (ed_m - st_m) ed_y = ed_y - 1 End If If ed_y < st_y Then MsgBox "date error": GoTo theend y = ed_y - st_y If d = 30 Then d = 0: m = m + 1 If m = 12 Then m = 0: y = y + 1 ActiveSheet.Range("D2") = y ActiveSheet.Range("E2") = m ActiveSheet.Range("F2") = d theend: End Sub school.zip

طيب الحل ياجماعه محدش فادني

طيب اخي ممكن تساعدني في عمل استعلام التحديث لأني ماعنديش اي فكره عنه ممكن من كرم حضرتك تطبقه على النموذج اللي بعته ولك كل الشكر والاحترام

المثال اللي انا نزلته ده مثال صغير للبرنامج الاصلي اللي بعمله البرنامج الاصلي بتاعي الجدول التاني ده مهم جدا حيث انه فيه نسب وارقام بتسمع في الجدول الاول وبناء علي النسب دي بيتم تنفيذ معادلات داخل الجدول الاول

السلام عليكم ورحمة الله وبركاته عندي نموذجين الاول اسمه ( الاساسي ) والتاني اسمه ( الاستحقاقات ) وفي علاقة واحد لمتعدد بين الجدولين المطلوب ان لما اكتب ارقام في خانات نموذج ( الاستحقاقات ) تظهر تلقائي في الخانات المرادفه لها في جدول ( الاساسي ) ولما اجيب سجل جديد في نموذج ( الاساسي ) الاقي الارقام دي موجوده تلقائي من غير ما اكتبها ولو قمت بتعديل الارقام في نموذج ( الاستحقاقات ) الاقيها اتعدلت في كل السجلات في نموذج ( الاساسي ) ولكم جزيل الشكر بحثت كتير جدا عن الاجابة وسألت كتير ولكن لم اجد الاجابه برجاء ساعدوني الاساسيات.zip

مع احترامي لحضرتك وتقديرا لمجهودك الرائع لكني اكتب معادلة اليوم والشهر والسنه بصورة أبسط من كده وتعطيني نفس النتيجة وهي : لحساب اليوم : datedif= c6); ;$H$4 ;"md") ولحساب الشهر نفس المعادلة مع تغيير "MD" إلى "YM" ولحساب السنة نفس المعادلة مع تغيير "MD" إلى "Y" وعذرا على اللخبطة في الكتابة دي لكن الصفحة مش قابلة الكتابة غير بالطريقة دي ثانيا وبعد إذنك هي المعادلة سواء دي أو دي بتزود يوم في عدد الأيام هل في طريقة لحساب الايام بالظبط ؟