21-04-13, 09:05 PM
22-04-13, 03:46 AM
وعليكم السلام ورحمة الله وبركاته
تفضل
بالتوفيق
تفضل
PHP كود :
Private Sub Form_Load()
Dim r As Integer
Dim c As Integer
With MSFlexGrid1
.Cols = 10
.Rows = 15
For r = 1 To .Rows - 1
If r Mod 2 = 0 Then
.Row = r
For c = 1 To .Cols - 1
.Col = c
.CellBackColor = vbYellow
Next c
End If
Next r
End With
End Sub
بالتوفيق
22-04-13, 06:52 AM
شكرا لك وجزاك الله كل خير
يعني اخي حصرا بطريقة ال for
شكرا
يعني اخي حصرا بطريقة ال for
شكرا