عبد الفتاح كيرة

شكرا للأخ عماد الحسامى اللمسات الأخيرة ممتازة جدا إذن توصلنا للكود النهائى هذا ' åÐÇ åæ ßæÏ ÇáÊáæíä ÇáäåÇÆí Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A100")) Is Nothing Then If Target.Value < 15 Then Target.Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = 0 End If End If If IsEmpty(Target.Cells) Then Target.Interior.ColorIndex = 0 End Sub

ممتاز جدا أخى هشام نعم الأبيض هو لون و 0 يعنى بدون تعبئة ممتازة و الكود الآن يعمل بكفاءة و الحمد لله لكن يبقى السؤال لماذا عند ضغط مفتاح delete عند تحديد الخلية الملونة بالأحمر و مسحها لم ينفذ الشرط و تعود الخلية للون العادى يعنى بلا لون أو حتى أبيض هل ضغط مفتاح delete لا يعتبر تغييرا يعنى لا يندرج تحت الحدث change هذا هو السؤال أم أن هناك خطوة فى الكود تمنع ذلك أرجو أن يكون سؤالى مفهوما وشكرا لردودك التى استفدت منها جدا

هذا فيه علاج المشكلة عند مسح أى خلية تتلون باللون الأبيض المناقشات أثمرت خيرا و الحمد لله Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A100")) Is Nothing Then If Target.Value < 15 Then Target.Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = 2 End If End If If ActiveCell.Value = "" Then ActiveCell.Interior.ColorIndex = 2 End If End Sub

كود أبسط و أسهل Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A100")) Is Nothing Then If Target.Value < 15 Then Target.Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = 2 End If End If If ActiveCell.Value = "" Then ActiveCell.Interior.ColorIndex = 2 End If End Sub

لقد حذفت السطر المضاف والكود يعمل بكفاءة أعتقد أن هذا السطر فائدته الوحيدة هى حصر تنفيذ الجمل البرمجية التالية داخل المدى المحدد فقط وهو c4:k39انظر بعبارة أخرى حتى لا يرجع إكسل رسالة خطأ فى حال تحديدنا لخلية خارج النطاق المحدد Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer Select Case Target Case Is < 15 icolor = 3 Case "G" icolor = 12 Case "F" icolor = 5 Case "X" icolor = 9 Case "Z" icolor = 3 Case "له دور ثانى فى مواد" icolor = 33 Case Else 'ويمكن زيادة الحالات End Select Target.Interior.ColorIndex = icolor End Sub

مفهوم أخ هشام ملاحظة ممتازة جارى التجربة ممكن شرح للسطر الذى أضفته و فائدته If Not Intersect(Target, Range("C4:K39")) Is Nothing Then Select Case Target

و عليكم السلام أخى هشام أنا جربت الكود على عمود واحد Set r = .Range("C4:K39") نستخدم مثلا Set r = .Range("C2:c500") ويمكن اختصار جملة case لتكون حالتين فقط أردت فقط فكرة الكود و هناك أشياء جديدة على فى هذا الكود مثل With Me إشارة للصفحة أو الورقة الموضوع فيها الكود و If c.Value <> vbNullString Then طريقة الإشارة للخلية الخالية أخانا office2003 يخيل لى الكود بهذا صار واضحا تحيتى لكم

السلام عليكم إخوتى الكرام قابلنى هذا الكود المحكم و المجرب لتلوين الخلايا حسب قيمتها و هو يستخدم فى تمييز الطالب الراسب فى الكنترول شيت أرجو رأيكم وملاحظاتكم عليه Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, r As Range Application.ScreenUpdating = False With Me Set r = .Range("C4:K39") On Error Resume Next For Each c In r If c.Value <> vbNullString Then With c Select Case .Value Case "G" ' Change font color .Font.ColorIndex = 10 ' 10 = Green ' Change background color '.Interior.ColorIndex = 10 Case "Y" .Font.ColorIndex = 6 ' 6 = Yellow .Interior.ColorIndex = 6 Case Is < 15 '.Font.ColorIndex = 3 '3 = Red .Interior.ColorIndex = 3 Case Else .Font.ColorIndex = 1 '1 = Black '.Interior.ColorIndex = 2 End Select End With End If Next c End With Set r = Nothing Application.ScreenUpdating = True End Sub

