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

السلام عليكم

أعتقد المعادلة تكون ب

=0

وليس

<>0

=IF(COUNTIF(A:A,D2)=0,D2,"")

نحن نريد القيم الموجودة فى

d

و عدد مرات وجودها فى a

=0

=LARGE(F10:F12,2)

هناك حلقة مفقودة

ماذا لو الدرجة = 80

؟؟

هذه معادلة ضعها بخانة تقييم المجموع ثم اسحبها لأسفل

=IF(B2<=80,B2-5+E2,IF(B2>80,B2+10+E2))

ما المقصود بالجدول هنا؟

تفضل يا أستاذنا

تم تعديل الكود ليظهر الفصل

أما تمييز المتجاوزين للغياب باللون الأحمر

فتم عن طريق التنسيق الشرطى

Sub enzarat()

'

' Enzarat ãÇßÑæ

'ÇÓÊÎÑÇÌ ÇáÊáÇãíÐ    ÇáÐíä ÊÌÇæÒæÇ 10 ÃíÇã ÛíÇÈ

' ãÝÊÇÍ ÇáÇÎÊÕÇÑ: Ctrl+Shift+v

'

   Application.ScreenUpdating = False

    Sheets("ÅäÐÇÑÇÊ").Select

   Range("b6:d496").ClearContents

    Range("b6").Select

    Sheets("ÇáÕÝ ÇáÇæá ÇáÇÚÏÇÏí").Select

    Range("ai3").Select

    For i = 1 To 496


        If ActiveCell > 9 Then

             ActiveCell.Offset(0, -33).Select

             Selection.Copy

             Sheets("ÅäÐÇÑÇÊ").Select

             Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

                 :=False, Transpose:=False

             Application.CutCopyMode = False

             ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit

            Sheets("ÇáÕÝ ÇáÇæá ÇáÇÚÏÇÏí").Select

             ActiveCell.Offset(0, 33).Range("A1").Select

             Selection.Copy


            Sheets("ÅäÐÇÑÇÊ").Select

            ActiveCell.Offset(0, 1).Select

            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

                 :=False, Transpose:=False

             Application.CutCopyMode = False

             ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit


             Sheets("ÇáÕÝ ÇáÇæá ÇáÇÚÏÇÏí").Select

             ActiveCell.Offset(0, -32).Range("A1").Select

             Selection.Copy

             Sheets("ÅäÐÇÑÇÊ").Select

            ActiveCell.Offset(0, 1).Select

            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

                 :=False, Transpose:=False

             Application.CutCopyMode = False

             ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit




             ActiveCell.Offset(1, -2).Select

             Sheets("ÇáÕÝ ÇáÇæá ÇáÇÚÏÇÏí").Select

              ActiveCell.Offset(1, 32).Select

        Else


            Sheets("ÇáÕÝ ÇáÇæá ÇáÇÚÏÇÏí").Select

            ActiveCell.Offset(1, 0).Select


        End If


    Next i

    Sheets("ÅäÐÇÑÇÊ").Select

    Range("b6").Select

        Application.ScreenUpdating = True

End Sub

المرفقات

سجل غياب طلاب-ترحيل 10 مع الفصل.zip

ضع الإيميلات كلها بعمود واحد

حدد العمود

افتح تبويب بيانات

ثم اختر

زر إزالة التكرارات

هذا فى 2007

سهلة جدا

السلام عليكم

هذا الكود مساهمة منى

وظيفته : ترحيل أسماء التلاميذ الذين تجاوزوا غياب9 أيام فأكثر فى شهر يوليو

املأ بعض الخانات لأسماء مختلفة فى شهر يوليو = غ

ثم اضغط على الزر المسمى

" غياب عشرة أيام فأكثر "

لاحظ النتائج

سجل غياب طلاب-ترحيل 10.zip

يبدو أن مدرستكم متعاونة جدا

عموما

هذه معادلة حساب عدد أيام الغياب

كبداية فقط

= COUNTA(D2:O2)

يجب إضافة عمود للشهر

و أن يبدأ الشهر من 1 و ينتهى فى 31

لجميع الأشهر

حتى سبتمبر

الملف محمى

ما معادلة التنسيق الشرطى

أعتقد يجب أن تكون

=IF(Ab10>=5.13,"ينتقل","يكرر")

الله يبارك فيك يا أستاذ محمدى

هذا من كريم أخلاقك

وطيب صفاتك

السلام عليكم

صفحة كلها فوائد

كود الأخ يوسف عطا

يعمل بكفاءة

كود حماية الخلايا التى تحتوى على معادلات حماية مباشرة على الخلية

Private Sub Workbook_SheetSelectionchange(ByVal Sh As Object, ByVal Target As Range)

If Target.HasFormula Then

ActiveSheet.Protect

