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

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

قام بنشر

السلام عليكم

 

بارك الله فيكم على كل هذه المعلومات

لذي صفحة ورد خاصة بكميات الأنتاج ونوريد عندما يصبح إنتاج اليومي اصغر من انتاج امس يتغير السهم من الأتجاه الاعلى الى الاسفل وكذلك لون السهم الى اللون الاحمر والعكس الى الاتجاه الاعلى ولون الاخضر

 

وشكراً..........

1.jpg

قام بنشر (معدل)

أخينا في الله  - الله يسعد صباحك و مساك 

ويديم عليك الصحة و العافية 

ويزيدك من علمه

هل من الممكن شرح كيف تم هذا التنسيق المذهل ..................... يا مذهل 

 

تم تعديل بواسطه وائل يونس سلامي
قام بنشر

السلام عليكم

- اختر الخلية التي سيظهر فيها السهم

- من القائمة الرئيسة اضغط على أيقونة التنسيق الشرطي

- تظهر قائمة منسدلة اختر ICON SET فتظهر قائمة أخرى فاختار  NEW RUKES

- من هنا يمكنك اختيار الاسهم والشروط التي ترغبها ......

أرجو أن أكون قد افدتك

قام بنشر
19 minutes ago, محي الدين ابو البشر said:

السلام عليكم

- اختر الخلية التي سيظهر فيها السهم

- من القائمة الرئيسة اضغط على أيقونة التنسيق الشرطي

- تظهر قائمة منسدلة اختر ICON SET فتظهر قائمة أخرى فاختار  NEW RUKES

- من هنا يمكنك اختيار الاسهم والشروط التي ترغبها ......

أرجو أن أكون قد افدتك

جربت هكذا و لم تشتغل معي لان الخلية يجب ان يكون بها قيمة...

كما انه في الملف المرسل اعتقد انه لم يشتغل عن طريق التنسيق الشرطي

لانك لو ذهبت لخلية السهم و قمت بحذف الشروط

clear rules

سيبقى السهم موجود،

؟؟؟؟

 

قام بنشر

السلام عليكم

اخي كريم

التنسيق الشرطي وضعته فقط في الخانة C9  و الخانة B9  لتتلون القيم بالاحمر و الاخضر

اما عن الاسهم فهي تتغير من الاحمر الى الاخضر او بالعكس عن طريق كود موجود في الصفحة و هذا نصه :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Val(Range("C9").Value) > Val(Range("B9").Value) Then
Me.Shapes("Flech2").Visible = msoFalse
Me.Shapes("Flech1").Visible = msoCTrue
Else
Me.Shapes("Flech2").Visible = msoCTrue
Me.Shapes("Flech1").Visible = msoFalse
End If

End Sub

و كما ذكر اخي محي الدين توجد طريقة تغيير لون السهم بالتنسيق الشرطي لكنني لم اجربها في تغيير السهم جربتها في تغيير التاريخ فقط

 

  • Like 1
قام بنشر (معدل)

شكرا خي

اشتغلت معي....

لم انتبه انك وضعت ميكرو...

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Val(Range("C9").Value) > Val(Range("B9").Value) Then
Me.Shapes("aaa").Visible = msoFalse
Me.Shapes("bbb").Visible = msoCTrue
Me.Shapes("ccc").Visible = msoFalse
Else
Me.Shapes("aaa").Visible = msoCTrue
Me.Shapes("bbb").Visible = msoFalse
Me.Shapes("ccc").Visible = msoFalse
End If

If Val(Range("C9").Value) = Val(Range("B9").Value) Then
Me.Shapes("aaa").Visible = msoFalse
Me.Shapes("bbb").Visible = msoFalse
Me.Shapes("ccc").Visible = msoCTrue

End If

End Sub

 

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

يعني كعملية حسابية

و هذا حسب ما اعلم

جربتها و لكن طريقتك افضل

تم تعديل بواسطه كريم الفلسطيني

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