25-11-21, 12:21 AM
لتلوين الارقام استبدل الكود التالي في مشروع م/احمد عبد العليم :
بالكود :
كود :
If Trim(.Text) = "repeater" Then
.CellBackColor = vbRed
ElseIf Trim(.Text) = "non repeater" Then
.CellBackColor = vbGreen
End Ifبالكود :
كود :
If Trim(.Text) = "repeater" Then
.Col = .Col - 1
.CellBackColor = vbRed
ElseIf Trim(.Text) = "non repeater" Then
.Col = .Col - 1
.CellBackColor = vbGreen
End Ifقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
