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

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


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


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

Preview




كيفية جمع جدولين على حسب التاريخ ووضع الناتج في جدول ثالث

لدي جدولين بهما في العمود الأول لكل منهما الشهر والسنة وامامهما مبالغ ، اريد ان يقوم الإكسل بجمع كل المبالغ في الأعمد ..



11-09-2017 09:14 مساء
عبد الله السعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 159
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 89
الاعجاب : 0
 offline 

لدي جدولين بهما في العمود الأول لكل منهما  الشهر والسنة وامامهما مبالغ   ، اريد ان يقوم الإكسل بجمع كل المبالغ في الأعمدة لكللا الجدولين كلا على حسب التاريخ ويضع الناتج في الجدول الثالث مرتب كما موضح في المثال الأتي




لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  المصنف1.rar   تحميل rar مرات التحميل :(6)
الحجم :(10.44) KB





12-09-2017 07:48 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1772
الجنس : ذكر
الدعوات : 20
يتابعهم : 0
يتابعونه : 648
قوة السمعة : 18730
الاعجاب : 117
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كيفية جمع جدولين على حسب التاريخ ووضع الناتج في جدول ثالث
اخى الكريم لماذا عمود التاريخ عباره عن رقم وليس تاريخ ؟
يعنى 1201 هل المقصود بها شهر 1 عام 2012 ؟ واذا كان كذالك لماذا لم يتم تنسيقه تاريخ ؟
يرجى التوضيح



توقيع :الصقر

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


12-09-2017 10:45 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif كيفية جمع جدولين على حسب التاريخ ووضع الناتج في جدول ثالث
جرب الكود التالي لعله يفي بالغرض
Sub Find_Unique_Values_Sum_Total()
    Dim dic     As Object
    Dim v       As Variant
    Dim s       As Variant
    Dim r       As Range
    Dim i       As Long
    
    Application.ScreenUpdating = False
        Set r = Range("A30")
        
        r.Resize(1000, 8).Clear
        Set dic = CreateObject("scripting.dictionary")
    
        v = Range("A9:H" & Cells(Rows.Count, 1).End(xlUp).Row).Value
        For i = 1 To UBound(v)
            s = v(i, 1)
            If Not dic.Exists(s) Then dic(s) = Array(, 0, 0, 0, 0, 0, 0, 0)
            dic(s) = Array(v(i, 1), dic(s)(1) + v(i, 2), dic(s)(2) + v(i, 3), dic(s)(3) + v(i, 4), dic(s)(4) + v(i, 5), dic(s)(5) + v(i, 6), dic(s)(6) + v(i, 7), dic(s)(7) + v(i, 8))
        Next i
    
        v = Range("J9:Q" & Cells(Rows.Count, 10).End(xlUp).Row).Value
        For i = 1 To UBound(v)
            s = v(i, 1)
            If Not dic.Exists(s) Then dic(s) = Array(, 0, 0, 0, 0, 0, 0, 0)
            dic(s) = Array(v(i, 1), dic(s)(1) + v(i, 2), dic(s)(2) + v(i, 3), dic(s)(3) + v(i, 4), dic(s)(4) + v(i, 5), dic(s)(5) + v(i, 6), dic(s)(6) + v(i, 7), dic(s)(7) + v(i, 8))
        Next i
    
        With r.Offset(1)
            .Offset(-1).Resize(1, 8).Value = Array("الشهر / السنة", "مبلغ 1", "مبلغ 2", "مبلغ 3", "مبلغ 4", "مبلغ 5", "مبلغ 6", "مبلغ 7")
            .Offset(-1).Resize(1, 8).Font.Bold = True
            .Resize(dic.Count, 8).Value = Application.Transpose(Application.Transpose(dic.items))
            With .CurrentRegion
                .Replace "0", "", xlWhole
                .Borders.Value = 1
                .Sort Key1:=r.Offset(1), Order1:=xlAscending, Header:=xlYes
                .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter: .NumberFormat = "General"
                .Offset(, 1).Resize(, .Columns.Count - 1).NumberFormat = "0.00"
            End With
        End With
    Application.ScreenUpdating = True
End Sub




12-09-2017 10:04 مساء
مشاهدة مشاركة منفردة [3]
عبد الله السعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 159
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 89
الاعجاب : 0
 offline 
