اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر
  في 16‏/5‏/2016 at 11:10, عبدالسلام ابوالعوافي said:

باستخدام دالة اف مع احدى الدوال التكرارية لفحص كل الخلايا في النطاق .. فاذا توفر الشرط تقوم بتنفيد الاجراء

Expand  

حضرتك تقصد بالكود ولا معادله عاديه

لو كود يا ريت حضرتك تذكرها ولو معادله عاديه يبقي لازم اكتب في كل خليه كل  الاحتمالات واعتقد انه هيكون صعب نظرا لكثرا الاحتمالات و كثره النطاقات

المرفق

Range.rar

قام بنشر
  في 16‏/5‏/2016 at 11:31, عبدالسلام ابوالعوافي said:

اخي الكريم .. انت سألت بشكل عام واجبتك علي حسب سؤالك ... الفكرة تكون كالاتي

    Dim RNG As Range
    For Each RNG In (YourRange)
        If RNG = (YourCondition) Then (YourProcedure)
    Next

 

Expand  

اخي عبد السلام

حاولت انفذ الكود لكن يظهر خطا

برجاء تنفيذ الكود علي المرفق 

ولحضرتك كل الشكر

قام بنشر
  في 16‏/5‏/2016 at 12:10, عبدالسلام ابوالعوافي said:

لم انتبه للمرفق .. لكن بعد الاطلاع عليه فضلت استخدام معادلة بدل الكود 

Range.rarFetching info...

Expand  

المثال رائع

الف شكر لحضرتك

لكن اسف لاني لم اوضح مطلبي من البدايه

حضرتك انا اريد ان ياخد النطاق كله لون اصفر مثلا لو وجدت في احدي خلاياه قيمه الخليه الشرطيه

واسف جدا لتعب حضرتك

قام بنشر
  في 16‏/5‏/2016 at 12:26, عبدالسلام ابوالعوافي said:

اخي الكريم .. كيف يعني ياخد النطاق ؟ من الصعب الاجابة علي سؤال مبهم وغير واضح 

Expand  

يعني النطاق كله يتلون بلون اصفر لو كان موجود فيه قيمه تماثل الخليه الشرطيه

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information