طلب كود تلوين

[الـمـاتادور]

السلام عليكم
اريد كود تلوين ضمن النطاق AE9:AJ59

بحيث يلون اي قيمة بين 15000 و 50000 باللون الاصفر الفاتح
وبين 50000 و 75000 باللون الاصفر الغامق
وبين 75000 و 100000 باللون البرتقالي
وفوق ال 100000 باللون الاحمر

والشكر مرفوع سلفا

[سليم حاصبيا]

دائماً يلزم بيانات لتجربة الكود

فليس من المعقول ان يقوم احد بتعبئة عدة أعمدة(6) في 50 صف اي اكثر من 300 رقم لاجراء اختبار كود عنك

على كل حال جرب هذا الكود

Option Explicit

Sub talween()
Dim my_rg As Range, CEl As Range
Set my_rg = Range("AE9:AJ59")
my_rg.Interior.ColorIndex = 0
Dim my_colore As Byte

For Each CEl In my_rg
    If IsNumeric(CEl) Then
        Select Case CEl.Value
          Case Is < 15000: my_colore = 0
          Case Is <= 50000: my_colore = 19
          Case Is <= 75000: my_colore = 6
          Case Is <= 100000: my_colore = 44
          Case Else: my_colore = 3
        End Select
        CEl.Interior.ColorIndex = my_colore
     End If
 Next
End Sub

 

[الـمـاتادور]

هذا الملف استاذي الكريم

آذار.rar

[سليم حاصبيا]

1 دقيقه مضت, الـمـاتادور said:

هذا الملف استاذي الكريم

آذار.rar 51.21 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

ضع الكود في الملف و قم بتنفيذه و اعلمني بالنتيحة

[الـمـاتادور]

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

[سليم حاصبيا]

19 دقائق مضت, الـمـاتادور said:

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

الملف مع الكود

أضغط فقط على الزر Click_Me

Mars.xlsm

[الـمـاتادور]

والله عالراس والعين يا استاذ
بس في مجال يتطبق الكود تلقائيا بدون زر 
لأن الملف احيانا بيصير فيه اكتر من صفحة 
علما انو هادا الجدول مكانو ثابت بكل الصفحات