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

بسم الله الرحمن الرحيم كل سنة والجميع بخير لكل الأخوة الأفاضل بمناسبة الشهر الكريم اعاده الله عليكم باليمن والبركة وبمناسبة الشهر الكريم اهدى اليكم النسخة الأخيرة لبرنامج الميراث الشرعى على مذهب الجمهور ودعائكم لنا هو غايتنا الفرائض الربانية بالجداول الألكترونية new.zip معد البرنامج مهندس /خالد الطاهر حدادة

السلام عليكم الحقيقة ان الموضوع رائع للغاية و يا حبذا ان تم أضافة تمارين للتدريب عليها و الحل حتى يتمكن الأعضاء من الأستفادة الكلية يعنى يكون فيه واجب كالمدرسة يا لها من أياااااااااااااااااام مضت ( أتحدث جديا و لا أمزح ) أرجو ان يوضع هذا الطلب فى الأعتبار ... أه نسيت شئ ارجو عند انتهاء المحاضرات ان يكون هناك ملف PDF تحيتى لكم جميعا حفظكم الله و وفقكم الى ما فيه الخير فى الدنيا و الآخرة دمتم بخير و أعزكم الله .

المشكلة بسيطة انت لم تقم بتثبيت الخلية A2 في المعادلة لتصبح هكذا 2$A$

السلام عليكم أنا هقولك على طريقة وحضرتك عليك التنفيذ 1 - ضع كود الدالة دى فى مديول جديد فى الملف Function INSERTPICTURE(ByVal PictureFullName As String, Optional ByVal PicWidth As Single = 200, Optional ByVal PicHeight As Single = 150) Dim CellActive As Range Dim picPicture As Object Set CellActive = Application.Caller For Each picPicture In CellActive.Parent.Pictures If picPicture.TopLeftCell.Address = CellActive.Address Then picPicture.Delete Exit For End If Next Set picPicture = CellActive.Parent.Pictures.Insert(PictureFullName) With picPicture .Left = CellActive.Left + 1 .Top = CellActive.Top + 1 .Width = PicWidth .Height = PicHeight End With End Function 2 - لتنفيذ الدالة : قم بعمل مجلد كمصدر للصور وليكن مثلاً على البارتشن H المجلد ده سميه أى اسم وليكن مثلا Sample Pictures ضع الصور في هذا المجلد الصور لاحظ أن صورك تكون بامتداد jpg كل صورة لها اسم والاسم ممكن يكون حروف أو رقم المهم لنفترض أن صورتين في هذا المجلد واحدة باسم mokhtar و الثانية باسم marmar في الخلية A1 مثلا قم بكتابة المعادلة التالية : =INSERTPICTURE("H:\Sample Pictures\mokhtar.jpg";200;150) لاحظ فى المعادلة اسم البارتشن H واسم المجلد واسم الصورة والامتداد وطول وعرض الصورة بمجرد كتابة المعادلة وتضغط انتر هتلاقى الصورة قدامك ظهرت عايز تنزل الصورة marmar شوف عايز تحطها جنب الأولى ولا تحتها براحنك أول خلية فاضية جنب الصورة الأولى أو تحتها ولتكن D1 اكتب المعادلة السابقة مع تغيير اسم الصورة: =INSERTPICTURE("H:\Sample Pictures\marmar.jpg";200;150) نزل باقى صورك بنفس الطريقة ظبط عرض الأعمدة وارتفاع الصفوف فى الشيت ليظهر التنسيق كما ينبغى عرض الأعمدة 10.5 ارتفاع الصفوف 21.75 ده غالبا يتماشى مع الصور 200X150 إن قابلتك مشكلة أرفق الملف والصور تحياتى

السلام عليكم أخي Sakro ما زلت مصراً على طلبي منك تعريب اسمك الكريم بدايةً ثم من ناحية حجم التقرير اتبع الخطوات التالية: افتح التقرير على طريقة عرض التصميم 1- من طرف التقرير الأيمن ضع مؤشر الماوس عندما يتحول إلى مقيض سحب ثم اسحب إلى الجانب التقرير الأيسر. 2- تقوم بتحديد كل العناصر الموجودة في رأس التقرير وتنزيلها إلى رأس الصفحة .أو بالسهم إلى أسفل لتستقر في رأس الصفحة. 3- تغلق الفراغ الذي تركه رأس التقرير بالماوس - مقبض السحب . 4 - انتقل بزر العرض إلى المعاينة قبل الطباعة وستجد إن شاء الله تعالى ما يرضيك والسلام عليكم..

