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

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


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





المطلوب كود جمع خلايا متفرقة رأسيا وأفقيا

السلام عليكم أعضاء المنتدى الكرام أرجو منكم مساعدتى فى وضع كود للمطلوب فى الملف المرفق 1 ـ جمع عدة خلايا متفرقة بنفس الص ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


21-06-2022 05:53 مساء
Haneen Amr
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-01-2018
رقم العضوية : 3478
المشاركات : 25
الجنس : أنثى
تاريخ الميلاد : 12-9-1976
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 36
 offline 

السلام عليكم أعضاء المنتدى الكرام
أرجو منكم مساعدتى فى وضع كود للمطلوب فى الملف المرفق
1 ـ جمع عدة خلايا متفرقة بنفس الصف ( أفقيا ) ووضع قيمة الجمع فى الخلية الأخيرة بالعمود الأخير المحدد ثم الصف الذى يليه وهكذا إلى أن يتم الانتهاء من جمع كافة الصفوف كل على حده
2 ـ جمع كل عمود بداية من الصف 12 إلى الصف 31 ووضع قيمة جمع كل عمود فى الصف ( الاجمالى ) رقم 33
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  مطلوب كود جمع.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(15.29) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
بارك الله فيك أخي الغالي محمد الدسوقي وجزيت خيراً
ممكن نزود شوية سكر كمان ونستخدم جملة With .. End With
Sub Test()
    With Range("S12:U31")
        .Formula = "=SUM(D12,G12,J12,M12,P12)": .Value = .Value
    End With
    With Range("D33:U33")
        .Formula = "=SUM(D12:D31)": .Value = .Value
    End With
End Sub
عرض الإجابة




21-06-2022 06:30 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif المطلوب كود جمع خلايا متفرقة رأسيا وأفقيا
وعليكم السلام أخي الكريم
الموضوع لا يحتاج لكود
ببعض المعادلات البسيطة يمكنك تحقيق المطلوب
سأعطيك مثالاً وقم بتنفيذه بنفسك على بقية الأعمدة
في الخلية S12 ضع المعادلة بالشكل التالي
=SUM(D12,G12,J12,M12,P12)


حيث ستقوم المعادلة بجمع القيم من الأعمدة المطلوبة (الأعمدة باللون الأصفر)

يمكنك عمل نفس المعادلة مع تغيير مراجع الخلايا ليتناسب مع طلبك

22-06-2022 09:54 مساء
مشاهدة مشاركة منفردة [2]
Haneen Amr
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-01-2018
رقم العضوية : 3478
المشاركات : 25
الجنس : أنثى
تاريخ الميلاد : 12-9-1976
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 36
 offline 
look/images/icons/i1.gif المطلوب كود جمع خلايا متفرقة رأسيا وأفقيا
تحياتى لمجهوداتكم الوفيرة
ولكن أطمع فى أن يكون الحل بالأكواد وليس بالمعادلات
جمع الصفوف افقيا
وجمع الأعمدة رأسيا

23-06-2022 09:04 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif المطلوب كود جمع خلايا متفرقة رأسيا وأفقيا
سطرين بالكود يفوا بالغرض بإذن الله
Sub Test()
    Range("S12:U31").Formula = "=SUM(D12,G12,J12,M12,P12)"
    Range("D33:U33").Formula = "=SUM(D12:D31)"
End Sub

23-06-2022 09:59 مساء
مشاهدة مشاركة منفردة [4]
Haneen Amr
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-01-2018
رقم العضوية : 3478
المشاركات : 25
الجنس : أنثى
تاريخ الميلاد : 12-9-1976
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 36
 offline 
look/images/icons/i1.gif المطلوب كود جمع خلايا متفرقة رأسيا وأفقيا
بارك الله فيك أستاذى الفاضل
وجزاكم الله خيرا
ولو تفضلت عاوز هذه المعادلات تتحول إلى قيم

23-06-2022 10:01 مساء
مشاهدة مشاركة منفردة [5]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 766
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif المطلوب كود جمع خلايا متفرقة رأسيا وأفقيا
تحياتى أستاذى الكبير / أبو البراء
واستكمالا للمطلوب فى المشاركة الأخيرة
يمكن وضع سكر بالكود لتحويل هذه المعادلات إلى قيم
فيكون الكود على الصورة التالية
Sub Test()
    Range("S12:U31").Formula = "=SUM(D12,G12,J12,M12,P12)"
    Range("S12:U31").Value = Range("S12:U31").Value
'         --------------------------------
    Range("D33:U33").Formula = "=SUM(D12:D31)"
    Range("D33:U33").Value = Range("D33:U33").Value
End Sub


24-06-2022 05:52 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif المطلوب كود جمع خلايا متفرقة رأسيا وأفقيا
بارك الله فيك أخي الغالي محمد الدسوقي وجزيت خيراً
ممكن نزود شوية سكر كمان ونستخدم جملة With .. End With
Sub Test()
    With Range("S12:U31")
        .Formula = "=SUM(D12,G12,J12,M12,P12)": .Value = .Value
    End With
    With Range("D33:U33")
        .Formula = "=SUM(D12:D31)": .Value = .Value
    End With
End Sub


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
المطلوب ، خلايا ، متفرقة ، رأسيا ، وأفقيا ،


 










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

الساعة الآن 06:26 مساء