كود تنسيق شرطى

[Ahmed Saad 2017]

 المطلوب عمل كود تنسيق شرطي بحيث يتم تلوين الخلية في العمود Y الاصغر من صفر بلون احمر و الاكبر من صفر بلون اخضر والتي تساوي صفر بلون بني فاتح كما موضح بالمثال

Test VBA Color.xlsxوشكرا لسيادتكم   

[Ali Mohamed Ali]

تفضل لك ما طلبت

 

Test VBA Color.xlsx

[Ahmed Saad 2017]

1 ساعه مضت, ali mohamed ali said:

تفضل لك ما طلبت

 

Test VBA Color.xlsx

الاستاذ علي المحترم 

شكرا لسيادتك علي المساعدة ولكن المطلوب كود VBA وليس تنسيق شرطي كما مرسل من حضرتك 

في انتظار الحل اذا امكن

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

هذا الكود مناسب لهذه الحالة

Option Explicit
Sub talween()
Dim my_sh As Worksheet
Dim n_colore As Byte
Dim i%
Set my_sh = Sheets("Material.Chart2018")
Dim lr%: lr = my_sh.Cells(Rows.Count, "y").End(3).Row
If lr < 11 Then lr = 11
 For i = 11 To lr
   my_sh.Cells(i, "y").Interior.ColorIndex = 0
  Select Case my_sh.Cells(i, "y").Value
   Case Is < 0: n_colore = 6
   Case Is = 0: n_colore = 3
   Case Is > 0: n_colore = 43
  
   End Select
    my_sh.Cells(i, "y").Interior.ColorIndex = n_colore
  Next
End Sub

 

[Ahmed Saad 2017]

20 ساعات مضت, سليم حاصبيا said:

هذا الكود مناسب لهذه الحالة

Option Explicit
Sub talween()
Dim my_sh As Worksheet
Dim n_colore As Byte
Dim i%
Set my_sh = Sheets("Material.Chart2018")
Dim lr%: lr = my_sh.Cells(Rows.Count, "y").End(3).Row
If lr < 11 Then lr = 11
 For i = 11 To lr
   my_sh.Cells(i, "y").Interior.ColorIndex = 0
  Select Case my_sh.Cells(i, "y").Value
   Case Is < 0: n_colore = 6
   Case Is = 0: n_colore = 3
   Case Is > 0: n_colore = 43
  
   End Select
    my_sh.Cells(i, "y").Interior.ColorIndex = n_colore
  Next
End Sub

  

الاستاذ سليم المحترم 

تحية طيبة وبعد 

تم تجربة الكود ويعمل بشكل جيد ولكن دون تحقيق الشرط حيث تم تلوين الخلايا بطريقة عشوائية دون تحقيق الشروط المرسلة برجاء المراجعة وشكرا لسيادتك

[Ahmed Saad 2017]

الاستاذ سليم تم تعديل الكود ويعمل بشكل ممتاز جزاك الله كل خير 

[Ahmed Saad 2017]

في ٢٣‏/١٢‏/٢٠١٨ at 16:02, سليم حاصبيا said:

هذا الكود مناسب لهذه الحالة

Option Explicit
Sub talween()
Dim my_sh As Worksheet
Dim n_colore As Byte
Dim i%
Set my_sh = Sheets("Material.Chart2018")
Dim lr%: lr = my_sh.Cells(Rows.Count, "y").End(3).Row
If lr < 11 Then lr = 11
 For i = 11 To lr
   my_sh.Cells(i, "y").Interior.ColorIndex = 0
  Select Case my_sh.Cells(i, "y").Value
   Case Is < 0: n_colore = 6
   Case Is = 0: n_colore = 3
   Case Is > 0: n_colore = 43
  
   End Select
    my_sh.Cells(i, "y").Interior.ColorIndex = n_colore
  Next
End Sub

  

الاستاذ سليم المحترم 

تحية طيبة وبعد 

تم تجربة الكود ويعمل بشكل جيد ولكن دون تحقيق الشرط حيث تم تلوين الخلايا بطريقة عشوائية دون تحقيق الشروط المرسلة برجاء المراجعة وشكرا لسيادتك