مشكلة في التنسيق الشرطي - يوجد فيديو

[ناصراا]

السلام عليكم ورحمة الله 

 

اسعد الله أوقاتكم اساتذتي الكرام 

 

لدي مشكلة في التسيق الشرطي 

 

لم أجد إلا ان أرفقها بفيديو  .  فالبرنامج يجلب من بياناته من برنامج آخر 

 

فلا تثبت الصفحة  بوجود التنسيق الشرطي 

 

فهل من حل مقترح 

وهل يمكن ادراج صورة وربطها بمعادلة بدلا من التنسيق الشرطي 

 

وإليكم الفيديو بالمرفقات 

 

جزاكم الله خيرا 

 

 

تنسيق شرطي.rar

[ناصراا]

هل المشكلة غير واضحة ؟

 

الورقات عندي تلمع مثل الفلاش بوجود التنسيق الشرطي في الورقة 

 

تشتغل وتنطفئ بلمح البصر 

 

اذا مسحت التنسيق ترجع لطبيعتها 

 

فما الحل رحمكم الله ووالديكم

[طارق محمود]

السلام عليكم
اخي الكريم

ارفق الملف الإكسل

بغض النظر عن الملف الأصلي الذي يأخذ منه البيانات

[ناصراا]

وعليكم السلام ورحمة الله وبركاته 

 

أهلا وسهلا بك استاذي الكريم طارق 

 

سعيد بتشريفك 

وها هي المشكلة تكاد تحل بقدومك الميمون 

 

 

في المرفق نسخة عملت عليها نسخ ولصق قيم 

 

لان الملف بدون البرنامج الأصلي سيظهر كما في الصورة التالية 

 

Book1.rar

[أبوعيد]

السلام عليكم

تم تحميل ملف الإكسل ولم تظهر المشكلة التي شرحتها في الفيديو

حاول إحدى الطريقتين :

1/ أن تفتح الملف بخاصية (فتح وإصلاح)

2/ أن تشغل الملف على إصدار آخر للأوفيس (2007 / 2010 )

3/ أن تشغل الملف على جهاز آخر

تحياتي

[ناصراا]

وعليكم السلام استاذي الكريم أبو عيد 

 

شرفتني بحضورك الكريم 

وشكرا على محاولة مساعدتي 

 

تظهر المشكلة حين ربط الملف مع مصدر بيانات لحظية 

تتغير كل لحظة 

 

وحقيقة شغلت البرنامج على عدة اجهزة وعدة اصدارات ولا مشكلة غير هذه المشكلة 

 

بقي فتح واصلاح لم أجربها  من قبل 

 

هل يمكن ان تصيغ لي التنسيق الشرطي عبر كود فيجوال   لعله يحل الاشكالية 

 

شاكرا ومقدرا 

[أبوعيد]

السلام عليكم

أخي الكريم بعد تفقد ملفك اتضح أن به :

1/ تنسيقات شرطية مكررة

2/ تنسيقات لا حاجة لها

قمت بحذف ست أو سبع تنسيقات ولم يتأثر الملف مما يدل على عدم الحاجة لها

ربما يكون هذا هو السبب

لاحظ المرفق

 

Bok1.rar

[ناصراا]

استاذي الكريم أبو عيد 

 

جزاك الله خيرا على جهدك

 

خطر في بالي ما تفضلت به 

 

واليك الفيديو التالي يؤكد أن ان السبب ليس في تكرار أو كثرة التنسيقات 

 

شاكرا ومقدرا 

 

http://www.fowzan.net/444.rar

[أبوعيد]

السلام عليكم

تم أيضا حذف بعض التنسيقات لوجود تداخل بينها 

اكتفيت فقط على تنسيقين ولم يتغير الملف

جرب المرفق التالي

 

عفوا الماوس عندي خربان يجعلني أدرج المشاركة مرتين

الرجاء من المسؤولين حذف المكرر

Bok2.rar

[أبوعيد]

السلام عليكم

تم عمل التنسيق الشرطي بالأكواد

تفضل

Bok3.rar

[ناصراا]

وعليكم السلام ورحمة الله وبركاته

 

جزاك الله خير الجزاء استاذذي الكريم ابو عيد 

 

الكود رائع جدا

 أوقفت الأزرار وغيرت النسبة المئوية الى رقم عبر تغيير السطر للتالي 

xlConditionValueNumber

 

 

 

لكن المشكلة لازالت قائمة 

فهل تقترح حلا آخر 

 

 

اليك الفيديو بعد تطبيق الكود التالي

وربطه بمصدر البيانات 

 

التنسيق الشرطي يتغير تلقائيا مع الارقام وهذا ابداع منك حفظك الله 

 

 

http://www.fowzan.net/555.rar

Private Sub ToggleButton1_Click()
'If ToggleButton1.Value = False Then
'ToggleButton1.Caption = "ãÓÍ ÇáÊäÓíÞ1"
Application.ScreenUpdating = False
    Range("c:g").FormatConditions.AddIconSetCondition
    Range("c:g").FormatConditions(Range("c:g").FormatConditions.Count).SetFirstPriority
    With Range("c:g").FormatConditions(1)
        .ReverseOrder = True
        .ShowIconOnly = True
        .IconSet = ActiveWorkbook.IconSets(xl3TrafficLights1)
    End With
    With Range("c:g").FormatConditions(1).IconCriteria(2)
        .Type = xlConditionValueNumber
        .Value = 0
        .Operator = 7
    End With
    With Range("c:g").FormatConditions(1).IconCriteria(3)
        .Type = xlConditionValueNumber
        .Value = 1
        .Operator = 7
    End With

'Else

'ToggleButton1.Caption = "ÊØÈíÞ ÇáÊäÓíÞ1"
 'Range("c:g").FormatConditions.Delete
 'End If
 Application.ScreenUpdating = True

End Sub

تم تعديل نوفمبر 11, 2014 بواسطه ناصراا

[ناصراا]

السلام عليكم اساتذتي الكرام 

 

 

هل من رأي أو طريقة لحل المشكلة ؟