ممتاز جدا يبدو أن هذا صيف تعلم الأكواد سؤال ما معنى [a1] و ما الفرق بينها و بين cell(1,1) و range("a1")

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

استكمالا للفائدة هذه روابط لبعض الخلاصات Learn Excel from MrExcel Video Podcast http://www.mrexcel.com/podcast/rss.xml منتدى إكسل - أوفيسنا http://www.officena.net/ib/index.php?act=rssout&id=6 الأخبار العربية من جوجل http://news.google.com/news?pz=1&cf=all&ned=ar_eg&hl=ar&topic=h&num=3&output=rss أبلة نظيرة - لهواة الطبخ http://abla-nazira.blogspot.com/feeds/posts/default?alt=rss الكتيبات الإسلامية http://www.ktibat.com/rss.xml مدونة المعتصم بالله - إكسل http://alm3tasem.wordpress.com/feed/ يتم لصق كل رابط من الروابط المراد إضافتها حسب ما شرحنا أرجو أن يشارك الإخوة بما لديهم من خلاصات مفيدة

بارك الله فيك أستاذ خالد وشكرا لكلامك الطيب

الرابط لأن المرفقات لا تعمل مع الشكر

عجيب قمت بحل هذه المشكلة صباحا لا أدرى أين ذهبت ؟ إعادة الحل ضع المعادلة التالية فى d2 واضغط CSE CONTROL + SHIFT+ENTER واسحب المعادلة لليمين حتى ديسمبر المعادلة =SUM(IF(MONTH($A$2:$A$109)=COLUMN(D1)-3;1;0))

شكرا لكم إخوتى الكرام بارك الله فيكم

هذا مثال لشرح الدالة فى صورتها الأولى هنا و هذامثال لصورتها الثانية vlookup_controller.zip

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

أنا أؤيد هذه الفكرة جدا

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

يمكنك استقبال بريد هوتميل مباشرة و مجانا بآوتلوك الإعدادات ========= POP server: pop3.live.com (Port 995) POP SSL required? Yes User name: Your Windows Live ID, for example yourname@hotmail.com Password: The password you usually use to sign in to Hotmail or Windows Live SMTP server: smtp.live.com (Port 25 or 587) Authentication required? Yes (this matches your POP username and password) TLS/SSL required? Yes ========

و عليكم السلام ورحمة الله شكرا أخ محمد طاهر والأخ سالم الشيبانى يمكن متابعة الخلاصات بأربع طرق * مباشرة من خلال المتصفحات * برامج خاصة لمتابعة الخلاصات * آوتلوك 2007 فما بعد * أعتبر جوجل ريدر نوعا فريدا وذلك إمكاناته الهائلة التى لم نتعرض لها بعد منها : إمكانية تصدير و استيراد خلاصاتك فى ملف واحد إمكانية إرسال الخلاصة لعنوان بريدي إمكانية مشاركتها مع آخرين إمكانية تصنيف الخلاصات فى أنواع تحت عناوين مختلفة وطبعا إمكانات جوجل الهائلة فى البحث إرسال الخلاصات لحساباتك فى المواقع الشهيرة انظر الصورة

أعمل بمدرسة ليست مشتركة

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

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

إضافة رابط خلاصات المنتدى يمكنك لصق الرابط التالى مباشرة و هو لقسم الإكسل http://www.officena.net/ib/index.php?app=core&module=global&section=rss&type=forums&id=6 لكن أين تلصق هذا الرابط الصورة توضح ذلك تماما الآن ابدأ بمتابعة خلاصات قسم الإكسل