أولاً هذا هو الرابط للمشاهدة الحية رقم الجلوس 1 من هنا الخطوات بقى ودى الأهم أول خطوة عمل ملف إسمه ntiga بإمتداد xml يحتوى على نتيجة الطلاب بالمواد والدرجات ورقم الجلوس وهذا الملف يتم عمله بخطوات معينة كالتالى 1. عمل النتيجة بملف إيكسيل وبه كل البيانات مسلسل ( يفضل أن يكون المسلسل هو رقم الجلوس ) و الإسم ورقم الجلوس و درجات المواد المختلفة ونتيجة الطالب 2. فتح برنامج الأكسيس وتصدير ملف الإيكسيل إليه كجدول 3. تصدير الجدول من ملف الأكسيس إلى ملف بإمتداد xml ثانى خطوة تصميم فلاش إسمه ntiga أنا شخصياً إستخدمت إمتداد فلاش SWF ويكون الفلاش مناسب للداتا المراد وضعها فى النتيجة أى يحتوى على إسم المدرسة ومكان لوضع رقم الجلوس ومكان لظهور الداتا التى ستكون نتيجة الطالب الذى يضع رقم جلوسه وأنا شخصياً إستخدمت برنامج الإيكسيل لتصميم هذا الفلاش مستخدما برنامج الأخ الفاضل والاستاذ الخبير أبو تامر لأخذ الصور للتصميم من ملف الإيكسيل ثالث خطوة عمل ملف إسمه ntiga بإمتداد HTML وهذا لفتح الفلاش على النت للمستخدم الذى يريد رؤية نتيجته وأثناء العمل على الكومبيوتر أثناء إعداد برنامج النتيجة سيتم ربط ملف الفلاش بملف الHTML وعندما يتم الرفع لن تكون هناك مشكلة فى رؤية الفلاش الاصلى حتى لمن لا يكون على جهازه برنامج عرض الفلاش فمتصفح الإنترنت فى هذه الحالة سيتمكن من عرض الفلاش رابع خطوة عمل مجلد إسمه ntiga ووضع فيه الثلاث ملفات السابق شرحها فى الخطوات من 1 إلى 3 خامس خطوة إستئجار مكان لإستضافة النتيجة ويكون ذلك بمبلغ حسب حجم الداتا وفى حالتنا هنا فمساحة 5 ميجا تكفى لرفع نتيجة أكثر من 3000 طالب وقد تكلف 100 جنيه سنوياً حسب اسعار مواقع الإستضافة ولكن شرط أن يكون الموقع يدعم إستضافة قواعد البيانات يمكن إستخدام أحد المواقع المجانية ولكن فى هذه الحالة يمكن أن يختفى موقعك فجأة ودون سابق إنذار كما سيتم عرض إعلانات لا تتحكم فيها على موقعك ثم رفع المجلد الذى إسمه ntiga على الموقع المذكور سادس خطوة نسخ عنوان ملف الـ html من الموقع الخاص بك المستأجر أو المجانى وهذا العنوان هو الذى سيستخدمه من يريد رؤية نتيجته ويتم ذلك بالطريقة التالية 1. الدخول على اللينك ستظهر رسالة التعريف بإسم المدرسة وبها مستطيل يضع به الطالب رقم جلوسه ثم يضغط إنتر من الكى بورد 2. ستظهر له رسالة إدخال خاطئ سريعة ولن تظهر له درجات لو كان الرقم غير صحيح 3. لو أدخل رقم جلوس صحيح ستظهر له نتيجته بالتفصيل وفى إنتظار آرائكم وأنا تحت أمركم جميعاً مرة أخرى هذا هو لينك التجربة ورقم الجلوس 1 من هنا إخوانى الأعزاء خالص الشكر للأخ محمد العجوز من سوريا وقد إستفدت كثيراً من طريقة رفعه لنتيجة طلاب جامعة الفرات

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

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

لدالة البحث VLOOKUP إمكانيات مذهلة لا يعلمها الكثير بالتاكيد تم استعراض الكثير من هذه الامكانيات على منتدى اوفيسنا إن لم يكن كلها ولكن كانت فى الاغلب رداً على اسئلة زملاء فلم ينتبة اليها الكثير لهذا سنستعرض معاً إمكانيات هذه الدالة على شكل - امثلة مع الشرح فكرة 1 / فكرة 2 / فكرة 3 / وبما اننا استخدمنا الدالة MATCH فلنتذكرها معاً فى المرفق ستجدوا التطبيقات وستتوالى باقى امكانيات هذه الدالة تباعاً ان شاء الله VLOOKUP _ 1.rar

