يوسف عطا

اللهم بارك فيكم إخوانى وأساتذتى الأجلاء جارى إستكشاف الدرر التى تفضلتم بإرسالها وإن كنت أحب أن يكون العمل بالكود نظراً لأن حجم الملف قارب على الـ 30 ميجا والتنسيقات الشرطية ستضاعف من حجمه الف شكر مقدماً وجارى المتابعة

المطلوب فى السطر رقم 10 مجموعة قيم مختلفة فى عدة أعمدة المطلوب أن يتم تظليل الخلايا بالأعمدة فى مدى معين وليكن من السطر الـ 11 إلى السطر 2000 فى الأعمدة رقم 7 و 9 و 11 و 13 و 14 و 16 و 19 و 22 مثلاً بلون برتقالى إذا كانت قيمة الخلية اقل من قيمة الخلية التى فى السطر 10 فى نفس العمود كذلك يتم التظليل فى حالة وضع حرف غ فى الخلايا داخل النطاق على أن يكون الكود بدون زر أى يعمل أوتوماتيك بمجرد وضع القيمة فى الخلية مثل التنسيق الشرطى على أساس أن تكون جميع الخلايا فى النطاق مظللة باللون البرتقالى على إعتبار أنها خالية فتكون قيمتها أقل من القيمة التى فى نفس العمود فى السطر 10 فإذا وضعت فى الخلية قيمة أكبر من أو تساوى القيمة فى السطر 10 بنفس العمود يختفى التظليل ولو يصعب تحديد نفس اللون لتنسيق الشرطين ( غ ) و الأرقام الأقل فلنجعل التظليل البرتقالى للخلايا بالأرقام واللون الأحمر لحرف غ أتعشم أن يكون الطلب واضحاً

اللهم بارك فى علمه ووسع فى رزقه

الرجاء إرفاق ملف يوضح المشكلة وتأكد أن كل الأعضاء لن يبخلون عليك بما يعرفون من حل لها

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

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

بإختصار أنا واقف فى الخلية K3 كتبت رقم ثم ضغطت إنتر المطلوب أريد أن يتم تحديد الخلية K3 تلقائياً بعد الخروج منها تمهيداً لكتابة رقم جديد فيها ولا يتم تنفيذ الكود إلا بعد ضغط إنتر من الخلية المذكورة

الإبداع بعنوان السهل الممكن فكر عالى وبسيط فى نفس الوقت جازاك الله خيراً أخونا خبور

الف شكر عزيزى الغالى khhanna هذا هو الكود Option Explicit Private Declare Function sndPlaySound32 Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName _ As String, ByVal uFlags As Long) As Long Dim Voice As SpVoice Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range Dim CheckRange As Range Dim PlaySound As Boolean Set CheckRange = Range("A1:A2000") For Each Cell In CheckRange If Cell.Value > 0 And Cell.Address = Target.Address Then PlaySound = True End If Next If PlaySound Then Call sndPlaySound32("C:\windows\media\ding.wav", 1) Set Voice = New SpVoice Voice.Rate = 1 'speak peed Voice.Speak " " & Target.Value & " ", 0 Set Voice = Nothing End If End Sub الآن أريد تعديل هذا الكود لكى يقرأ المكتوب فعلاً بالشيت مسبقاً وليس الذى يكتب حالياً ثم تحويله إلى 3 ماكرو كالتالى ماكرو1 للقراءة المستمرة لما هو مكتوب بالشيت ماكرو2 للإيقاف المؤقت ماكرو3 للإستئناف هل هذا ممكن يا خبراء يا أفاضل مطلوب للرفع

لا داعى للأسف هانى بك كلنا هنا أخوة

الشكر الجزيل لك أخونا عبدالله بك المجرب

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

لإثراء الموضوع أساتذتى مع الإعتذار لو فى تكرار =COUNTIF(المدى المراد العد فيه ولا يشترط أن يكون عمود فيمكن عد الكلمة المراد عدها فى نطاق أو عمود أو صف أو صفيف أو جدول;"الكلمة المراد عدها") يبدو أن وضع الشرح داخل الدالة جعلها تنعكس كاونت إف (اول المدى:آخر المدى;"الشئ المراد عده")

صباح الخير محمود بك

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

الكود المرفق لحماية الخلايا التى تحتوى على معادلات ويوضع فى حدث الشيت الرجاء تعديله ليتعامل مع الخلايا المدموجة أيضاً ولو أمكن أن يوضع فى حدث زيس وورك بوك ليؤثر فى كل الشيتات حيث أتعامل مع ملف مكون من 30 شيت Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub

الملف بعد إصلاح الخطأ والرجاء التجربة من طرفكم نعتذر مرة أخرى عن الخطأ الإغاثة.rar

السؤال مرة أخرى هل ممكن أن نجعل الإيكسيل يقرأ من الشيت مباشرة بدل من وضع النص فى داخل الكود ؟؟

كود رائع و شرح أروع

اخويا عبدالله وعليكم السلام ورحمة الله وبركاته ورضوانه كلماتك وسام على صدرى افتخر به

يظهر لى رسالة الإرور دى Uploaded with ImageShack.us

تفضل يا الغالى تمنياتنا بالتوفيق للشعب السورى وربنا يهدينا إلى ما فيه الخير فى إنتظار تعليقك ورايك وأى تعديل تريده لن يبخل به أحد عليك إن كان فى المستطاع البرنامج حوالى 15 ميجا حماية الخلايا بدون باسوورد المرتجع للمستودع يكتب يدوى فى شيتات المخازن بالخلايا الصفراء أى إستفسار أنا حاضر تم حذف الملف لوجود خطأ فى إحدى المعادلات وجارى إصلاحه إعتذار للجميع دمت بود

جارى العمل عليه

رجاء الإفادة عن نفس الموضوع بخصوص ويندوز 7

ممكن شرح للكود أخونا الغالى أبو حنين ؟؟