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

السلام عليكم أريد طريقة مباشرة و عامة علما بأن خاصية right to left فعالة للفورم كله

أنا استخدمت شهر يوليو كمثال أكمل أنت الباقى على نفس النمط

اذهب لأى ملف كليك يمين open with choose default prog

السلام عليكم أعتقد المعادلة تكون ب =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

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