Else

ActiveSheet.Unprotect

End If

End Sub

و مثيله من الأخ aah_aah2008 Icon

و الله يا أخ ياسر

نجمع هذه المعلومات القيمة

كما نجمع كنوز اللآلئ و اليواقيت

بارك الله فى هذا المنتدى و أهله

أشكرك أستاذ عماد

بارك الله فيك

لقد أفدتنا فائدة عظيمة

و عليكم السلام ورحمة الله

نعم أستاذى

هذا كله مفهوم

لكن قصدت التعرف على الطريقة

controls

هل هى طريقة للإشارة للكائنات الموجودة على الفورم ؟

كمربعات النص و التسميات و الأزرار ؟

زادكم الله علما

مرحبا

فهمك سديد

و هذا هو المطلوب

لكن يا ليت شرح للجزئية هذه

كى نستفيد منها فى أماكن أخرى

Me.Controls("TextBox" & i).Value

ما معنى

controls

من خصائص الفورم ؟

هذا هو كنز الليلة

السلام عليكم

الكود التالى يشتمل على مربعات نص عديدة

و أسماؤها متتالية

textbox1

textbox2

textbox3

هل يمكن الإشارة لرقم مربع النص بمتغير

شىء مثل

textbox & r

و هو لم ينجح معى

أو يمكن استخدام

tabindex الخاصة بكل مربع لذلك

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

للتوضيح

هذا هو الكود

Sheets("All").Activate

ff = 2

Lastr = Sheets("All").Range("b" & Rows.Count).End(xlUp).Offset(1, 0).Row

With Sheets("All"):

    .Cells(Lastr, ff).Value = textbox1.Value

    .Range("c" & Lastr).Value = Format(textbox2.Value, "yyyy/mm/dd")

    .Range("g" & Lastr).Value = TextBox3.Value

    .Range("h" & Lastr).Value = TextBox4.Value

    .Range("i" & Lastr).Value = TextBox5.Value

    .Range("j" & Lastr).Value = TextBox6.Value

    .Range("k" & Lastr).Value = TextBox7.Value

    .Range("l" & Lastr).Value = TextBox8.Value

    .Range("m" & Lastr).Value = TextBox10.Value

    .Range("n" & Lastr).Value = TextBox18.Value

    .Range("o" & Lastr).Value = TextBox17.Value

    .Range("p" & Lastr).Value = TextBox16.Value

    .Range("q" & Lastr).Value = TextBox15.Value

    .Range("r" & Lastr).Value = TextBox14.Value

    .Range("s" & Lastr).Value = TextBox13.Value

    .Range("u" & Lastr).Value = TextBox12.Value

    .Range("v" & Lastr).Value = TextBox11.Value

    .Range("y" & Lastr).Value = TextBox19.Value

End With

Cells(Lastr, ff).Value = textbox1.Value

لكن باقى مربعات النصوص هى المشكلة

أحد فهم شيئا ؟

شكرا مقدما

أو

=IF(COUNT(B2:B7)=5,SUM(B2:B7),"جمع غير صحيح")

غامضة غامضة أستاذنا يحيى

مطلوب توضيح على وجه السرعة

تفضل أخى

هذا شرح فديو للطريقة

هذا ملف به صورة متحركة

ضع الصورة التالية فى المسار

d:\

يعنى انسخ الصورة واحفظها بجهازك على

d:

أيضا لما تحملها غير اسمها إلى

animated_gif_movies

كى يعمل الملف

gif.zip

الفاضل الأستاذ مصطفى الفيومى

تستخدم هذه الخدمة على مستويين

الأول تخزين المستندات

وقد أطلقت جوجل الخدمة لتخزين أى شىء غير المستندات

كالملفات المضغوطة و الصوتيات و غير ذلك

ومن هنا فهى وسيلة تخزين ممتازة بمساحة كبيرة

المستوى الثانى

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

وفى هذا المستوى

تختلف قليلا عما تعودناه فى برامج أوفيس

كما أن التعديل على الهواء أمر لم نعتد عليه

من هنا اقتصر استخدامى لها على المستوى الأول

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

هذا ما لدى

أخى مصطفى

الملفات تكون موجودة فى مساحة تخزينية لك على النت

و يمكن لمن تسمح لهم

إنزال الملفات و تعديلها

كما يمكن تعديلها مباشرة على الموقع

لكن أوامرها مختلفة شوية عن أوامر مجموعة أوفيس المعروفة لدينا

لمزيد من المعلومات

اكتب فى باحث جوجل

google document

الخطوة الأولى أن يكون لك حساب فى جوجل

ونكمل بعدين

http://mail.google.com/mail

يمكن استخدام خدمة

مستندات جوجل

حيث يتم التشارك بين الأعضاء فى تعديل الملفات