محمد الورفلي1

السلام عليكم الحمد لله الذي بنعمته تتم الصالحات شكراً استاذ ياسر كذالك الشكر موصل للاستاذ نضال الشامي هو كذالك بنفس الحل لكن بالتنسيق الشرطي في الموضوع السابق .... وكنت قد سئلته عن كيفية وضع النتيجة في خلية واحدة واذا كان لا تصلح فسوفا استخدم SUM

السلام عليكم استاذ نضال هل هناك امكانية لجعل نتيجة جمع عدد الخلايا الحمراء تكون في خلية واحدة ولو نفترض انها B2

استاذ ياسر السلام عليكم توضيح 1/ صدقت هناك موضوع مشابه واصبحت المشاركات مشتته فا احببت ان يكون طلبي واضح وصريح وغير مشتت للقارى 2/ نعم اريد عدد الخلايا فقط التي تم بها اللون الاحمر 3/ بالنسبة للتنسيق الشرطي فهو موجود بالخلايا ::: (( هو عند تكرار فصلين في نفس العمود تصبح الخليتين باللون الاحمر )) :::: هنا اريد كم خلية اصبح لونها احمر وشكراً واسف على الازعاج

السلام عليكم بحثت في المنتدى عن معادلة تفي بالغرض وهي جمع مع التنسيق الشرطي ولم اجد .. فالاساتذة ساعدوني بمعادلات مختلفة في موضع سابق لكن عند نقلها الي الشيت لم تعمل فهذا الشيت الاصلي اريد عدد الخلاياء التي تكون باللون الاحمر مع الاحتفاظ بنوع التنسيق الشرطي الموجود في الخلية جمع2.rar

.

السلام عليكم هذا الملف الاصلي الحلول السابقة جيدة لكن عند نقل المعادلة للملف لم تعمل معي هل السبب اختلاف التنسيق الشرطي اريد عدد الخلاياء التي تكون باللون الاحمر مع وجود تنسيق شرطي في الخلية جمع.rar

=COUNTIF($F$13:$F$100,">="&$F$13)+COUNTIF($G$13:$G$100,">="&$g$13) جرب هذه المعادلة ملاحظة هامة :في معادلة التنسيق الشرطي للعامود G يجب ان تثبت الخلية G13 =COUNTIF($F$13:$F$100,">="&$F$13)+COUNTIF($G$13:$G$100,">="&$g$13) السلام عليكم استاذ سليم الظاهر اني لم اوصل الفكرة جيداً ا ريد حساب عدد الخلاياء التي يتم تلوينها باللون الاحمر عن طريق معادلة بالتنسيق الشرطي مثلا"" g13=10 اذاً اللون يكون احمر وهكذا مثلا حتي g100 اى خلية في العمو g= 10 سوف يبدا التنسيق الشرطي بتلوينة باللون الاحمر """" هناء اريد خكم خلية تم تلوينها باللون الاحمر

السلام عليكم استاذ ياسر الخلاية يتم تلوينها عن طريق التنسيق الشرطي .... يعنى الشرط في الخلايا هو التكرار اذا تكر رقم معين تصبح لون الخليتين المكررتين بللون الاحمر ... هنا اريد ان اعرف (( كم يوجد لدي خلاياء مكررة وطبعاً عن طريق اللون الاحمر الدالة Countif لم تعل مع الخلاياء التي تعتمد في التلون على التنسيق الشرطي . والله اعلم

السلام عليكم اريد عدد الخلاياء التي تكون باللون الاحمر مع وجود تنسيق شرطي في الخلية الجمع حسب اللون مع التنسيق الشرطي.rar

السلام عليكم ماهو التعديل المطلوب الكود يعمل بشكل ممتاز

السلام عليكم هذه عن طريق ماكرو خلاصه1.rar

السلام عليكم ابو سليمان انظر المرفق ممكن يكون طلبك اكبر واصغر قية مع الاسم.rar

استاذ خالد شكراً تمام

السلام عليكم المطلوب الجمع بأربع شروط الجمع بأربع شروط.rar

السلام عليكم استاذ انس تمام نحجت الفكرة ولكن ظهر لي امر غريب وهو .......... بعد تفعيل الملف على مظر بورد FOX CONN لم يظهر لي رقم بل ظهر لي علامة ' وذهبت الي مظر بور نفس الموديل اشتغل الملف ... هنا خطا ان الملف اعتقد انها نفس المظر لقد وضعت لك رقم المظر بود في الخلية A2 لترى بنفسك ..مع العلم حصلت معي فقط في موديل FOX CONN فقط حماية باللوحة الام.rar

السلام عليكم الفكرة جميلة وشكلها اقوى من حماية الهارد .... لكن اين اضع رقم اللوحة الام التي اريد المف ان يعمل عليها ياريت لو تضع فيديو للطريقة او صور للشرح الملف لم يعمل عندي في الاول ولكن عند رفع مستوى الامان واغلاق الملف ثم ارجاع مستوى الامان منخفض جلب رقم السريل للوحة الام لجهازي هل هذة فكرة عمل الملف ارجو التوضيح .... فلقد التبس بي الامر وشكراً مقدما

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

للرفع

ممكن زيادة الحماية بإخفاء الصفحات في حالة وجود مستوى الامان مرتفع

السلام عليكم ممكن توضح اكبر لهذا الكود وهذا رابط الكود http://www.officena.net/ib/topic/39789/#entry222281 سلام عليكم في الملف المرفق عد الكود ليصبح هكذا Sub GetMe() Dim MySer As String * 99 Call GetSerialNumber(0, MySer) [E5] = MySer If [E5] <> "ضع هنا رقم القرص الصلب" Then MsgBox "عفواً البرنامج غير مسجل", vbCritical, "تنبيه": Application.Quit End If End Sub طبعاً لا تنسى ان تضع رقم القرص الصلب في المكان المحدد ثم ضع في حدث فتح الملف ThisWorkbook Private Sub Workbook_Open() RunMe End Sub

السم عليكم استاذ واائل اسف على التاخير..... فلم ياخرني في الرد الا اني اعتبرت الموضوع غير مهم فقط وليس تجهل وهذا دليل علي عدم التجاهل عند شعوري باهتمامك لمعرفة ما حصل معي . الكود الذي ارفقته لم يفلح لكن توصلت لحل هو تغيير كلمة OR الي AND .... ولكن هذا الكود لاياتي بنتيجة محكمة لانه عند الفورمات الجهاز يتغير هذا الرقم ......... فااصبحت ابحث عن طريقة اخرى كود اخر يخرج لي رقم الهارد الذي لايتغير مع الفورمات Private Sub Workbook_Open() 'If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجاهز الاول" And Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجهاز الثاني" Then 'MsgBox "Attention ! Ce programme est spécial pour M : tahar1983 ", vbCritical, "Violation des droits du programme" 'ThisWorkbook.Close savechanges = True 'End If End Sub