logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





30-08-2017 01:04 مساءً
السلام عليكم ورحمة الله
الملف التالى لحساب السن فى 1/10 الخاص بتلاميذ المدارس او ما شابه
باستخدام الاكواد للتخفيف من ثقل الملف
توضع قيمة التاريخ المراد حساب السن عنده فى الخلية H1
وتواريخ الميلاد فى العمود A
اليكم الملف
 
 
  DatedIff.rar   تحميل rar مرات التحميل :(73)
الحجم :(13.854) KB





look/images/icons/i1.gif حساب السن
  30-08-2017 02:19 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36757
الاعجاب : 185
وعليكم السلام أخي المتميز زيزو العجوز
بارك الله فيك وجزاك الله خيراً على هذه الهدايا القيمة
تقبل وافر تقديري واحترامي




look/images/icons/i1.gif حساب السن
  30-08-2017 02:45 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 226
الجنس :
الدعوات : 4
قوة السمعة : 2147
الاعجاب : 19
السلام عليكم ورحمة الله
شكرا اخى الكريم ياسر على دعمك المستمر




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




look/images/icons/i1.gif حساب السن
  01-09-2017 12:24 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 226
الجنس :
الدعوات : 4
قوة السمعة : 2147
الاعجاب : 19
السلام عليكم ورحمة الله
اخى الكريم حسين
طبعا ممكن هذا ولكن على اى اساس
و ماهو شكل اليوزر فورم المطلوب




look/images/icons/i1.gif حساب السن
  03-09-2017 11:48 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 164
الجنس :
تاريخ الميلاد : 1-1-1982
الدعوات : 1
قوة السمعة : 867
الاعجاب : 0
السلام عليكم ورحمة الله
الف الف شكر استاذنا زيزو
المرفق فيه فورم ك
ما اريد ويمكنكم التعديل عليه حسب المطلوب
attachحساب السن.rar
 
 
  حساب السن.rar   تحميل rar مرات التحميل :(13)
الحجم :(18.197) KB





look/images/icons/i1.gif حساب السن
  03-09-2017 12:06 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36757
الاعجاب : 185
وعليكم السلام أخي الكريم حسين
رجاءً لا طلبات في المشاركات الفرعية
قم بطرح طلبك في موضوع مستقل حفاظاً على نظام المنتدى .. سيتم حذف المشاركة الأخيرة بعد طرحك للموضوع إن شاء الله




look/images/icons/i1.gif حساب السن
  04-09-2017 11:13 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 246
الجنس :
تاريخ الميلاد : 1-1-1985
الدعوات : 2
قوة السمعة : 641
الاعجاب : 10
CODE
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


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



توقيع :الاستاذ محمدي عبدالسميع
جزاكم الله خيرا

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




look/images/icons/i1.gif حساب السن
  06-09-2017 07:52 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 213
المشاركات : 75
الجنس :
تاريخ الميلاد : 20-12-1971
قوة السمعة : 191
الاعجاب : 0
رائع اخونا الكريم زيزو... بارك الله فيك.




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




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




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

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 مساءً





اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 3 < 1 2 3 >




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
برنامج ادارة او حسابات لسوبر ماركت zaki123
1 260 zaki123
تعديل ملف حساب مرتب صلاح الصغير
0 135 صلاح الصغير
معادلة لحساب عمولة مبيعات بأكثر من شرط حسب النسبة Yasser Albanna
1 185 Yasser Albanna
حساب الوزن حسين الحمادي
4 293 حسين الحمادي
برنامج حسابات المقاولات - منقول Ahmed Samir
10 2589 mrgan11

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









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

الساعة الآن 03:51 PM