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

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


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





اعطاء قيمة بشروط معينة

السلام عليكم ورحمة الله وبركاته هل المساعدة بكود او معادلة لفعل ذلك؟؟؟ الشرط1: - إذا كان الخلية BG5 = مادة1 او ماد ..


موضوع مغلق

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


30-06-2022 08:31 مساء
محمد محمد حمودة
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-05-2018
رقم العضوية : 6221
المشاركات : 60
الجنس : ذكر
تاريخ الميلاد : 29-1-1984
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 62
 offline 

السلام عليكم ورحمة الله وبركاته
هل المساعدة بكود او معادلة لفعل ذلك؟؟؟
الشرط1:
إذا كان الخلية   BG5  =  مادة1  او مادة2  أو مادة3 او مادة4....الى.... مادة20
- إذا كان الخلية   BF8  =  ل      أو      ج      أو      ج ج
- إذا كان الخلية   BF7  = ""
 وفي حالة تحقق الشروط يتم إعطاء القيمة التي بالخلية    BF6
وفي حالة عدم التحقق لما سبق ينتقل للشرط الثاني التالي
الشرط2:
إذا كان الخلية   BG5  =  مادة1  او مادة2  أو مادة3 او مادة4....الى.... مادة20
- إذا كان الخلية   BF8  =  ل      أو      ج      أو      ج ج
- إذا كان الخلية   BF7 <> ""

 وفي حالة تحقق الشروط يتم إعطاء القيمة التي بالخلية    BF7

وفي حالة عدم تحقق الشرط1، الشرط2   يتم إعطاء     ""       أي فراغ

ويتم تطبيق ذلك بكافة الأعمدة
والناتج يكون بخانة المجموع
 
 
  FILE.rar   تحميل rar مرات التحميل :(6)
الحجم :(24.665) KB



أفضل إجابة مقدمة من osama barawy وهي:
السلام عليكم

اضافة الى حل الاستاذ الفاضل محمد الدسوقى يمكنك اختصار المعادله الموجوده بالملف الاصلى الى المعادله التاليه 
=IF(COUNTIF(SUBJECT!A$2:A$26,BG5)=1,IF(OR(BF8="ل",BF8="ج",BF8="ج ج"),IF(BF7<>"",BF7,BF6),""),"")
واظن انها سوف تفى بالغرض كما بالمرفق التالى
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
عرض الإجابة




30-06-2022 11:13 مساء
مشاهدة مشاركة منفردة [1]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 769
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif اعطاء قيمة بشروط معينة
اتفضل أخى اللكريم
الملف التالى قد يفى بالغرض حسب ما فهمت من الشروط المعطاه
فقط اضغط على زر   Run سيقوم بالمطلوب
والحل بالأكواد كما طلبت
الكود التالى

Sub test()
 Dim sh As Worksheet:    Set sh = Sheets("DATA")
 Dim rng As Range
 Set rng = sh.Range("BG5:BG1000")
 Application.ScreenUpdating = False
 sh.Range("CI5:CI1000").ClearContents
'-------------------------------------------------------------------------------------
For Each c In rng
   
   For x = 1 To 20
     If c.Value = "مادة" & x And c.Offset(3, -1) = "ل" And c.Offset(2, -1) = "" Then
       c.Offset(0, 28) = c.Offset(1, -1)
    
     ElseIf c.Value = "مادة" & x And c.Offset(3, -1) = "ج" And c.Offset(2, -1) = "" Then
       c.Offset(0, 28) = c.Offset(1, -1)
    
     ElseIf c.Value = "مادة" & x And c.Offset(3, -1) = "ج ج" And c.Offset(2, -1) = "" Then
       c.Offset(0, 28) = c.Offset(1, -1)
'          --------------------------------------------------------
     ElseIf c.Value = "مادة" & x And c.Offset(3, -1) = "ل" And c.Offset(2, -1) <> "" Then
       c.Offset(0, 28) = c.Offset(2, -1)
    
     ElseIf c.Value = "مادة" & x And c.Offset(3, -1) = "ج" And c.Offset(2, -1) <> "" Then
       c.Offset(0, 28) = c.Offset(2, -1)
    
     ElseIf c.Value = "مادة" & x And c.Offset(3, -1) = "ج ج" And c.Offset(2, -1) <> "" Then
       c.Offset(0, 28) = c.Offset(2, -1)
     End If
  Next x
Next c
'-------------------------------------------------------------------------------------
Application.ScreenUpdating = True
End Sub



لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Copy of FILE.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(29.693) KB


30-06-2022 11:42 مساء
مشاهدة مشاركة منفردة [2]
محمد محمد حمودة
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-05-2018
رقم العضوية : 6221
المشاركات : 60
الجنس : ذكر
تاريخ الميلاد : 29-1-1984
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 62
 offline 
look/images/icons/i1.gif اعطاء قيمة بشروط معينة
جزاك الله خيرا استاذ محمد لكن الموادالتي سأقوم بالشغل عليها متغيرة ...ليست كما هي موجوده بالملف!!!!
فهي بالفعل
 النحو - الصرف - المطالعه - الفقه - العقيده.الخ... كما بالملف المرفق التالي
وبالتالي الكود المرفق من حضرتك يطبق فقط على المسميات التالية فقط وهيsadمادة 1 - ماد2 - وهكذا..... والتي قمت بكتابتها استرشادي فقط؟؟؟؟؟
 
 
  FILE-COPY.rar   تحميل rar مرات التحميل :(1)
الحجم :(24.006) KB


01-07-2022 12:02 صباحا
مشاهدة مشاركة منفردة [3]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 769
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif اعطاء قيمة بشروط معينة
أستاذى الغالى
رجاء عند وضع السؤال لابد من التركيز على المطلوب بكل دقة
حضرتك حددت فى السؤال الأول هذه المواد
----------------------------------------
هل هناك مواد أخى لا تنطبق عليها الشروط المطلوبة أم كافة المواد الموجودة بالشيت ينطبق عليها الشروط
 

01-07-2022 12:05 صباحا
مشاهدة مشاركة منفردة [4]
محمد محمد حمودة
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-05-2018
رقم العضوية : 6221
المشاركات : 60
الجنس : ذكر
تاريخ الميلاد : 29-1-1984
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 62
 offline 
look/images/icons/i1.gif اعطاء قيمة بشروط معينة
كافة المواد استاذنا الغالي ينطبق عليها الشروط
واعتذر عن عدم التدقيق في المطلوب بدقه
جزاك الله خيرا

01-07-2022 12:06 صباحا
مشاهدة مشاركة منفردة [5]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 769
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif اعطاء قيمة بشروط معينة
اتفضل الملف التالى بعد اعتبار المواد كلها ينطبق عليها الشروط

  لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  FILE-COPY_MD.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(28.352) KB


01-07-2022 12:12 صباحا
مشاهدة مشاركة منفردة [6]
محمد محمد حمودة
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-05-2018
رقم العضوية : 6221
المشاركات : 60
الجنس : ذكر
تاريخ الميلاد : 29-1-1984
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 62
 offline 
look/images/icons/i1.gif اعطاء قيمة بشروط معينة
جزاك الله خيرا استاذ محمد الدسوقي رائع3
طب حضرتك معلشي لو اردت ادراج بعض المواد ..والأخرى لا...
ما الحل؟؟؟


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


الكلمات الدلالية
اعطاء ، قيمة ، بشروط ، معينة ،


 










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

الساعة الآن 02:23 صباحا