نجوم المشاركات

السلام عليكم فورم ادخال و تعديل وبحث باستخدام اسم نطاق للقائمة المنسدلة هو تفس الفورم السابق ولكن تم تغيير طريقة ادخال القائمة المنسدلة لاي عمود في الفورم تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة وايضا تم تجاوز بعض الاخطاء في الفورم السابق شرح امكانيات الفورم وكيفية الاستخدام 1 - استخدام الفورم لاكثر من قاعدة بيانات في الورقة الواحدة او في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة . 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا "E15,C15,H15:AX15" المرفق 2003 [فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة.rar الاصدار الثالث: http://www.officena.net/ib/index.php?showtopic=51955

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

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

وعليكم السلام انا ايضا واجهت هذا المشكلة ولكن بعد تغير ويندوز ( فورمات ) تم حل المشكلة

ارفع تموذج مع مثال للتطبيق

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

ما بها مشكلة راح نزداد مواده ايظا لكن شوف هذا بعد 6 مواد فقط لكن شوف وجرب اذا ما تكتب لمواد مثلا مواد اللغة الانكليزية اذا ما تكتبه شي فيها راح يحسبه ان المواد هو 5 مواد وليس 6 مواد وما راح يكتب له راسب شوف الوحدة النمطية Option Compare Database Function ShRebaz(Sp As Integer, En As Integer, Ar As Integer, Ge As Integer, Hi As Integer, Sc As Integer) Dim MaddeNacih As Integer Dim MaddeRasib As Integer Dim MaddeIbor As Integer Dim AddMewad As Integer MaddeNacih = 0 MaddeRasib = 0 MaddeIbor = 0 AddMewad = 6 If [Sp] = -1 Then AddMewad = AddMewad - 1 ElseIf [Sp] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Sp] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Sp] > 39 And [Sp] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [En] = -1 Then AddMewad = AddMewad - 1 ElseIf [En] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [En] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [En] > 39 And [En] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [Ar] = -1 Then AddMewad = AddMewad - 1 ElseIf [Ar] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Ar] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Ar] > 39 And [Ar] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [Ge] = -1 Then AddMewad = AddMewad - 1 ElseIf [Ge] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Ge] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Ge] > 39 And [Ge] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [Hi] = -1 Then AddMewad = AddMewad - 1 ElseIf [Hi] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Hi] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Hi] > 39 And [Hi] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [Sc] = -1 Then AddMewad = AddMewad - 1 ElseIf [Sc] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Sc] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Sc] > 39 And [Sp] < 50 Then MaddeIbor = MaddeIbor + 1 End If If MaddeRasib > 0 Then ShRebaz = "راسب" ElseIf MaddeRasib = 0 And MaddeIbor = 1 Then ShRebaz = "عبور" ElseIf MaddeIbor > 1 Then ShRebaz = "راسب" ElseIf MaddeNacih = AddMewad Then ShRebaz = "ناجح" End If End Function وفي استعلام كتبت هذا SSS: ShRebaz(Nz([sport];-1);Nz([english];-1);Nz([arabic];-1);Nz([geography];-1);Nz([history];-1);Nz([science];-1)) ونرجوا من استاذنا جعفر او ابو خليل او اي واحد بها معلومات على الوحدات النمطية ان يشوفه لعل بها شي نقصان وهذا ملف بعد تعديل اسم الوحدة الوحدة النمطية هو iborornacihorrasib واسم الاستعلام هو Query2 تحياتي للجميع crossed.rar

معذرة (التعب علي النظر) كلامك صحيح مستر شفان لم أرى (_)

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

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

نعم وهو <>0 اتفضل ملفك بعد تعديل -مكتب حوالات - نسخة.zip

السلام عليكم أخي الكريم تقول لو اننا وضعنا المعادله بالصف السابع مثلا والشيت سيكون به عدد صفوف مقدارها 300 صف كيف يتم نسخ المعادله الموجوده بالصف السابع الى بقيه الصفوف ؟ فقط تظلل الأسطر بداية من السابع إلي 300 أو ماتريد ثم Ctrl-D أو Data > Fill down

جرب هذا الملف تم حماية خلايا المعادلات لعدم العبث بها عن طريق الخطأ يمكتك زيادة البينات حتى الصف 150(يمكن التعديل الى اي رقم تريد) Expiry Dates salim.rar

السلام عليكم أخي الكريم أنا أفضل أن تترك المعادلة بخلية واحدة أو عدة خلايا للتذكرة وبعد أن تأخذ منها نسخة لباقي الخلايا ، مما يجعل الملف ثقيلا ... إجعل هذه الخلايا الباقية أرقام فقط Copy .. Paste .Value جرب ذلك أولا وإن كنت لاتزال تحتاج الكود فلترسل الملف كاملا

هل ممكن تعطينا الكود اخي الكريم لتعم الفائدة للجميع

السلام عليكم يمكنك إضاقة هذه الدالة فى الخلية N5 =IF(F2=1;"طلبة ناجحون بالصف الاول وينقلون للصف الثانى";IF(F2=2;"طلبة ناجحون بالصف الثانى وينقلون للصف الثالث";IF(F2=3;"طلبة ناجحون بالصف الثالث وينقلون للصف الرابع";IF(F2=4;"طلبة ناجحون بالصف الرابع وينقلون للصف الخامس";IF(F2=5;"طلبة ناجحون بالصف الخامس وينقلون للصف السادس";""))))) ارجوا أن يكون هو بالمطلوب نسألكم الدعاء

وعليكم السلام ورحمة الله وبركاته بارك الله فيك اخي

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

الاخت الكريمة ام عبدالله كل الشكر والتقدير لك ، فعلاً رائعة بمعنى الكلمة الاخ بو جواهر شكراً على مساعدتك يا غالي ولكني كنت ابحث عن معادلة للاكسل . الاستاذ محمود الشريف شكراً لك يا غالي والطريقة رااااااااااائعة جداً لك مني كل التقدير والاحترام

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

worrning.rar مرحبا أخي الكريم وجدنا لك هذا البرنامج البسيط للتفضل بالاطلاع

الأستاذ / وحيد احمد السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. حساب الإقامة.rar

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

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

اخي / ashrouf وعليكم السلام ورحمة الله وبركاته هذا مثال للاخ همام ابو عرقوب جزاه الله خيراً ارجو ان يفيدك وبالتوفيق ResizeRepField.rar