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

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


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





كود يخبرنا برسالة عن عدم تحقق التنسيق الشرطي

السلام عليكم ورحمة الله وبركاته اخوتي الأعزاء ارجو المساعدة في الموضوع الاتي القيم المكتوبة بالالون الاحمر هي نتيجة تنسي ..


موضوع مغلق


11-08-2022 03:43 مساء
اسامة ياسر
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 15-06-2022
رقم العضوية : 24390
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 1-1-1990
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
 offline 

السلام عليكم ورحمة الله وبركاته
اخوتي الأعزاء ارجو المساعدة في الموضوع الاتي
القيم المكتوبة بالالون الاحمر هي نتيجة تنسيق شرطي . 
المطلوب كود عند الوقوف على أي خلية من الاعمدة الملونة ولم يتحقق بها التنسيق الشرطي تظهر رسالة مفادها ان الخلية لم تحقق الشرط المطلوب.



وفقكم الله لكل خير
 
 
  كود التنسيق الشرطي.xlsx   تحميل xlsx مرات التحميل :(4)
الحجم :(31.812) KB



أفضل إجابة مقدمة من osama barawy وهي:
السلام عليكم
يمكنك إضافة الكود التالي الى حدث تغيير الخليه فى الشيت  كما بالملف المرفق

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim DataRange As Range

    Set DataRange = ThisWorkbook.Worksheets("ورقة2").Range("$E$2:$E$3000")
  
    If WorksheetFunction.CountIf(DataRange, ActiveCell.Value) > 0 Then MsgBox "الخلية لم تحقق الشرط المطلوب"
End Sub


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

عرض الإجابة




15-08-2022 03:24 مساء
مشاهدة مشاركة منفردة [1]
osama barawy
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-10-2017
رقم العضوية : 1307
المشاركات : 24
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 27-5-1970
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 330
عدد الإجابات: 11
 offline 
look/images/icons/i1.gif كود يخبرنا برسالة عن عدم تحقق التنسيق الشرطي
السلام عليكم
يمكنك إضافة الكود التالي الى حدث تغيير الخليه فى الشيت  كما بالملف المرفق

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim DataRange As Range

    Set DataRange = ThisWorkbook.Worksheets("ورقة2").Range("$E$2:$E$3000")
  
    If WorksheetFunction.CountIf(DataRange, ActiveCell.Value) > 0 Then MsgBox "الخلية لم تحقق الشرط المطلوب"
End Sub


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
 
  كود التنسيق الشرطي.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(38.164) KB




الكلمات الدلالية
يخبرنا ، برسالة ، تحقق ، التنسيق ، الشرطي ،

« طرح صفوف غير مرتبة بشرط تكرار صفوف اخرى | بحاجة الى كود ترحيل »

 










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

الساعة الآن 10:52 صباحا
Privacy Policy | سياسة الخصوصية