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

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

بارك الله فيكم لم أر ردكما إلا الآن الإعلام بالردود الجديدة و كذلك الموضوعات الجديدة معطل لدى رغم أننى اخترت تتبع المنتدى

http://posterous.com/getfile/files.posterous.com/kemas/1u6I0InZxVT6BqoypITfzaQvJj8ofuxqQGFNf5bDMgUJZ9amOYNs9yojTgIn/surat-Al_Saff-Menshawy.mp3

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

@kemasالسلام عليكم شكرا على الشكل الجديد التجديد مطلوب ألاحظ أن هذا الشكل نادر فى المنتديات الأخرى

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

جزاكم الله خيرا

السلام عليكم الخلية التى بها اسم الشهر بالأحرف نضع المعادلة مثلا d3 =c3 و نغير تنسيقها إلى mmmm

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

شكرا لكل من ساهم فى صدور هذه النشرة القيمة

استخدم دالة nz

إظهار شريط أدوات متطور من زر الأوفيس نختار excel options أو خيارات إكسل ثم نضع علامة صح أمام الخيار إظهار شريط المتطور

أعانك الله أخى

عليكم السلام و رحمة الله والله يا أخى هذا شىء يسعدنا و يفرحنا

الفاضل أبا خليل كفيت و وفيت جزاك الله خيرا أؤكد لك أن كثيرين سيستفيدون من هذه الأسطر بسبب هذه التعليقات القيمة وفقك الله لكل خير وجارى الدراسة و العمل

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

جميل جدا أخى بن علية على فرض أننا نريد ترميز عدد المواد التى نجح فيها الطالب الحاصل على أكبر من أو يساوى 20 معادلة الصفيف =REPT("*";SUM(IF($A1:$F1>=20;1;0))) النتيجة كما بالصورة

شكرا جزيلا لك أخى الفاضل و كل عام أنتم بخير

أشكر لك صنيعك وكل عام أنتم بخير لكن الحق أن هذا الكود صعب الفهم Public Sub division(acTbl1 As String, Fld1 As String, Tbl2 As String, Fld2 As String, Num1 As Long, Num2 As Long, Optional DType As Byte = 0) Dim RC1 As Object, RC2 As Object, R As Long Set RC1 = CurrentDb.OpenRecordset(acTbl1) Set RC2 = CurrentDb.OpenRecordset(Tbl2) RC1.MoveFirst Do While Not (RC1.EOF) RC1.edit RC1.Fields(Fld1) = RC2.Fields(Fld2) RC1.Update RC1.MoveNext If DType = 1 Then R = R + 1 If R = Num2 Then RC2.MoveNext R = 0 End If Else RC2.MoveNext R = R + 1 If R = Num1 Then RC2.MoveFirst R = 0 End If End If If RC2.EOF Then RC2.MoveFirst Loop

الحمد لله

لأنى جعلت الموضوع فى مكانه الصحيح لم أتلق أى رد

نسأل الله للجميع الخير و السلامة

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

بسيطة ممكن نضع تعليمة برمجية فى حدث فتح الملف ل woorkbook open وظيفته مسح هذه الكلمة sheets(1).range("a1")="" كما يمكن المسح قبل الحفظ فى نهاية الكود يعنى مسح قبل الخروج كما يمكن اسستقبال كلمة الحفظ عن طريق صندوق إدخال بحيث لا يتم الحفظ إلا إذا كانت الكلمة موافقة ما رأيك

و الله الكود تم تفصيله حسب رغبة السائل لو هناك طلبات أخرى يمكن كتابتها كله حسب الطلب