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

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


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





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

السلام عليكم قمت بتصميم كود يقوم بالأتى : 1- الحصول على اطوال مجوعة خلايا متفرقة (الخلايا الصفراء فى هذا المثال) ووضع ال ..


موضوع مغلق


08-01-2022 01:16 صباحا
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 

السلام عليكم
قمت بتصميم كود يقوم
بالأتى :

1- الحصول على اطوال مجوعة خلايا متفرقة (الخلايا الصفراء فى هذا المثال) ووضع الناتج فى الخلية E2

2- الحصول على مجموع الاعداد بخلايا متفرقة (الخلايا الزرقاء فى هذا المثال) ووضع الناتج فى الخلية J2

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





 
  اطوال مجموعة خلايا.jpg   تحميل jpg اطوال مجموعة خلايا.jpg مرات التحميل :(1)
الحجم :(132.167) KB
 
  كود للحصول على طول مجموعة خلايا.zip   تحميل zip مرات التحميل :(8)
الحجم :(19.336) KB



أفضل إجابة مقدمة من hassona229 وهي:
وعليكم السلام ورحمة الله وبركاته 

تفضل جرب هذا التعديل 
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

 
عرض الإجابة




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

تفضل جرب هذا التعديل 
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

 

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



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


 










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

الساعة الآن 05:59 مساء