أكاديمية الصقر للتدريب

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات




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





حساب السن

السلام عليكم ورحمة الله الملف التالى لحساب السن فى 1/10 الخاص بتلاميذ المدارس او ما شابه باستخدام الاكواد للتخفيف من ثقل ..



30-08-2017 01:04 مساء
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 138
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 20
قوة السمعة : 1045
الاعجاب : 286
 offline 

السلام عليكم ورحمة الله
الملف التالى لحساب السن فى 1/10 الخاص بتلاميذ المدارس او ما شابه
باستخدام الاكواد للتخفيف من ثقل الملف
توضع قيمة التاريخ المراد حساب السن عنده فى الخلية H1
وتواريخ الميلاد فى العمود A
اليكم الملف




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى، حسين مامون، ناصر سعيد، تاج الدين، قتيبة الحسني، السعيد الجزائري، محمد نصرالله، مهند محسن،





30-08-2017 02:19 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 offline 
look/images/icons/i1.gif حساب السن
وعليكم السلام أخي المتميز زيزو العجوز
بارك الله فيك وجزاك الله خيراً على هذه الهدايا القيمة
تقبل وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: زيزو العجوز،




30-08-2017 02:45 مساء
مشاهدة مشاركة منفردة [2]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 138
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 20
قوة السمعة : 1045
الاعجاب : 286
 offline 
look/images/icons/i1.gif حساب السن
السلام عليكم ورحمة الله
شكرا اخى الكريم ياسر على دعمك المستمر

 

أثارت هذه المشاركة إعجاب: YasserKhalil،




31-08-2017 02:41 مساء
مشاهدة مشاركة منفردة [3]
حسين مامون
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 37
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 1
قوة السمعة : 41
الاعجاب : 14
 offline 
look/images/icons/i1.gif حساب السن
موضوع رائع من شخص رائع جزاك الله خيرا
 استاذنا زيزو ممكن انشاء فورم لعمل نفس الشيء ثم ترحيل الى صفحة العمل





01-09-2017 12:24 صباحا
مشاهدة مشاركة منفردة [4]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 138
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 20
قوة السمعة : 1045
الاعجاب : 286
 offline 
look/images/icons/i1.gif حساب السن
السلام عليكم ورحمة الله
اخى الكريم حسين
طبعا ممكن هذا ولكن على اى اساس
و ماهو شكل اليوزر فورم المطلوب

أثارت هذه المشاركة إعجاب: حسين مامون،




03-09-2017 11:48 صباحا
مشاهدة مشاركة منفردة [5]
حسين مامون
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 37
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 1
قوة السمعة : 41
الاعجاب : 14
 offline 
look/images/icons/i1.gif حساب السن
السلام عليكم ورحمة الله
الف الف شكر استاذنا زيزو
المرفق فيه فورم ك
ما اريد ويمكنكم التعديل عليه حسب المطلوب
لرؤية الروابط والمرفقات عليك الرد على الموضوع




لرؤية الروابط والمرفقات عليك الرد على الموضوع






03-09-2017 12:06 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 offline 
look/images/icons/i1.gif حساب السن
وعليكم السلام أخي الكريم حسين
رجاءً لا طلبات في المشاركات الفرعية
قم بطرح طلبك في موضوع مستقل حفاظاً على نظام المنتدى .. سيتم حذف المشاركة الأخيرة بعد طرحك للموضوع إن شاء الله

أثارت هذه المشاركة إعجاب: حسين مامون،




04-09-2017 11:13 مساء
مشاهدة مشاركة منفردة [7]
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 163
الاعجاب : 50
 offline 