look/images/icons/i1.gif كيفية جمع جدولين على حسب التاريخ ووضع الناتج في جدول ثالث
المشاركة الأصلية كتبت بواسطة: الصقر
اخى الكريم لماذا عمود التاريخ عباره عن رقم وليس تاريخ ؟
يعنى 1201 هل المقصود بها شهر 1 عام 2012 ؟ واذا كان كذالك لماذا لم يتم تنسيقه تاريخ ؟
يرجى التوضيح


هو نظام البرنامج اللي يطلع التاريخ هكذا بنفس الشكل 




12-09-2017 10:54 مساء
مشاهدة مشاركة منفردة [4]
عبد الله السعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 159
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 89
الاعجاب : 0
 offline 
look/images/icons/i1.gif كيفية جمع جدولين على حسب التاريخ ووضع الناتج في جدول ثالث
المشاركة الأصلية كتبت بواسطة: YasserKhalil
جرب الكود التالي لعله يفي بالغرض
Sub Find_Unique_Values_Sum_Total()
    Dim dic     As Object
    Dim v       As Variant
    Dim s       As Variant
    Dim r       As Range
    Dim i       As Long
    
    Application.ScreenUpdating = False
        Set r = Range("A30")
        
        r.Resize(1000, 8).Clear
        Set dic = CreateObject("scripting.dictionary")
    
        v = Range("A9:H" & Cells(Rows.Count, 1).End(xlUp).Row).Value
        For i = 1 To UBound(v)
            s = v(i, 1)
            If Not dic.Exists(s) Then dic(s) = Array(, 0, 0, 0, 0, 0, 0, 0)
            dic(s) = Array(v(i, 1), dic(s)(1) + v(i, 2), dic(s)(2) + v(i, 3), dic(s)(3) + v(i, 4), dic(s)(4) + v(i, 5), dic(s)(5) + v(i, 6), dic(s)(6) + v(i, 7), dic(s)(7) + v(i, 8))
        Next i
    
        v = Range("J9:Q" & Cells(Rows.Count, 10).End(xlUp).Row).Value
        For i = 1 To UBound(v)
            s = v(i, 1)
            If Not dic.Exists(s) Then dic(s) = Array(, 0, 0, 0, 0, 0, 0, 0)
            dic(s) = Array(v(i, 1), dic(s)(1) + v(i, 2), dic(s)(2) + v(i, 3), dic(s)(3) + v(i, 4), dic(s)(4) + v(i, 5), dic(s)(5) + v(i, 6), dic(s)(6) + v(i, 7), dic(s)(7) + v(i, 8))
        Next i
    
        With r.Offset(1)
            .Offset(-1).Resize(1, 8).Value = Array("الشهر / السنة", "مبلغ 1", "مبلغ 2", "مبلغ 3", "مبلغ 4", "مبلغ 5", "مبلغ 6", "مبلغ 7")
            .Offset(-1).Resize(1, 8).Font.Bold = True
            .Resize(dic.Count, 8).Value = Application.Transpose(Application.Transpose(dic.items))
            With .CurrentRegion
                .Replace "0", "", xlWhole
                .Borders.Value = 1
                .Sort Key1:=r.Offset(1), Order1:=xlAscending, Header:=xlYes
                .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter: .NumberFormat = "General"
                .Offset(, 1).Resize(, .Columns.Count - 1).NumberFormat = "0.00"
            End With
        End With
    Application.ScreenUpdating = True
End Sub



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




13-09-2017 12:47 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif كيفية جمع جدولين على حسب التاريخ ووضع الناتج في جدول ثالث
بارك الله فيك أخي الكريم عبد الله
ليس لدي حل بالمعادلات .. ويرجى فيما بعد تحديد طلبك في الموضوع .. إذا ما كنت تريد الحل بالمعادلات أو بالأكواد ، توفيراً لوقت الأعضاء
تقبل تحياتي






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية عمل فورم من خلال الفرام وتعديل التاريخ ب السباين بوتن الجزء التاسع مجدى يونس
2 544 مجدى يونس
كيفية تعديل التاريخ على الاكسيل ahmedsalem065
8 685 YasserKhalil
كيفية تحويل التاريخ الهجرى الى ميلادى مهند محسن
12 1464 ahmed kroos

الكلمات الدلالية
كيفية ، جدولين ، التاريخ ، ووضع ، الناتج ، جدول ، ثالث ،


 








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

الساعة الآن 07:37 مساء

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