السلام عليكم ورحمة الله وبركاته بسم الله الرحمن الرحيم أتمنى من الله أن تكونوا جميعا بألف خير وصحة وصيامكم خفيف ومقبول إن شاء الله موضوع اليوم هو تجميعة للأكواد الخاصة بحفظ الإكسل كـ PDF سواء الصفحات أو النطاقات أو ملفات الإكسل كاملة مع إمكانية إرسالها عن طريق الأوت لوك Outlook الملف المرفق بيه كل الأكواد المستخدمه يمكنك التعديل عليها بما يتناسب مع إحتياجك يحتوي الملف على أكواد تقوم بعمل التالي بإذن الله سيتم قريبا طرح موضوع عن إرسال الـ PDF من الإكسل عن طريق الإيميل ولكن ليس بواسطة Outlook ولكن بعد الـ Mail Clients الأخرى أو حتى بدون برنامج للإيميلات ==== رابط للإخوة الزائرين http://www.up-00.com/?4Jrg ودمتم في رعاية الله PDF and EMIL.rar

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

ا / خالد بارك الله فيك

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

الف شكر وسأحاول اطبق شرحك وافيدك بما يحدث شاكر لك وشهر مبارك عليك

الاخوة الكرام / اليوم نستعرض فكرة اخرى من استخدامات الدالة VLOOKUP أسال الله التوفيق فى طريقة الطرح فكـــرة 5 / والان نستعرض أساليب مختلفة لكتابة الشرط وتأشير ذلك على المعادلة المستخدمة التطبيق بالمرفقات VLOOKUP-5.rar ................................................................................ يتبـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــع

بارك الله فيك

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

بعد اذن اخي الفاضل ابو خليل (اخي الفاضل mohmd_haidr المقصود بالاجراء هو كود تشغيل الاستعلام ضعه بين هذين السطرين

أخى الحبيب الغالى / ياسر خليل

السلام عليكم الاخ الكريم مختار جزاك الله كل الخير وجعل الله سعيك فى ميزان حسناتك اعجز عن تقدير تعبك ووقتك الثمين انت وجميع اعضاء المنتدى جزاك الله كل الخير

السلام عليكم ورحمة الله وبركاته السيد الاستاذ/ محمد حسن المحمد اشكرك جزيل الشكر علي سرعة الرد وحل المشكله في اسرع وقت ربنا يجزيك خيرا دائما وجاري تغيير الاسم :) شكرا جزيلا

