[Microformt]

(17-08-15, 11:37 PM)Lion_Ksa كتب : اسنخ الكود التالي

كود :

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

اخي العزيز
 السلام عليكم ورحمة وبركاته
 لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم