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

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


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





حساب الحجم الساعي

السلام عليكم في الملف المرفق من جدول التوقيت الزمني أريد معرفة الأقسام المسندة للأستاذ دون تكرار و كذا حساب الحجم الساعي ..


موضوع مغلق


subject icon تمت الإجابة حساب الحجم الساعي
23-11-2020 12:44 مساء
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 

السلام عليكم
في الملف المرفق من جدول التوقيت الزمني أريد معرفة الأقسام المسندة للأستاذ دون تكرار و كذا حساب الحجم الساعي له علما أن الحصة مقدارها 45 دقيقية 
و شكرا
 
 
  123.xlsx   تحميل xlsx مرات التحميل :(2)
الحجم :(116.36) KB



أفضل إجابة مقدمة من salim وهي:
العدد 20.25 يمثل 20 ساعة و 25% من الساعة اي ربع ساعة اي 15 دقيقة و هذا ما يدرجه الكود
تعديل الكود

Sub Three_Of_Four()
  Dim i%, RG As Range
  Dim D As Object
  Dim m%

Range("D17").Resize(, 10).ClearContents
Range("G18").ClearContents

  Set RG = Range("C11:M15")
  Set D = CreateObject("Scripting.Dictionary")
  

For i = 1 To RG.Cells.Count
  If RG.Cells(i) <> 0 Then
 m = m + 1
 D(RG.Cells(i).Value) = ""
   End If
Next
If D.Count Then
Range("D17").Resize(, D.Count) = D.keys
Range("G18") = (m * 0.75) / 24
Range("G18").NumberFormat = "hh ""Hours ,"" m ""Mins"""
End If
End Sub

الملف من جديد
عرض الإجابة




23-11-2020 06:34 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif حساب الحجم الساعي
هذه لم افهمها (الحجم الساعي للأستاد)
لكن اتوقع عدد الحصص لكل صف
جرب هذا الكود

Option Explicit

Sub calclate()
  Dim i%, RG As Range
  Dim D As Object
   

Range("D17").Resize(, 10).ClearContents
Range("G18").Resize(, 7).ClearContents

  Set RG = Range("C11:M15")
  Set D = CreateObject("Scripting.Dictionary")
  

For i = 1 To RG.Cells.Count
  If RG.Cells(i) <> 0 Then

   D(RG.Cells(i).Value) = _
   RG.Cells(i).Value & " : " & Application.CountIf(RG, RG.Cells(i)) & " حصة "
   End If
Next
If D.Count Then
 Range("D17").Resize(, D.Count) = D.keys
 Range("G18").Resize(, D.Count) = D.Items
End If
End Sub

الملف مرفق
 
 
  ayoub2007.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(130.761) KB



تم تحرير المشاركة بواسطة :salim
بتاريخ:23-11-2020 07:07 مساء


23-11-2020 07:56 مساء
مشاهدة مشاركة منفردة [2]
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 
look/images/icons/i1.gif حساب الحجم الساعي
السلام عليكم أستاذ سليم 
تم حل جزء من العمل أما بخصوص الحجم الساعي فالمطلوب عدد الحصص في الجدول ضرب 0.75 لتكون النتائج على الشكل في الصورة المرفقة 
 
  802001472_.PNG.590ee82e8983f04232b9b8f1db12788d.png   تحميل png 802001472_.PNG.590ee82e8983f04232b9b8f1db12788d.png مرات التحميل :(4)
الحجم :(46.484) KB
 


23-11-2020 09:31 مساء
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif حساب الحجم الساعي
العدد 20.25 يمثل 20 ساعة و 25% من الساعة اي ربع ساعة اي 15 دقيقة و هذا ما يدرجه الكود
تعديل الكود

Sub Three_Of_Four()
  Dim i%, RG As Range
  Dim D As Object
  Dim m%

Range("D17").Resize(, 10).ClearContents
Range("G18").ClearContents

  Set RG = Range("C11:M15")
  Set D = CreateObject("Scripting.Dictionary")
  

For i = 1 To RG.Cells.Count
  If RG.Cells(i) <> 0 Then
 m = m + 1
 D(RG.Cells(i).Value) = ""
   End If
Next
If D.Count Then
Range("D17").Resize(, D.Count) = D.keys
Range("G18") = (m * 0.75) / 24
Range("G18").NumberFormat = "hh ""Hours ,"" m ""Mins"""
End If
End Sub

الملف من جديد
 
 
  ayoub2007_New.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(130.98) KB



تم تحرير المشاركة بواسطة :salim
بتاريخ:23-11-2020 09:35 مساء


23-11-2020 10:29 مساء
مشاهدة مشاركة منفردة [4]
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 
look/images/icons/i1.gif حساب الحجم الساعي
الف شكرا أستاذ سليم 
هل يمكن كتابة الحجم الساعة باللغة العربية 

24-11-2020 06:39 صباحا
مشاهدة مشاركة منفردة [5]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif حساب الحجم الساعي
استبدل في الكود 
    Mins  بـــ  دقيقة
    Hours   بــ ساعة

24-11-2020 08:03 صباحا
مشاهدة مشاركة منفردة [6]
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 
look/images/icons/i1.gif حساب الحجم الساعي
ألف شكر مع تحياتي



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


 










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

الساعة الآن 09:01 صباحا