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

تلوين صف حسب حركة المؤشر


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

السلام عليكم

كود تم تجميعه من المنتدى

لكن به مشكلتين لم اتمكن من حلهما

- أريد ان يكون التلوين لعدة خلايا من الصف فقط

- أريد أن تحافظ الصفوف الثلاثة الأولى على تنسيقها

نرفق ملف

____________________________.rar

رابط هذا التعليق
شارك

السلام عليكم

الصف الاول يحافظ على تنسيقه

اذا اردت اول ثلاث صفوف غير من if r>1 to if r > 3

____________________________2.rar

رابط هذا التعليق
شارك

أخي أبو أسامة

أرجو منك اضافة شرط بحيث اذا وضع المؤشر في خلية خارج الجدول

لكن ضمن الصفوف 2 إلى 18 لا يتم تلوين الصف

وشرط يلغي لون الصف الأول بالجدول لدى تحريك المؤشر بعيدا عنه

ويعود اللون لدى عودة المؤشر له

و إن أمكن دوال الفيجوال وما تفعله بالعربي

يعني شرح لكل دالات الفيجوال عربيا

فلقد وجدت شرحا اجنبيا ولغتي الانجليزية ضعيفة

لو سمحت

والسلام ختام :cool2:

رابط هذا التعليق
شارك

مشكور وجزاك الله كل خير على النصيحة

لكن أنا قصدت الدالة المكتوبة بالانجليزي

ما ذا تفعل وشرح عملها بالعربي

أما ان كان قصدك الشرح فصعب لأن بداية لغتي فرنسي

أما البيسك فلقد بدأت باللغة الأم البسيك القديم

وتفوقت نوعا ما فيه

لكني لم أدخل الفيجوال بيسك نهائيا

ولم أتعرف دواله

أما الأساسيات من دالة الشرط وإلا ودالة ال ( و ) ( أو ) ....

فمجودة

لكني بحاجة للبداية

ومن المقارنة بما قمت بتعديله أنت على الملف اكتسبت بعض الأشياء

لكني بحاجة للمساعدة بأن أسأل عن بعض الكلمات

مثل target مثلا فهي ثابت أما row و Column فهما الأسطر والأعمدة ؟؟؟؟؟؟؟

صحيح ؟

آسف على الإطالة لكني شخص متعب :wub:

مشكور وزادك الله من علمه النافع

والسلام ختام :cool2:

رابط هذا التعليق
شارك

مشكور أخي الحبيب على التوضيح

لكن أتمنى من أي خبير

أن يشرح الخطوة التي قام بها

ولو كان موضوع خاص لتوضيح الخطوات

بحيث يستطيع كل متابع التعديل عليها ومتابعة أخطائه

والاستفادة

واستطعت تعديل الألوان وعملية تلوينها بشكل معقول

لكن كثير من الخطوات ما زالت مبهمة بالنسبة لي

أرجو منك تحمل لجاجتي

لكني لا أحب أن أقرأ شيئا دون فهمه والتعديل عليه

وإن أمكن شرح خطوات البرنامج سطرا سطرا

إن أمكن لفهم آلية عمل البرنامج

والسلام ختام :cool2:

رابط هذا التعليق
شارك

السلام عليكم

اخي

و بعد اذن اخي ابو اسامه

R = Target.Row
c = Target.Column
If R > 1 And R < 19 And c < 15 Then
Range("RR").Interior.ColorIndex = xlNone
Range("FR").Interior.ColorIndex = 6
Range(Cells(R, 1), Cells(R, 15)).Interior.ColorIndex = 3
Else
Range("RR").Interior.ColorIndex = xlNone
Range("FR").Interior.ColorIndex = xlNone
End If

اخي السطر الاول يقصد به ان ال R تمثل الصف المستهدف

اما السطر الثاني يقصد به ان ال C تمثل العمود المستهدف

السطر الثالث اذا كانت الخليه التي نحددها بالماوس بين العمود الاول و العمود ال 19 قبل العمود ال 15 فانه

فان النطاق المسمي داخل الشيت و هو RR يكون بلا لون وهو الذي من الصف 2 الي الصف 18 لتفريغ اي لو بالنطاق

و النطاق المسمي داخل الشيت و هو FR و المقصود به الصف الاول يكون اللون =6 و هو الاصفر

و الصف الذي تقع به هذه الخليه المحدده يمثل الخلايا التي تحت الاعمده من 1 الي 15 يكون لونه 3 و هو الاحمر

غير ذلك

اي(اذا كانت الخلية التي نحددها تقع خارج النطاق الذي حدد و هو بين العمود الاول و العمود 19 يعني الصف 2 و الصف 18)

و قد تمثلت قيمة الصف بال R لاخذ نفس قيم الاعمده من 1 الي 19 للصفوف

فانه

النطاق المسمي داخل الشيت و هو RR يكون بلا لون

النطاق المسمي داخل الشيت و هو FR يكون بلا لون

اتمني اكون وفقت بالتوضيح

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

فابدا بالصعب للتسهيل عليك فيما بعد

ارجو ان يعذرني اخي ابو اسامه لتدخلي هذا دون اذن

خالص تحياتي

تم تعديل بواسطه aah_aah2008
رابط هذا التعليق
شارك

:clapping::clapping::clapping:

الله أكبر

هذا هو المطلوب

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

وسأسعى لتعديل البرنامج ومع كل خطأ سأسأل الخبراء

جزاهم الله عنا كل خير

وأعود وأشكرك أخي aah_aah2008 على الجهد

وأشكر أخي أبو أسامة على نصيحته وسأحاول العمل بها

:wub: خجل أمام صنيعكم مشكورين

وفي ميزان حسناتكم

والسلام ختام :cool2:

رابط هذا التعليق
شارك

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