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

هذه معادلة باستخدام 3 دوال تحسب لك عدد القيم الفريدة فى مدى به مكررات =SUM(SIGN(FREQUENCY(A:A;A:A))) معادلة لحساب عدد القيم الفريدة فى مدى.rar

أعتقد أن أسئلة الإخوة لو كانت تبدأ ب " كيف أفعل كذا..." على أن تكون جزئيات بسيطة لا تأخذ وقتا فى الرد لكان ذلك أدعى للرد عليها

للفائدة لإجراء نسخ أو مسح لمدى معين لا يستلزم بالضرورةتحديده أولا فالكود Private Sub CommandButton2_Click() Range("A1:A10").Select Selection.ClearContents End Sub يمكن اختصاره ( وتسريعه أيضا ) كما يلى Private Sub CommandButton2_Click() Range("A1:A10"). ClearContents End Sub و هذا أسلوب مهم لاختصار و تسريع الكود

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

لا عليك يا أستاذى المهم يستفيد السائل مشاركتك بدون ملف

جزاك الله خيرا لكن الكودمغلق بكلمة سر

أشكرك كثيرا أستاذ ياسر وفقك الله لكل خير

أشكرك أخى mimas جزاك الله خيرا mimas قريب kemas? و أشكرك أخى a12 بارك الله فيك

هذا مثلا يعد عدد القيم فى حقل رقم الطالب فى جدول اسمه نتيجة بشرط حقل اسمه علوم أكبر من أو يساوى 65 فى المائة من النهاية العظمى لدرجة المادة =DCount("num";"natega";"olom>=40*65/100") عدل حسب طلبك

أخانا الفاضل تكست بوكس 1. اصغراو يساوى من تاريخ تكست بوكس 2 هذا شرط ما جواب الشرط ماذا سيحدث نتيجة لذلك

معذرة نقطة تفرق كثير تفضل Sub DelRo() On Error Resume Next myro = InputBox("ÃÏÎá ÑãÒ ÇáÕäÝ :") wheremyitem = Application.WorksheetFunction.Match(myro, Sheets(1).Range("itemc"), 0) Rows(wheremyitem + 1).Delete End Sub حذف صنف kemas.rar

هذا يصلح شرطا لعملية معينة وليس تعيينا لقيمة تكستبوكس

تفضل Sub DelRo() On Error Resume Next myro = InputBox(أدخل رقم الصف المراد حذفه : :") Rows(myro + 1).Delete End Sub حذف صف kemas.rar

=IF(AQ6="يتيم";4;IF(AQ6="معيد";3;IF(AQ6="راسب";5;IF(AQ6="دور ثانى";6))))

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

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

لا أدرى لأين وصلت لكن أشعر أن هذا البرنامج كأداة قوية تنفذ لك أعمالك بعشر طاقتها فقط و لا يزال الطريق طويلا هل أنت مهتم بالأكسيس؟

أعتقد أن أى شىء تتعلمه تتحدد قيمته بمدى مساعدته لك فى عملك فربما لا يحتاج عملى المهنى لأكثر من تعلم هذين البرنامجين حتى بدون برمجة

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

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

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

شكرا لردك أستاذى أبو خليل هذا ملف به جدول و استعلام يبين عدد الطلاب الذين عمرهم 11-12 فى الصفين 1 و 2 يمكننى الإكمال لكن سيكون الاستعلام كبيرا و بطيئا أنا أريد تصنيف الطلاب الذين أعمارهم 11-12 13-14 15-16 17-18 هذه أربعة فى 3 صفوف 1-2-3 المجموع = 12 هل هناك أسلوب أفضل؟ أشكر لك إبداء الرغبة فى المساعدة StudentsAge.rar

السلام عليكم يوجد لدينا جدول به أسماء الطلاب و السن بالسنوات 11-12-13-14... عملت استعلام إحصاء عدد الطلاب فى كل فئة عمرية مثلا من 11:12 13:14 و هو يعمل بكفاءة المطلوب تكرار ذلك فى نفس الاستعلام لصفين آخرين بنفس الجدول يوجد عمود بالجدول لرقم الصف 1-2-3 كيف يمكن عمل ذلك كما بالصورة بحيث يكون التقرير أو النموذج كذلك فهل هناك طريقة لذلك

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