اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليك

تفضل اخي ربما يفي بالغرض

شكرا لك ياغالى على ردك ولكن المشكلة ان الخلية المطلوب تغيير اللون تبعها بها معادلة وناتج المعادلة هو 1 ولا تعطيني النتيجة المطلوبه

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

أليك أخي ماطلبت

أخي جميع المعادلات السابقة ومعادلتك أيضا صحيحة ولكن تنسيق رقمك في الخلية تنسيق ( text) أي يجب وضعة بين علامتي تنصيص

التلوين بشرط.rar

تم تعديل بواسطه mahmoud-lee
  • Like 1
قام بنشر

أليك أخي ماطلبت

أخي جميع المعادلات السابقة ومعادلتك أيضا صحيحة ولكن تنسيق رقمك في الخلية تنسيق ( text) أي يجب وضعة بين علامتي تنصيص

بارك الله فيك يا اخي وجعله في ميزان حسناتك ( تحقق المطلوب ولك جزيل الشكر)

  • 9 months later...
قام بنشر

 

 

طلب اخر من الاخوة الاعضاء هل يمكن قفل الخلايه الملونه بحيث لا يمكن وضع فيها بينات؟

 

اضافة  اخر الى حل اخي الفاضل قنديل الصياد 

الصق الكود في حدث الورقة 

Private Sub Worksheet_SelectionChange(ByVal T As Excel.Range)
Set my_r = Range("B1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
If Not Intersect(T, my_r) Is Nothing Then T.Offset(0, -1).Select
End Sub
  • 5 years later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information