الاخوه الكرام
السلام عليكم ورحمة وبركاتة
كيف اطبق طريقة الوان الموجده في الصوره المرفقه على برنامجي المرفق ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
17-08-15, 11:37 PM (آخر تعديل لهذه المشاركة : 17-08-15, 11:42 PM {2} بواسطة أبو عمر.)
اسنخ الكود التالي
كود :
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
سبحان الله والحمدللهولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
(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
اخي العزيز
السلام عليكم ورحمة وبركاته
لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