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



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





جمع خلايا معينة

مسا الخير جميعا الملف المرفق عبارة عن مجموعة ما الاعمدة التي تحتوي ارقام الحالة الي بدي ياها شفتها عند مدقق الحسابات ب ..



16-04-2018 03:40 مساء
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 452
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 464
الاعجاب : 184
 offline 

مسا الخير جميعا 
الملف المرفق عبارة عن مجموعة ما الاعمدة التي تحتوي ارقام 
الحالة الي بدي ياها شفتها عند مدقق الحسابات بس ما عندي فكرا اذا كانت بالاكسل او بغيرها 
حيث انه لما يحدد مجموعة من الخلايا بظهر اسفل العامود text box يحتوي على المجموع بحيث انو كل عامود منفصل عن الاخر 
بمعنى لو حددة خليتين بالعامود الاول a1,a5 يقوم باظهار text box ويضع مجموعهم في هذا ال text box الذي يظهر اسفل اخر خلية محددة 
اما لو قمت بتحديد اكثر من خليتين باعمدة مختلفة مثل a1,a6,c7,c10 يقوم باظهار 2 text box موازيات لبعض اسفل كل عمود ويظهر مجاميع الخلايا بهم 
والملف المرفق عبارة عن تصور للمطلوب على اعتبارالخلية الملونة هي الخلية المحددة 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  sum.rar   تحميل rar مرات التحميل :(13)
الحجم :(16.189) KB


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





16-04-2018 09:54 مساء
مشاهدة مشاركة منفردة [1]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 452
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 464
الاعجاب : 184
 offline 
look/images/icons/i1.gif جمع خلايا معينة
up.....





17-04-2018 03:15 صباحا
مشاهدة مشاركة منفردة [2]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 452
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 464
الاعجاب : 184
 offline 
look/images/icons/i1.gif جمع خلايا معينة
Up......





17-04-2018 05:34 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 298
قوة السمعة : 11392
الاعجاب : 4046
 offline 
look/images/icons/i1.gif جمع خلايا معينة
السلام عليكم أخي الكريم خالد
جرب الكود التالي عله يفي بالغرض إن شاء الله
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim x1          As Double
    Dim x2          As Double
    Dim x3          As Double
    Dim c           As Range

    For Each c In Selection
        If c.Column = 2 Then
            x1 = x1 + c.Value
        ElseIf c.Column = 4 Then
            x2 = x2 + c.Value
        ElseIf c.Column = 6 Then
            x3 = x3 + c.Value
        End If
    Next c

    With ActiveSheet
        .TextBox1.Text = x1
        .TextBox2.Text = x2
        .TextBox3.Text = x3
    End With
End Sub

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




17-04-2018 07:14 صباحا
مشاهدة مشاركة منفردة [4]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 452
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 464
الاعجاب : 184
 offline 
look/images/icons/i1.gif جمع خلايا معينة
للاسف لا يعمل يظهر debug عند هذه النقطة
   .TextBox1.Text = x1





17-04-2018 07:16 صباحا
مشاهدة مشاركة منفردة [5]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 452
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 464
الاعجاب : 184
 offline 
look/images/icons/i1.gif جمع خلايا معينة
وهاي ملاحظة الdebug

Object doesn't support this property or m*ethod (Error 438)





17-04-2018 08:11 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 298
قوة السمعة : 11392
الاعجاب : 4046
 offline 
look/images/icons/i1.gif جمع خلايا معينة
ما هي نسخة الأوفيس التي تعمل عليها؟
الكود يعمل عندي بشكل عادي ولا مشكلة على الإطلاق
 





17-04-2018 08:12 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 298
قوة السمعة : 11392
الاعجاب : 4046
 offline 
look/images/icons/i1.gif جمع خلايا معينة
بالمناسبة يمكن تكون وضعت الكود في الموديول .. الكود يوضع في حدث ورقة العمل ..
كليك يمين على ورقة العمل ثم View Code ثم الصق الكود الذي وضعته آنفاً 





17-04-2018 09:05 صباحا
مشاهدة مشاركة منفردة [8]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 452
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 464
الاعجاب : 184
 offline 
look/images/icons/i1.gif جمع خلايا معينة
انا وضعت الكود في حدث الورقة 
حاليا في العمل اعمل على اكسل 2007 
وعندي بالمنزل اكسل 365 + 2010





17-04-2018 09:23 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 298
قوة السمعة : 11392
الاعجاب : 4046
 offline 
look/images/icons/i1.gif جمع خلايا معينة
هل الكود لا يعمل في كلتا النسختين؟!!! g





17-04-2018 09:29 صباحا
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 298
قوة السمعة : 11392
الاعجاب : 4046
 offline 
look/images/icons/i1.gif جمع خلايا معينة
جرب الكود بهذا الشكل (رغم أن الأول يعمل على أوفيس 2016 بدون مشاكل)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim x1          As Double
    Dim x2          As Double
    Dim x3          As Double
    Dim c           As Range

    For Each c In Selection
        If c.Column = 2 Then
            x1 = x1 + c.Value
        ElseIf c.Column = 4 Then
            x2 = x2 + c.Value
        ElseIf c.Column = 6 Then
            x3 = x3 + c.Value
        End If
    Next c

    With ActiveSheet
        .OLEObjects("TextBox1").Object.Text = x1
        .OLEObjects("TextBox2").Object.Text = x2
        .OLEObjects("TextBox3").Object.Text = x3
    End With
End Sub

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




17-04-2018 09:43 صباحا
مشاهدة مشاركة منفردة [11]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 452
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 464
الاعجاب : 184
 offline 
look/images/icons/i1.gif جمع خلايا معينة
صراحتا انا ما جربت الكود على 2016 
فانا اعتر على سؤء الفهم الي حدث





17-04-2018 09:45 صباحا
مشاهدة مشاركة منفردة [12]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 452
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 464
الاعجاب : 184
 offline 
look/images/icons/i1.gif جمع خلايا معينة
ايضا الكود الجديد لم ليعمل على اكسل 2007 
ولتجربته على اكسل 2016 او 2010 سوف انتظر الى المساء عند العودة للمنزل 






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيف جمع المبالغ من الشيتات التي سوف تضاف في المستقبل للملف ابوعلي الحبيب
28 318 YasserKhalil
خطبة الجمعة - المجَالِسُ وَدَوْرُهَا فِي غَرْسِ الْقِيَمِ عبدالجيد
0 78 عبدالجيد
استخراج القيم الفريدة في عمودين وجمع الإجمالي باستخدام كائن القاموس YasserKhalil
27 975 YasserKhalil
جمع نطاق بين تاريخين من خلال تكست بوكس ibrahem ali
24 468 Excelawy
برنامج مجانى للجمعيات الخيرية ali mohamed ali
8 246 Excelawy

الكلمات الدلالية
خلايا ، معينة ،


 







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



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

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