23-05-13, 11:38 PM
السلام عليكم...
نرجو الاستفادة و السلام.
كود :
Dim s As Integer
' نفرض في البداية أن كل شيء تمام - أخضر
Command6.BackColor = vbGreen
For s = 1 To MSHFlexGrid1.Rows - 1
' عندما نجد أول خلية فارغة
If Trim$(MSHFlexGrid1.TextMatrix(s, 13)) = "" Then
Command6.BackColor = vbRed ' نغير اللون إلى الأحمر
Exit For ' نخرج من الحلقة فلا داعي للاستمرار
End If
Nextنرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