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



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






موضوع مغلق


  • تمت الإجابة
subject icon تمت الإجابة حساب الحجم الساعي
23-11-2020 12:44 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 157
الجنس :
تاريخ الميلاد : 23-12-1970
قوة السمعة : 111
الاعجاب : 1
السلام عليكم
في الملف المرفق من جدول التوقيت الزمني أريد معرفة الأقسام المسندة للأستاذ دون تكرار و كذا حساب الحجم الساعي له علما أن الحصة مقدارها 45 دقيقية
و شكرا
 
 
  123.xlsx   تحميل xlsx مرات التحميل :(2)
الحجم :(116.36) KB





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

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





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





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

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 مرات التحميل :(9)
الحجم :(130.98) KB



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


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



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




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

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



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






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

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








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

الساعة الآن 05:11 PM.