logo

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



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


  1. أكاديمية الصقر للتدريب
  3. منتدى الاكسيل
  5. اكسيل اسئله واجابات
  7. كود للحصول على اطوال مجموعة خلايا + مجموع عدة خلايا متفرقة


موضوع مغلق


  • تمت الإجابة
subject icon تمت الإجابة كود للحصول على اطوال مجموعة خلايا + مجموع عدة خلايا متفرقة
08-01-2022 01:16 صباحاً
صورة أباالحسن الشخصية
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 350
الجنس :
تاريخ الميلاد : 7-7-1979
الدعوات : 1
قوة السمعة : 934
الاعجاب : 1
من مواضيع :أباالحسن
كود للحصول على اطوال مجمو ..
كنترول أبي الحسن - إعدادى ..
الترحيل لجدول به اعمدة مت ..
مسح بيانات من نطاق مرن مت ..
كود لنسخ بيانات من ملف اس ..

<p style="language:ar-EG;margin-top:0pt;margin-bottom:0pt;margin-right:0in;
text-indent:0in;text-align:right;direction:rtl;unicode-bidi:embed"> السلام عليكم
قمت بتصميم كود يقوم بالأتى : [/p]

<p style="language:ar-EG;margin-top:0pt;margin-bottom:0pt;margin-right:0in;
text-indent:0in;text-align:right;direction:rtl;unicode-bidi:embed"> 1- الحصول على اطوال مجوعة خلايا متفرقة (الخلايا الصفراء فى هذا المثال) ووضع الناتج فى الخلية E2 [/p]

<p style="language:ar-EG;line-height:normal;margin-top:0pt;margin-bottom:0pt;
margin-right:0in;margin-left:0in;text-indent:0in;text-align:right;direction:
rtl;unicode-bidi:embed;mso-vertical-align-alt:auto;mso-line-break-override:
none;word-break:normal;punctuation-wrap:hanging"> 2- الحصول على مجموع الاعداد بخلايا متفرقة (الخلايا الزرقاء فى هذا المثال) ووضع الناتج فى الخلية J2 [/p]

<p style="language:ar-EG;margin-top:0pt;margin-bottom:0pt;margin-right:0in;
text-indent:0in;text-align:right;direction:rtl;unicode-bidi:embed"> 3- التاكد من مطابقة الاسماء والارقام التى بالصف 5 و 6 للاسماء والارقام التى بالصف 15 و 16
والمطلوب
اختصار الكود أو استخدام المصفوفات ان امكن بحيث يعمل الكود بشكل اسرع (خاصة وإن الملف الحقيقى بها مجموعة كبيرة من الخلايا)
مرفق الملف لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
MzQwMzgwMQ7272%D8%A7%D8%B7%D9%88%D8%A7%D9%84%20%D9%85%D8%AC%D9%85%D9%88%D8%B9%D8%A9%20%D8%AE%D9%84%D8%A7%D9%8A%D8%A7[/p]
 
  اطوال مجموعة خلايا.jpg   تحميل jpg اطوال مجموعة خلايا.jpg مرات التحميل :(1)
الحجم :(132.167) KB
 
  كود للحصول على طول مجموعة خلايا.zip   تحميل zip مرات التحميل :(8)
الحجم :(19.336) KB





look/images/icons/i1.gif كود للحصول على اطوال مجموعة خلايا + مجموع عدة خلايا متفرقة
  09-01-2022 05:04 مساءً   [1]
صورة hassona229 الشخصية
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 794
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3874
الاعجاب : 7
وعليكم السلام ورحمة الله وبركاته

تفضل جرب هذا التعديل
CODE


Sub My_Code()
    Dim WS As Worksheet
    Set WS = ThisWorkbook.Sheets("Sheet1")
    On Error GoTo ErrMsg
    WS.Range("E2").Value = Len(WS.Range("B5")) + Len(WS.Range("B6")) + Len(WS.Range("E5")) + Len(WS.Range("E6"))
    WS.Range("J2").Value = WorksheetFunction.Round(WS.Range("H5").Value + WS.Range("J5").Value, 0)
    WS.Range("D10").Value = IIf(WS.Range("B15") = WS.Range("B5") _
                                And WS.Range("E15") = WS.Range("E5") _
                                And WS.Range("H15") = WS.Range("H5") _
                                And WS.Range("J15") = WS.Range("J5") _
                                , "Yes", "No")
    Exit Sub
ErrMsg:
    MsgBox " - - - لم يتم تنفيذ المطلوب ، هناك خطأ ما - - -", vbCritical, ""
End Sub

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



look/images/icons/i1.gif كود للحصول على اطوال مجموعة خلايا + مجموع عدة خلايا متفرقة
  11-01-2022 11:49 مساءً   [2]
صورة أباالحسن الشخصية
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 350
الجنس :
تاريخ الميلاد : 7-7-1979
الدعوات : 1
قوة السمعة : 934
الاعجاب : 1
جزاكم الله خيرا






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ما هى الاضافة للحصول على قيم غير مكرر سعد عابد
 14 1916 YasserKhalil
داله جديده معرفه للحصول على عدة نتائج بنطاق محدد بشرط اللون alsqercolor الصقر
 23 5536 محمود ابو الدهب
معادله للحصول على اخر قيمة بالعمود او الصف - اكاديمية الصقر للتدريب الصقر
 11 3724 YasserKhalil
كود للحصول على اول خلية فارغة فى عمود به بيانات بعضها فارغه أباالحسن
 7 2639 YasserKhalil

الكلمات الدلالية
خلايا ، مجموعة ، اطوال ، للحصول ، متفرقة ، خلايا ، مجموع ،

« توزيع ايرادات شهريا وحساب ايرادات كل عام | فضلا وليس امرا اضافه لكود الاستاذ سليم »








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

الساعة الآن 08:33 AM
سياسة الخصوصية