السلام عليكم
كل عام والجميع بالف خير
كيف يمكن تغيير اللون الامامي لمربع النص حسب الشرط باستخدام الكود
حيث يمكن استخدام التنسيق الشرطي لثلاث حالات
واجراء التنسيق وفق التعبير
المرفق يحتوي على تنسيق شرطي وفق التعبير
ولكن كيف يمكن اجراء ذلك باستخدام الكود؟؟؟؟
تم تعديل هذه المشاركة بواسطة shamal في 20 أكتوبر 2012 في 20:38
للرفع
تفضل
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
السلام عليكم
الاخ
malik2010
هل يمكن عمل ذلك باستخدام دالة If الشرطية بدلا من عبارة Case
جزاك الله خيرا
تفضل
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
السلام عليكم
الاخ العزيز
malik2010
اطمع منك اكثر
هذا فيما يخص تغيير خلفية النص
وكيف يمكن تغيير لون النص حسب الشرط؟؟
وباستخدام الكود ايضا؟؟
"قال رب اشرح لي صدري *ويسر لي امري*واحلل عقدة من لساني يفقهوا قولي" سورة طه
اللهم صل على سيدنا محمد وعلى آل سيدنا محمد
السلام عليكم
كل عام والجميع بالف خير
الاخ
اكرم عبد الحكيم
والاخ
malik2010
وهل يمكن وضع خط اسفل النص او استخدام الخيار مائل باستخدام الكود ايضا؟
لسلام عليكم
كل عام والجميع بالف خير
الاخ
اكرم عبد الحكيم
والاخ
malik2010
الاخ
ابوشفيق
وكيف يمكن عمل ذلك بدون الاعتماد على الحقل m1
وانما بالاعتماد على الحقل p1
حيث ان الحقل p1 ياخذ قيمتين هما صفر والواحد
وكذلك بدون وضع الحقل p1 في التقرير
وعليكم السلام ورحمة الله وبركاته وانت بالخير و الصحة والسلامة
اليك التعديل اعتماد على الحقل p1 اكثر من صفر سواء كان الحقل موجود او غير موجود
السلام عليكم
الفكرة جميلة وواضحة
ولكن اذا كان كان الحقل p1 موجود في التقرير وتم عمل اخفاء له
واذا لم يكن موجودا في التقرير فان الكود لا يعمل؟؟
تفضل أخي
السلام عليكم
الاخ العزيز
فكرة رائعة
الكود السابق
ما هي فائدة
Dim RetColor As Long
وهل تعتبر زائدة في الكود
If DLookup("[p1]", "tabw", "[m1]=" & [m1]) > 0 Then
m1.ForeColor = vbRed
m1.FontUnderline = True
m1.FontItalic = True
وهل يمكن ايجاد كود اخر يؤدي نفس الغرض
وخاصة للشرط
DLookup("[p1]", "tabw", "[m1]=" & [m1]) > 0
تم تعديل هذه المشاركة بواسطة shamal في 27 أكتوبر 2012 في 17:07
نعم أخي هذا سطر اضافي متواجد قبل تعديل على الكود يمكن مسحه او يمكن اسيتخدامه كمتغير مثل:
Dim RetColor As Long
RetColer = DLookup("[p1]", "tabw", "[m1]=" & [m1])
If RetColer > 0 Then
m1.ForeColor = vbRed
m1.FontUnderline = True
m1.FontItalic = True
ElseIf Me.m1 > 50 Then
m1.ForeColor = vbYellow
End Ifالسلام عليكم
الاخ
اكرم عبد الحكيم
والاخ
malik2010
الاخ
ابوشفيق
اشكر تفاعلكم وتجاوبكم في هذا المثال
ادعو جميع الاخوة من الاساتذة في المنتدى الى تعزيز هذا السؤال بافكار اخرى اذا وجدت
والتفاعل مع هذا السؤال
وبارك الله في الجميع
ادعو جميع الاخوة من الاساتذة في المنتدى الى تعزيز هذا السؤال بافكار اخرى اذا وجدت
والتفاعل مع هذا السؤال
السلام عليكم ورحمة الله
متشكر للاخ الفاضل shamal و ابو شفيق على الموضوع الاكثر من ممتاذ
السؤال هام و الاجابة اكثر من رائعة
واتمنى لو تسمحو لى باضافة سؤال يهمنى بصفة شخصية عن طريقة لجمع او حساب المربعات الملونة بالتنسيق الشرطى
وذلك على المثال السالف ذكرة مع الشكر للقائمين على هذا العمل