سلام عليكم
أريد ان اسئل عن الكود اريد ان اقارن بين عمود وعمود اخر في اداة MsFlexGrid
بحثت في الموضوع الذي قام به احد الاخوة جزاة الله خير بشرحها ولم اجد مبتغاي فأرجو من لدية معلومة يخبرني فطلبي بالتحديد ان يقوم البرنامج بالمقارنة بين عمودين فإذا تساوى يتغير لون الخلفية في احد العمودين وجزاكم الله خير مع الشكر مقدما
أخى العزيز
بفرض أنك تقارن العمود الرابع والخامس وتريد تغيير لون الخلايا فى العمود الخامس إذا كانت مختلفة
Dim R As Long With MsFlexGrid1 For R = .FixedRows To .Rows - 1 .Row = R: .Col = 5 .CellBackColor = IIf((.TextMatrix(R, 4) = .TextMatrix(R, 5)), .BackColor, vbYellow) Next R End With
تم تعديل هذه المشاركة بواسطة Hatam في 4 يناير 2005 في 14:33
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
هذا الموضوع مغلق.