منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف اطبق طريقة الوان الموجده في الصوره المرفقه على برنامجي المرفق ؟؟

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

اسنخ الكود التالي

كود :

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Microformt

أبو عمر

Microformt