[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

كود :

With MSFlexGrid1
   For j = 1 To .Rows - 1
   
       .Row = j
       For i = 3 To .Cols - 1
           .Col = i
           If Val(.TextMatrix(j, i)) = 0 Then
               .CellBackColor = vbRed
           Else
               .CellBackColor = vbGreen
           End If
       Next
   Next
   
End With

ملاحظة : 
لما تجي تاخذ صورة للشاشة (ما في داعي تصور بالموبايل)  لكن على ويندوز (10) أو (11)  أضغط ع الازرار التالية : 
(Windows) ثم  (Shift) ثم (S)  بحيث تبقى ضاغط عليهن سوياً 
ثم ارفع يدك - وحدد المنطقة التي تريد اخذ اللقطة لها بالماوس مع ضغطة كلك يسار وترفع اصبعك عن الماوس عندما تحدد كامل المنطقة
ثم افتح برنامج الرسام واعطي لصق (Ctrl+V)  ثم احفظ الصورة ..