إضافة خانات تاريخ الميلاد والسن فى الشيت

[العمراوى]

 

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

السادة الاساتذة الافاضل برجاء المساعدة  فى هذا العمل الرائع بارك الله فى صاحب هذا المجهود

برجاء اضافة خانات تاريخ الميلاد و  السن فى الشيت لانه يطبع ويسلم الى الادارة  طبعا احتساب السن من 1/10/2018

جزاكم الله كل خير

اولى - ت.rar

 وكذلك اضافة عمال مع القائمة فى بيانات الطلبة لتصبح منتظم عمال خدمات

1/10/2018

 

 

[الاهلاوى 2007]

نتمنى هذا لاحتياجنا اليه جزاكم الله كل خير

[ابراهيم الحداد]

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

تم تعديل الملف بالاضافات المطلوبة

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

الملف الحالى يكفى للمرحلة الحالية

اليك الملف

 

اولى - ت.rar

تم تعديل يناير 30, 2019 بواسطه ابراهيم الحداد

[الاهلاوى 2007]

الف شكر اخى الغالى على هذا الاهتمام جزاك الله كل خير

تقبل التحية والاحترام

[العمراوى]

الف شكر لاستجابتك استاذى الغالى

[الاهلاوى 2007]

استاذى الغالى

الرجاء المرور على كود حساب السن لانه غير دقيق وممكن تجرب 20/10/2000 او 1/12/2000 او 1/11/2000

[الاهلاوى 2007]

استاذى الغالى

الرجاء المرور على ترحيل السرى لانه يرحل السرى فى مكان الجنسية

[ابراهيم الحداد]

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

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

الرجاء استبدال كود حساب السن بالملف بالكود التالى

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

Sub DatedIf_User()
Dim ws As Worksheet, Sh As Worksheet, Mh As Worksheet
Dim ShName As String, Rng As Range, C As Range
Dim LR As Long, VlDate As Variant
Application.ScreenUpdating = False
Set ws = Sheets("بيانات الطالبات")
VlDate = ws.Range("I5").Value
 '----------------------------------
LR = ws.Cells(Rows.Count, "E").End(xlUp).Row
If LR < 8 Then Exit Sub
ws.Range("I8:K" & LR + 1).ClearContents
Set Rng = ws.Range("H8:H" & LR)
 '----------------------------------
If IsEmpty(VlDate) = True Then
MsgBox "من فضلك ادخل تاريخ حساب السن"
Exit Sub
Else
On Error Resume Next
For Each C In Rng
If C.Value <> "" Then
YY = Year(VlDate)
y = Year(C.Value)
mm = Month(VlDate)
m = Month(C.Value)
dd = Day(VlDate)
D = Day(C.Value)
  '-----------------------
If D > dd And m > mm Then
C.Offset(0, 1) = dd + 30 - D
C.Offset(0, 2) = mm - m + 11
C.Offset(0, 3) = YY - y - 1

  '-----------------------

ElseIf D <= dd And m > mm Then
C.Offset(0, 1) = dd - D
C.Offset(0, 2) = mm - m + 12
C.Offset(0, 3) = YY - y - 1

  '-----------------------

ElseIf D >= dd And m = mm Then
C.Offset(0, 1) = dd - D + 30
C.Offset(0, 2) = mm - m + 11
C.Offset(0, 3) = YY - y - 1

  '-----------------------

ElseIf D >= dd And m < mm Then
C.Offset(0, 1) = dd - D + 30
C.Offset(0, 2) = mm - m - 1
C.Offset(0, 3) = YY - y

  '-----------------------

Else
C.Offset(0, 1) = dd - D
C.Offset(0, 2) = mm - m
C.Offset(0, 3) = YY - y
End If
End If
Next
End If
Application.ScreenUpdating = True
End Sub

 

[ابراهيم الحداد]

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

الرجاء استبدال كود السرى بهذا الكود

Sub SecNim()
Dim R As Integer, S As Integer
Application.ScreenUpdating = False
Sheet4.Range("J8:J1000").ClearContents
z = 0
For S = 7 To 16
For R = 8 To Sheet4.Range("C" & Rows.Count).End(xlUp).Row
If Sheet4.Cells(R, "B") >= Cells(S, "E") And Sheet4.Cells(R, "B") <= Cells(S, "F") Then
   z = z + 1
   Sheet4.Cells(R, "J") = Cells(S, "G") + z - 1
   End If
   Next
         z = 0
   Next
Application.ScreenUpdating = True
End Sub

 

[الاهلاوى 2007]

استاذى الغالى

الف شكر على الاهتمام والرد جزاك الله كل خير

[Ali Mohamed Ali]

بارك الله فيك استاذ ابراهيم وجزاك الله كل خير مجهود ممتاز جعله الله فى ميزان حسناتك ورحم الله والديك وغفر لهم  واسكنهم فسيح جناته ,الفردوس الأعلى

[العمراوى]

بارك الله فيك استاذ ابراهيم وجزاك الله كل خير مجهود ممتاز جعله الله فى ميزان حسناتك ورحم الله والديك وغفر لهم  واسكنهم فسيح جناته ,الفردوس الأعلى ووالديى  امين يارب العالمين

[العمراوى]

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

تم تعديل فبراير 2, 2019 بواسطه العمراوى

[الاهلاوى 2007]

استاذى الغالى

الرجاء المرور على شهادات نصف العام غير دقيقة وعلى ما اعتقد لا تضيف مجموع الرياضة العامة

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

لان الجميع يعلم شغل الكنترول لا يتحمل ربع درجة من اجل هذا الكل يدقق فى العمل

تقبلوا التحية والاحترام

تم تعديل فبراير 3, 2019 بواسطه الاهلاوى 2007

[العمراوى]

استاذى الغالى

الرجاء المرور على شهادات نصف العام غير دقيقة وعلى ما اعتقد لا تضيف مجموع الرياضة العامة

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

لان الجميع يعلم شغل الكنترول لا يتحمل ربع درجة من اجل هذا الكل يدقق فى العمل

تقبلوا التحية والاحترام

[العمراوى]

يجب تعديل ارقام الجمع فى كود الشيت وخصوصا رقم 51 الى 52

Ar = Array(12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52, 56, 61, 62)
x = 0

[الاهلاوى 2007]

استاذى الغالى

بالمراجعة فى تواريخ الميلاد تم الكشف على هذه التواريخ وطبعا كده الحساب غير دقيق

[الاهلاوى 2007]

الرجاء حل مشكلة حساب السن الامتحانات على الابواب