اسنخ الكود التالي
وفي اخر حدث للفورم لود استدعه
colored
كود :
Sub colored()
With fox
For I = 1 To .Rows - 1
.Row = I
If (.Row Mod 2 = 0) Then
For j = 0 To .Cols - 1
.Col = j
.CellBackColor = &HFF8080
Next
Else
For j = 0 To .Cols - 1
.Col = j
.CellBackColor = vbWhite
Next
End If
Next
End With
End Subوفي اخر حدث للفورم لود استدعه
colored
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
