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

كود أبسط و أسهل

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

لكن أين تلصق هذا الرابط

الصورة توضح ذلك تماما

الآن ابدأ بمتابعة خلاصات قسم الإكسل

اضغط على الرابط لتفتح صفحة جوجل ريدر

إذا لم تكن سجلت الدخول فسجل دخولك

كما بالصورة

الأن فتحت صفحة برنامج

جوجل ريدر

الآن

نتابع الخلاصات

مع برنامج

google reader

لا تستطيع استخدام جوجل ريدر

إلا إذا كان لديك حساب بريدي فى جوجل

وهو المعروف ب جي ميل

GMail

إذا كنت تملك حسابا بالفعل فتجاوز هذه الخطوة

اذهب لصفحة التسجيل

http://mail.google.com

وأنشئ حسابا جديدا

creat an account

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

واكتب

google reader

ستظهر أول النتائج كما ترى

هذا هو الشيت كنترول الخاص بى

استخدمته هذا العام و أخرج نتائج جميلة جدا