اخى طارق كل ما عليك هو اعاده سحب المعادلات من جديد لان هذا الخطأ يحدث حينما تحزف نطاق المعادله مثلا فى العمود cg ستجد ان المعادله فى السطر19 تكون بهذا الشكل =IF(BU$3=0,0,IF(LEN(C19)=0,0,1)) وبالتالى فان نطاق المعادله هو الخليه c19 LEN(C19) اما فى نفس العمود فى السطر 20 ستجد المعادله بهذا الشكل =IF(BU$3=0,0,IF(LEN(#REF!)=0,0,1)) وبالتالى فليس هناك نطاق للمعادله ولتصحيح هذا الخطأ قم بسب المعادله الموجوده فى c19 وحتى اخر سطر ............................... اذا كانت الاجابه صحيحه يرجى اختيارها كافضل اجابه والضغط على زر لايك جلعل الموضوع مقفولا ........................... تقبل تحياتى

السلام عليكم و رحمة الله و بركاته .. الأخ محمود .. الاخوة الأفاضل .. اضع بين ايديكم نموذج أولي لبرنامج التوزيع الذي تحدثت عنه : البرنامج مبرمج بلغة البرمجة شي شارب كتطبيق ويندوز (اسمه Mosques.exe)... مفتوح المصدر بالمرفقات لمن أراد الاطلاع أو التعديل أو الاستفادة .. و كذلك مرفق البرنامج التنفيذي لمن يريد تجريب البرنامج و ليس لديه بيئة التطوير فيجوال استديو . التطبيق يقوم بتوزيع الأئمة المثبتين أولا , لأن هؤلاء لديهم خيارات محددة ... في الخطوة التالية , التطبيق يقوم بتوزيع الأئمة الذين لديهم "منع زمني" أو "منع في مساجد محددة" لأن هؤلاء أيضا خياراتهم محددودة و يجب توزيعهم في المراحل المبكرة . بعدها يقوم التطبيق بمحاولة توزيع الأئمة الباقين على ما تبقى من مساجد متاحة : قمت بتطبيق خوارزمية تشبه خوارزمية لعب الشطرنج ... أي أنه في المرحلة الأولى لدينا مثلا 1000 إمام و ممكن اضعه في 1000 مسجد , الأمام الثاني بقي لديه 999 خيار ...و الثالث بقي لديه 998 و هكذا ... في حال وصلنا لمرحلة معينة في التوزيع و لم يعد هناك خيارات ممكنة !!! نتراجع عن الخيار السابق و نغيير توزيع الامام لمسجد مختلف ونعاود المحاولة ..أي أننا نقوم ببناء ما يسمى "شجرة الحلول". مثل هكذا تطبيقات بحاجة لذاكرة في الكمبيوتر و سرعة معالجة .. للمبرمجين : بما أن فكرة الحل هي بناء شجرة الحلول , فأنه و بسبب حجم البيانات الكبير , يجب رفع حجم المكدس (stack) في الملف التنفيذي بعد بنائه عن طريق فتح Visual Studio Command prompts ثم تنفيذ الأمر التالي , لرفع الحجم إلى 20 ميغا (اعتقد انها مناسبة) , الاخوة الذن معهم الملف التنفيذي المرفق , على الأغلب لن يحتاجوا لمثل هذه الخطوة كوني قمت بها مسبقا (ملاحظة : للبيانات الصغيرة لا مشكلة , و لكن في البيانات الكبيرة سينهار التطبيق دون رفع الحجم كما في الأمر التالي) . editbin /stack:20000000 D:\f\Mosque\Mosques\Mosques\bin\Release\Mosques.exe يجب وضع التطبيق و قاعدة البيانات في نفس المجلد (أي D:\مساجد) و التطبيق يتعامل مع القاعدة بالاسم (msajed_be.mdb) يجب عدم تغييره . التطبيق يعمل ضمن أفضلية عليا (High) في إدارة المهام (Task Manager) لذلك يجب إغلاق كافة البرامج و خصوصا قاعدة البيانات قبل عملية التوزيع كي نضمن أن الحاسب يقوم فقط بالتوزيع .., قمت بخفاء نافذة البرنامج أثناء التوزيع كي لا نحصل على الرسالة المشؤومة "هذا التطبيق لا يستجيب!!!".. قمت بتجريب التطبيق على قاعدة بانات تحوي تقريبا 1500 إمام و 1500 مسجد .... لكن مالذي يحصل ؟ التطبيق يبدأ بإخراج (رقم الامام) الذي يقوم بتوزيعه حاليا و إذا لاحظت أنه وصل للارقام الاخيرة و بدأ يكررها .. و تأخر أكثرمن 10 دقائق مثلا في التوزيع ... في هذه الحالة يكون البرنامج قد قام بتوزيع أول مجموعة بشكل خاطئ و لم يعد هناك خيارات متاحة للعناصر الأخيرة ....بدل من الانتظار لساعات طويلة ريثما يتم التراجع , يمكن الضغط بــمفتاح الكونترول مع الحرف سي الانجليزي أي (CTRL +C) لإغلاق البرنامج من النافذة السوداء التي تظهر بعد ضغط الزر "توزيع" . و قم بتشغيل التطبيق و المحاولة مرة أخرى بالتوزيع , لكن يفضل اختيار الخيار الثاني أو الثالث من قائمة لائحة "الدقة" على نافذة البرنامج. حاليا في التطبيق : إذا كان عدد الأئمة أكبر من عدد المساجد , يقوم التطبيق بتوزيع كل الأئمة على المساجد لكن سيكون لــ "بعض الأئمة" فقط 3 مساجد في الشهر و البعض (4).. ألا يعتبر هذا نوع من العدالة في التوزيع .. أم تريد "أخ محمود" أن نحذف الأئمة الزيادة تماما من التوزيع و نوزع الباقي على أربع جمع كاملة (أو خمسة) .. حاليا التطبيق فقط يوزع و لا يقوم بحفظ التوزيع في القاعدة (الخطوة التالة في حال كان التوزيع سليما) . لنا عودة .. بانتظار ملاحظاتكم ... مساجد.zip C#_Mosques.zip

أعتقد أن هذا هو الكود النهائى يا أبا حنين الكود ينتج عنه ملف PDF واحد ويحتوى على النطاقات التى تحوى كلمة printing فقط وبدون تكرار النطاقات Sub SaveAsPDFB2CONFinal() Dim fName As String, i As Integer Dim AWS As Worksheet, RWS As Worksheet, ws As Worksheet Application.DisplayAlerts = False Application.ScreenUpdating = False Set AWS = ActiveSheet Set RWS = Worksheets.Add(After:=Sheets(Worksheets.Count)) fName = "D:\" & Worksheets(1).Range("A5").Value & " " & Worksheets(1).Range("D5").Value & ".pdf" For Each ws In Worksheets With ws If .Range("A1").Value = "printing" Then .Range("A1:F20").Copy RWS.Range("A" & RWS.Rows.Count).End(xlUp).Offset(1) End With Next ws RWS.ExportAsFixedFormat Type:=xlTypePDF, FileName:=fName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False RWS.Delete AWS.Activate Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub تفضل المرفق PDF Based 2 Condition Final .rar

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

الاخ ابو عبدالله كل عام وانتم بخير في الرابط التالي ان شاء الله طريقة رفع نتائج الإمتحانات على النت خطوة خطوة للزميل يوسف عطا http://www.officena.net/ib/index.php?showtopic=28948 اتمنى من الله بأن يكون هو المطلوب

عمل رائع تشكر عليه .. وياليت نتعلم طريقة توزيع الصلاحيات ..

الحل سهل وبسيط وكل عام وانتم بخير حساب العملاء.rar

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

أخي الحبيب أبو يوسف إليك الكود التالي عله يفي بالغرض ضع الكود في موديول جديد Sub TellMe() Dim CalState CalState = Application.Calculation If CalState = -4135 Then MsgBox "Calculation Is Manual" End Sub ثم ضع الأكواد التالية في حدث المصنف Private Sub Workbook_BeforeClose(Cancel As Boolean) TellMe End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) TellMe End Sub Private Sub Workbook_Open() TellMe End Sub سيتم التذكير عند فتح المصنف وعند حفظ المصنف وعند إغلاق المصنف أرجو أن يكون هذا هو المطلوب Warn Me.rar

السلام عليكم ورحمة الله تعالى وبركاته انا النهاردة حابب اتكلم عن دالة مهمة جدا من وجهة نظرى المتواضعة دالة من دوال التكرار دالة Do While....loop طبعا بما انى مليش فى الشرح اوى فاسمحولى اتكلم كدا بالبلدى ههههههه اول سؤال احنا بنستخدم الدالة دى امتى ؟؟؟ الاجابة اننا بنستخدم الدالة دى لما نكون عاوزين نكرر كود محدد بس اكتر من مرة ومش عارفين عدد محدد لتكرار والحدث او الكود اللى هنكرره دا هيتكرر بناء على شرط معين يعنى لو الشرط اتحقق كرر الكود وهكذا ... قشطة لحد كدا ؟؟؟ شكل الدالة دى بيبقى عامل ازاى Do While الشرط الكود Loop Do While condition code Loop يعنى ايه بقى الكلام دا المقصود ب Do While هو تنفيذ code طالما التعبير الشرطى True قشطة لحد كدا تمام ؟؟ علشان المعلومة تثبت لازم نعمل تدريب عملى هنعمل تدريب عملى بسيط جدا تعالو نشوف انا عاوز اعمل نموذج فى قلبه ليست بوكس اقوم عن طريق الدالة Do While اقوم عن طريقها بادخال الاسماء داخل الليست بوكس نفتح الاكسس ونعمل نمذج فارغ ونسميه Form1 ونعمل زر لااضافة الاسماء ونسميه Button1 ونضيف الليست بوكس ونسميها Listbox1 ايه المطلوب بقى منى ؟؟ المطلوب عن الضغط على زر Button1 يظهر صندوق InputBox لا ادخال الاسماء يبقى احنا هنستخدم دالة InputBox فى ادخال الاسماء تمام كدا يعنى لما اضغط على الزر المفروض يظهر InputBox علشان ادخل الاسم الاول ويظهر مرة تانيه علشان ادخل الاسم الثانى وهكذا لحد ما قيمة الشرط فى دالة Do While تبقى false كدا ينهى الحدث هنخلى الشرط بتاعنا هو عند ادخال كلمة انهاء يقوم بانهاء ادخال الاسماء وهنلاحظ كدا وجود حلقة تكرارية مش عارفين عدد مرات التكرار قد ايه وينتهى التكرار بمجرد ادخال كلمة " انهاء" يلا بينا على الكود طبعا دا هيتحط فى حدث عند النقر للزر 'هنفرض متغير x من نوع نص Dim x As string 'الشرط هنا بيقول انه طالما المتغير x لا يساوى انهاء كرر الكود Do while x<>"انهاء" x=InputBox("ادخال اسماء الطلاب") Me.Listbox1.AddItem (x) Loop شكرا ليكم تحياتى اخوكم مارد عارف انكم كلكم عارفين الدالة دى :mad: بس رخامة وخلا ص Do While .... Loop.rar

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

لا تبالى المهم أننا توصلنا للحل بفضل الله اجعل الموضوع منتهياً ومجاباً باختيار أفضل اجابة كل سنة وأنت بخير

أخي الترتيب في التسلسل في الملف المرفق من قبلك صحيح بالنسبة لي قم بالدخول على التبويب Formulas ثم Calcualtion Options واختر Automatic ستجد الترتيب في التسلسل صحيح إن شاء الله

أخي الكريم أبو يوسف النجار حسب ما فهمت من طلبك يمكنك ببساطة استخدام المعادلة التالية في الخلية A6 =SUBTOTAL(103, $B$6:B6) قمت بتغيير تنسيق الخلية من نص إلى عام General كما قمت بتفعيل العمليات الحسابية لتكون Automatic يمكنك الآن القيام بالفلترة وسيتم التعامل مع البيانات المفلترة بالتسلسل الصحيح .. أي أن الغرض من المعادلة الحفاظ على عملية التسلسل حتى مع وجود تصفية أرجو أن يكون المطلوب تصفية.rar

الأخ الكريم محمود أما آن لك ان تقوم بتغيير اسم الظهور للغة العربية أنا لست متابع للموضوع ولكني قمت ببعض التعديل على الملف الخاص بي الذي أرفقته ليناسب طلبك ليتم تنفي الكود بشكل تلقائي Sub UniqueItems() 'يقوم الكود باستخراج القيم الغير مكررة أي الفريدة وعدها '------------------------------------------------------- 'تعريف المتغيرات Dim R As Range, Cel As Range, LR As Long, D, A 'تحديد آخر خلية بها بيانات في أي عمود LR = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).Row 'تحديد النطاق المراد العمل عليه واستخراج القيم الفريدة منه Set R = Range("A1:E" & LR) 'تعيين المتغير لتخزين القيم الفريدة داخله Set D = CreateObject("Scripting.Dictionary") 'جملة لتجنب ظهور رسائل خطأ أثناء تنفيذ الكود On Error Resume Next 'مسح محتويات النطاق الذي ستظهر فيه النتائج Range("I2:J500").ClearContents 'حلقة تكرارية لكل خلية داخل خلايا النطاق For Each Cel In R 'إذا لم تكن الخلية قيمتها صفر يتم إضافة العنصر للمتغير المخصص لذلك If Cel <> 0 Then D.Add CStr(Cel), CStr(Cel) Next 'تعيين المتغير ليساوي العناصر الفريدة التي تم تخزينها داخل المتغير الأول A = D.Items 'إظهار النتائج بعد تحويلها إلى شكل رأسي حيث أن المتغير يخزن القيم على شكل مصفوفة Range("I2").Resize(D.Count) = Application.Transpose(A) 'إظهار نتائج عد القيم Range("J2").Resize(D.Count).FormulaR1C1 = "=COUNTIF(R1C1:R100C5,RC[-1])" End Sub تقبل تحياتي Count Unique Items Automatically.rar

سلمت يداك اخي مارد على المجهود والمشاركة الرائعة ... تحياتي

تفضل اخى الكريم log(off-on).rar

اخى الكريم ضع هذا الكود فى نص التحقق من الصحة لمربعات نصوص البرد الاليكترونى فقط للتاكد من صحة الاميل المسجل Is Null OR ((Like "*?@?*.?*") AND (Not Like "*[ ,;]*")) المصدر http://www.pcreview.co.uk/threads/table-design-field-email-address-format-mask.1682491/

اصدقائى هذا برنامج مخازن معدات قد انتهيت منه من فتره صغيره اعلم انه يوجد قصور فيه الى حد ما . فمن يحب الاضافه جزاه الله خيرا. اخوكم : وائل معوض. . برنامج مخازن معدات.rar

أستاذ أزهر ما رأيك في التعديل التالي ( تم تعديل الجز الخاص بعرض السجلات التي تبدأ بحرف بواسطة : علي المصري ) في المرفقات فرز التقرير.rar