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



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




17-04-2018 05:34 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3098
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8706
الاعجاب : 2911
 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



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



الساعة الآن 12:10 مساء

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