look/images/icons/i1.gif حساب السن
Sub CalcDate()
Dim i As Long, LR As Long
LR = Range("A" & Rows.Count).End(xlUp).row
Sheets("DatedIff").Range("B3:D" & LR + 2).ClearContents
For i = 3 To LR
If Range("A" & i) <> "" Then
Cells(i, 2) = "=DATEDIF(""" & Range("A" & i) & """,""" & Range("H1") & """ , ""md"")"
Cells(i, 2).Value = Cells(i, 2).Value
Cells(i, 3) = "=DATEDIF(""" & Range("A" & i) & """,""" & Range("H1") & """, ""ym"")"
Cells(i, 3).Value = Cells(i, 3).Value
Cells(i, 4) = "=DATEDIF(""" & Range("A" & i) & """,""" & Range("H1") & """, ""y"")"
Cells(i, 4).Value = Cells(i, 4).Value
End If
Next
End Sub

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

أثارت هذه المشاركة إعجاب: زيزو العجوز،


توقيع :ناصر سعيد
جزاكم الله خيرا



06-09-2017 02:33 مساء
مشاهدة مشاركة منفردة [8]
أشرف عبد المنعم
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 06-09-2017
رقم العضوية : 399
المشاركات : 7
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 20-3-1971
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 28
الاعجاب : 9
 offline 
look/images/icons/i1.gif حساب السن
ماكرو جميل و مختصر بارك الله فيك

أثارت هذه المشاركة إعجاب: زيزو العجوز،




06-09-2017 07:52 مساء
مشاهدة مشاركة منفردة [9]
احمد الحاوي
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 213
المشاركات : 56
الجنس : ذكر
تاريخ الميلاد : 20-12-1971
يتابعهم : 7
يتابعونه : 4
قوة السمعة : 114
الاعجاب : 47
 offline 
look/images/icons/i1.gif حساب السن
رائع اخونا الكريم زيزو... بارك الله فيك. 

أثارت هذه المشاركة إعجاب: زيزو العجوز،




15-02-2018 12:19 مساء
مشاهدة مشاركة منفردة [10]
تاج الدين
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-02-2018
رقم العضوية : 4153
المشاركات : 20
الجنس : ذكر
تاريخ الميلاد : 4-11-66
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 20
الاعجاب : 5
 offline 
look/images/icons/i1.gif حساب السن
الاستاذ المحترم زيزو العجوز شكراً جزيلا علي هذا الملف





13-10-2018 07:24 مساء
مشاهدة مشاركة منفردة [11]
yehya mahmoud
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-10-2018
رقم العضوية : 8303
المشاركات : 52
الجنس : ذكر
تاريخ الميلاد : 13-1-1969
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 51
الاعجاب : 19
 offline 
look/images/icons/i1.gif حساب السن
جزاك الله خيراً





13-10-2018 09:37 مساء
مشاهدة مشاركة منفردة [12]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 237
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 8
قوة السمعة : 2363
الاعجاب : 533
 offline 
look/images/icons/i1.gif حساب السن
ممتاز اخي ابرهيم
لكن عندي ملاحظتين بالنسبة للكود
1- حاول استعمال الخاصية With.....End With بهذه الحالة الكود يكون اسرع بكثير
​2 - لا لزوم لاستعمال دالة .Value=.Value عند كل قيمة للمتغير 3 مرات ( أقصد المتغير  i)
      يكفي استعمالها مرة واحد في نهاية الكود  (.Range("A2biggrin2" & LR).Value =.Range("A2biggrin2" & LR).Value)
فيصبح الكود بهذا الشكل

Option Explicit
Sub CalcDate()
Dim i As Long, LR As Long
With Sheets("DatedIff")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
         .Range("B2:D" & LR + 1).ClearContents
   For i = 2 To LR
     With .Range("A" & i)
        If .Value <> vbNullString Then
           .Offset(, 1) = _
          "=DATEDIF(""" & .Value & """,""" & Range("H1") & """ , ""md"")"
           .Offset(, 2) = _
          "=DATEDIF(""" & .Value & """,""" & Range("H1") & """, ""ym"")"
          .Offset(, 3) = _
          "=DATEDIF(""" & .Value & """,""" & Range("H1") & """, ""y"")"
        End If
     End With
   Next
    .Range("A2:D" & LR).Value = _
    .Range("A2:D" & LR).Value
End With
End Sub



تم تحرير المشاركة بواسطة :salim
بتاريخ:13-10-2018 10:27 مساء







المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
شيت اهلاك الاصول الثابته بالداله SLNAlsqr - بشكل اوتوماتيك ومرن - حساب خطاب الصقر
44 2921 ahmedhasanain
داله SLNAlsqr الجديده لحساب اهلاك الاصول الثابته بطريقه القسط الثابت الصقر
24 3595 ahmedhasanain
هديتى 2019_برنامج مخزنى و دليل حسابات_ECO2_DuClick_store_ بفورم بحث و اضافه Galal ELGammal
54 382 alfaqih
حساب عدد الخلايا التي تحتوي على لون الخلية المحددة باستخدام VBA Eslam Abdullah
8 508 zeko2018
حساب ضريبة الدخل وفقاً للشرائح القانونية Eslam Abdullah
10 2400 zeko2018

الكلمات الدلالية
حساب ، السن ،


 







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



الساعة الآن 12:01 مساء

أعلن هنا
أعلن هنا
أعلن هنا