نجوم المشاركات

ليس مفتوح بل هو مقيد بفترة محددة لذا ينطبق عليه ما ينطبق على حالة الفترة التجريبة .. لأن الكل مقيد بفترة محددة المفتوح هو الكامل بدون اشتراك لفترة محددة .. وحتى لو كانت الفترة سنة او سنتين ثم لماذا العميل يقدم او يؤخر التاريخ ؟ مادام عمله نظامي فلن تؤثر عليه هذه القيود . ............................................................. كلامي اعلاه بصفة عامة فيما لو كانت النسخة التجريبية والدائمة واحدة .. فقط اذا انتهت فترة التجربة نرسل له كود تفعيل الاشتراك ......................................................... ولكني سأخالف هذا النظام .. بحيث تكون النسخة التجريبية هي فقط للتجربة واذا اراد العميل الاشتراك نرسل له النسخة المرنة .. ( ملف تنصيب يتم استبدال القديم بالجديد ) السبب : حسب الخبرة .. التسويق للمنتج يجب ان يكون جاذبا للعميل ومن الاشياء الجاذبة ان تشتمل نسخة التجربة على بيانات كافية حقيقة وفي الوقت نفسه وهمية بحيث يمكن للعميل تصفحها وعرضها ورؤية النتائج والتقارير عرض هذه البيانات والتعامل معها بالتعديل كتغيير الشعارات والتعديل على البيانات يسهل عليه فهم البرنامج .. وهي بحد ذاتها تجربة .. لأنها طبق الاصل من بياناته التي سوف يدخلها وهنا التجربة لن تستغرق شهرا .. بل جلسة واحدة .. وربما جلستين للتشاور واخذ الرأي

شكرا لكما وبارك الله فيكما وزادكما الله من علمه

آآآآآآه الآن فهمت ملاحظتك صحيحة : سوف يعمل عندما يتم ارجاع تاريخ الجهاز الى تاريخ عمل الفترة تم الاصلاح ,,, ولكن بشرط ان تكون الفترة منتهية فعلا .. فلو تم تقديم التاريخ والفترة في الاصل فعالة .. فستظهر الرسالة بانتهاء الاشتراك .. ولكن عند تصحيح تاريخ الجهاز سوف يعمل لانه فعلا يعمل .. ومثل ذلك لو تم تأخير التاريخ بمعنى ان تحريك تاريخ الجهاز لا يعني شيئا للبرنامج .. فمنظومته داخلية جزيت خيرا

سهواً وعدم تركيز ، ولكن يستطيع فرض لون مربع نص الاسم كلون أحمر مثلاً ، وبالشرط يجعل اللون أسود 😅 ولكن هناك الصحيح ، وهناك الأصح منه. شكراً لمهندسنا انتباهه 😇

تعديل على إجابة الباش مهندس فادي حيث أنه يريد التلوين عندما تكون القيمة لا تساوي "لا يوجد" 🙂 [Foksh] <> "لا يوجد"

وعليكم السلام ورحمة الله وبركاته اليك الحل بطريقتين الاولى - بالتنسيق الشرطي Sheet1 اللون الاحمر =AND(A1<>""; OR(A2=""; A2=0)) اللون الاخضر =AND(A1<>""; A2<>""; A2<>0) الثانية - كود في حدث الورقة SHEET2 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:ZZ2")) Is Nothing Then Dim r As Range For Each r In Intersect(Target, Range("A2:ZZ2")) If r.Offset(-1, 0).Value <> "" Then If r.Value <> "" And r.Value <> 0 Then r.Offset(-1, 0).Interior.Color = vbGreen Else r.Offset(-1, 0).Interior.Color = vbRed End If Else r.Offset(-1, 0).Interior.ColorIndex = xlNone End If Next r End If End Sub الملف sa1.xlsb