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

بسم الله والحمد لله ولا اله الا الله والله اكبر الحمد لله رب العالمين الحمد الله الذى تتم بنعمته الصالحات شكر وتقدير لكل معلمينا فى هذا الصرح الشامخ على وجه العموم وشكر خاص لكل من المعلمين [ ابو خليل , جعفر , يوسف , رمهان , ابا عمر , رضوان , عبد الرحمن هاشم , ابو الاء , علي المصري , راعى الغنم , اخر الارض ] على وجه الخصوص واختص اصحاب البرامج اومن قدم يد العون والمساعده فى تطويرها والاضافة اليها نظام المستخدمين الخاص بالاستاذ مهند العبادى تعديل العبد الفقير الى الله اضافة التحكم بالعناصر لكل مستخدم ضمن نظام المستخدمين الاستاذ ابو خليل تصغير القاعدة بجوار الساعه مع الاحتفاظ بأيقونة الاكسس عند التكبير على شريط المهام وعدم ظهور الاطار عند الضغط عليها الاستاذ ناصر - تعديل الاستاذ ابا عمر البحث والفلترة وتظليل ناتج البحث ---- الأستاذ رمهان والاستاذ اباعمر اخفاء اطار الاكس نهائيا - الاستاذ ابا عمر http://im56.gulfup.com/0Q9Ybe.jpg اهاا نسيت شئ اسم كل مستخدم هو نفسه الباسورد لفتح القاعده المرفق بعد تعديل عناوين الراوبط ليشمل كل من تنسيق اوفيس 2000-2003 Access Loge in Hide Win2000-2003.rar وتـــــــــنسيق اوفيس 2007-2013 Access Loge in Hide Win 2007-2013.rar << تم تحديث الروابط (الإدارة) >>

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

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

لو أمكن إرفاق الملف للبحث في سبب المشكلة فليس منطقيا أن يحدث هذا وليس لنا معرفة السبب بدون فحص

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

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

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

السلام عليكم ورحمة الله وبركاته بارك الله فيك اخي الكريم استاذ ياسر ودائماً الى الامام بكل ماهو جديد ومميز واسمح لي ان اوضح لاخونا السائل الاستاذ محيي الدين عن اول ما جال بخاطري عن هذا الكود احيانا قد نحتاج الى عرض تقرير معين لحساب معين باكثر من متغير كالتاريخ او اسم من قام بتسجيل البيان او ... او ... الخ وهو امر سهل وبسيط ومتعارف عليه ولكن ماذا لو كان المطلوب هو تقرير معين لاكثر من حساب وبمتغيرات محددة ؟؟؟ وهنا تبرز فائدة الكود وللتوضيح اكثر لنفترض ان لدينا قاعدة حفظ بيانات ( عبارة عن قيود يومية ) ولنفترض انني اريد عمل تقرير لمجموعة حسابات منتقاة كل حسب كوده في دليل الحسابات وذلك خلال فترة معينة لنوعية القيود التي تحمل النوع PAYABLES وتم اختيار ارقام الحسابات عن طريق ليست بوكس MULTI SELECTION وتم وضع هذه الارقام في صفحة محددة بشكل عمودي ولتكن صفحة بمسمى مؤقت وبتنفيذ الكود بالشكل التالي نحصل على المطلوب اولا : عمل تقرير لآخر رقم حساب في صفحة مؤقت وادراجه في صفحة التقارير ثانياً : حذف آخر سطر من صفحة مؤقت ثم تكرار الكود بنفس الخطوات مع مراعاة لصق النتائج الجديدة في آخر سطر بصفحة التقارير حتى يتم حذف كل ماهو موجود في صفحة مؤقت وبذلك نكون قد حصلنا على تقرير لاكثر من حساب مختار وباكثر من متغير ارجو ان تكون الفكرة واضحة تحياتي للجميع

مشكور مشرفنا الغالي على التنبيه تم التعديل ولكم جزيل الشكر

الأخ الحبيب ياسر فتحي راجع الرابط التالي http://www.officena.net/ib/index.php?showtopic=56629&hl= عله يكون موضوع مكرر ... أخيراً لقيت حاجة قديمة في الفهرس بتاعي مفيدة !!!

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

بامر الله انا تقريبا خلصته ون شاء الله هنزله على طول من عنيا

يشرفنى دائما مرورك الكريم على موضوع لى أ / ياسر أطال الله عمرك وجزيت خيرا أيضا

شكرا على كل المجهودات المبذولة

شكرا بارك الله فيك

رائع أخي الحبيب ياسر فتحي تسلم وربنا يبارك فيك جزيت خير الجزاء على الملف الرائع

شكرا جزيلا على المجهود

السلام عليكم و رحمة الله و بركاته .. khezzani64.rar

وعليكم السلام ورحمة الله جرب المعادلة التالية (معادلة صفيف) =MIN(IF((A2:A36>=I2)*(K2>=A2:A36);$B$2:$B$36)) بن علية

شوف الفيديو ده لتمكين الماكرو أو وضح طلبك بشكل أكثر تفصيلاً أخي عبد الله أبو الأنوار

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

بارك الله فيك وفي بلدك وفك كربك وكرب كل مسلم وجمعني معك في جنته جنة الفردوس الأعلى. اشكرك على الاهتمام

بسم الله الرحمن الرحيم مرفق لكم بفضل الله تعالى برنامج شؤون الطلاب والعاملين والكنترول ) برنامج الشؤون 4 ( فى برنامج واحد ولجميع الصفوف وعلى أى قرار وزارى أيا كان رقمه سواء كان القرار 460 أو القرار 313 أو أى قرار سيصدر مستقبلا لأن هناك خاصية يمكن من خلالها التعديل على القرار الوزارى جديد الاصدار 1) شؤون الكنترول لجميع الصفوف فى برنامج واحد بحجم صغير بسبب الاعتماد على المعادلات لا الماكرو أو الأكواد ويحتوى الاصدار على هذه المشتملات : * كشف أعمال السنة * كشف الناجحين والراسبين من خلال الاختيار من القائمة المنسدلة * صفحة الأوائل على مستوى الصف على حسب المجموع والسن * صفحة الضعاف العشرين على مستوى الصف لمعالجتهم * صفحة المتفوقين والضعاف فى جميع المواد الدراسية لجميع الصفوف * كشف النسبة والترتيب العام وعلى كل مادة لجميع المواد * شهادات بتصميمات مختلفة * إحصاء عام وشامل لكل من المدرسة والادارة * كشوف اللجان والمنادة 2) شؤون الطلاب لجميع الصفوف بأشكال مختلفة عن الاصدارات السابقة شاملة الاتى : * قاعدة بيانات تفصيلية الية المدخلات شاملة الاسم / والنوع / الرقم القومى / تاريخ الميلاد / السن / الفصل / حالة القيد ...............ز * كشف أعمال السنة قابل للتعديل * قوائم الفصل من خلال اختيار الفصل من القائمة المنسدلة * بيان حالة قيد تلميذ 3 ) شؤون إدارية شاملة الاتى : * قاعدة بيانات تفصيلية لجميع العاملين * إحصاء العاملين على حسب الدرجة والمواد * إحصاء عام وشامل لكل من التلاميذ والعاملين والفصول * نماذج غدارية هامة كالغياب اليومى والرواد ........... لتحميل البرنامج اضغط هنا أسأل الله تعالى أن يكون هذا العمل خالصا لوجهه تعالى وأن يغفر لنا ولكم إنه هو الغفور الرحيم

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

وفقك الله,, ولك مني جزيل الشكر هذا هو المطلوب بعينه وخشمه.. ياترى وين القمقم حقك ايها المارد^_^ الشكر مرة اخرى...

سلام: 1: لديك خطأ في دالة حقل المجموع لأن المجموع هو اجمالي المبلغ المستحق ع العميل وبالتالي تكون دالته ([العدد]*[السعر]) بدون خصم الدفعة والتي تكون في حقل الرصيد كالتالي [المجموع]-[الدفعة] 2: لديك خطأ عند ادخال الدفعة حيث تكتب السعر والعدد وهذين الحقلين لا علاقة لهما بالدفعة وينبغي ابقائهما بقيمة صفرية 3: لديك خطا ان تكتب السعر والعدد والدفعة في سجل واحد ويلزم جعل الدفعة في سجل منفرد لأنها مبلغ واصل والعدد والسعر في سجل اخر لأنها مبلغ مستحق 4: لديك مرفق فاذا كان هو ماتريده فكان بها ونعمت والا فانا مستعد للمساعدة.. برنامج الديون.rar

اى تعديل تريده اخبرنى وليوفقنا الله على تعديله

تفضل اخى الكريم هذا هو برنامج بطريقة اجمل وبتنسيق احلى اعاننى الله على تصميمه لك فى نموذج فاتورة جديدة كل ما عليك هو كتابة التاريخ وسيحدث ا\رقم الفاتورة تلقائى 1 2 3 4 برنامج فواتير.rar

طيب دى روابط تانية للاطمئنان واتمنى استبدال المرفق تسهيلا على رواد المنتدى بارك الله فيكم ميديا فاير توب4 توب التحميل من المرفق READ IT.txt

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

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

أخي الحبيب صلاح الصغير الموضوع أصغر مما تتخيل وأبسط مما تتخيل .. ضع المعادلة التالية في الخلية C13 =SUBTOTAL(9,C2:OFFSET(C14,-2,0)) بس خلاص جرب تدرج صفوف براحتك يا كبير !! شرح المعادلة : ------------ المعادلة زي ما إنت كاتبها .. شوف اللي اتغير !! وصلت تمام الحمد لله انتهى الشرح اللي اتغير بدل ما أحدد نهاية النطاق أخلي الإكسيل هو اللي يحدده ودا باستخدام الدالة Offset اللي بيسموها (دالة الإزاحة) الإزاحة بتبدأ منين من الخلية اللي تحت الخلية اللي بكتب فيها المعادلة وعدد صفوف الإزاحة صفين لفوق .. يعني اطلع صفين لفوق عشان كدا تلاقي الرقم بالسالب وعدد أعمدة الإزاحة صفر لأننا بنعمل إزاحة في نفس ذات العمود لا تنسى أن تحدد الإجابة كأفضل إجابة ليظهر الموضوع مجاب ومنتهي .. تقبل تحياتي :fff:

جرب هذا الملف sumInLastrow.rar

khezzaniprg64-2.rar

أخي الحبيب علاء رسلاااااااان الحمد لله تم بحمد الله وعونه وتوفيقه الانتهاء من المرحلة السابعة (كأننا بنركب فلتر مية .. ومش أي فلتر .. فلتر سبع مرااااااااااحل ) أخيراً انتهيت من هذا الملف اللي طلع عيني وخلاني مش شايف قدامي إليكم النسخة النهائية .. البيانات المفترض استخراجها تم استخراجها في ورقة عمل أخرى وهذا هو كود التجميع Sub FinalCollection() Dim I As Long, X As Long, Y As Long X = 2: Y = 3 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("Collector") .Range("A2:E10000").ClearContents For I = 1 To Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row Step 3 .Cells(X, "A").Value = Sheets("Data").Cells(I, "B").Value .Cells(X, "B").Value = Sheets("Data").Cells(I, "C").Value .Cells(X, "C").Value = Sheets("Data").Cells(I + 1, "F").Value .Cells(X, "D").Value = Sheets("Data").Cells(I + 2, "J").Value .Cells(X, "E").Value = Sheets("Data").Cells(I + 2, "K").Value .Cells(Y, "A").Value = Sheets("Data").Cells(I, "D").Value .Cells(Y, "B").Value = Sheets("Data").Cells(I, "E").Value .Cells(Y, "C").Value = Sheets("Data").Cells(I + 1, "G").Value .Cells(Y, "D").Value = Sheets("Data").Cells(I + 2, "L").Value .Cells(Y, "E").Value = Sheets("Data").Cells(I + 2, "M").Value X = X + 2 Y = Y + 2 Next I End With Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub أرجو أن ينفع الملف صاحبه الأخ بكري (اللي يبدو إنه نسي موضوعه تماماً أو يأس من عدم الوصول لحل ..) ولا يدري أنه بالإصرار يتحول المحال إلى ممكن ، وهذا كله بفضل الله وحده ثم بفضل الله وحده فلولا توفيق الله ما استطعت أن أخطو خطوة واحدة ولا أن أصل إلى ما وصلت إليه فاللهم لك الحمد ربي لك الحمد ملء السماوات والأرض وملء ما بينهما وملء ما شئت من شيء بعد .. اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك .. اللهم لك الحمد حتى ترضى ولك الحمد إذا رضيت ولك الحمد بعد الرضى .. اللهم لك الحمد كله ولك الشكر كله وإليك يرجع الأمر كله .. تقبلوا تحياتي أخوكم أبو البراء Filter Data V7.rar

khezzaniprg64-1.rar

اتفضل HideWin.rar

أخي الفاضل محبوب اعذرني لانشغالي إن شاء الله غداً سأحاول أن أفرغ بعض وقتي لشرح الكود ربنا ييسر الأمور تقبل تحياتي

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

السلام عليكم و رحمة الله و بركاته .. جرب هذا اذا توفق مع نظام 64 بت khezzaniprg64.rar

ربما. . . اقول ربما يتخيل احدهم اني إتكالي او اني انبطح كتمساح فاتح فاه ليدخله طعام. . . كلا. . لست ذلك قارنت بين هذا الفورم وغيره وغطست في الاكواﺩ محاولا الفهم كعصامي . . بيد انها اكواد تكشط تلافيف عقلي وارقتني ليال طوال . . . لكني اعلن هزيمتي وذلك ليس ضعفا انما هي قلة حيلة . . واني وجدتني ارد على نفسي. . . . وسيظل صبري يصاحبني رغم ان عدم اكتراثك استاذي يسهدني. . يؤرقني. . . يثير في قلبي الم يعصرني. . . او ان هذا سر لا يجب على من مثلي فك طلاسمه. . . . رغم كل شئ تظل استاذي وابقى ﻣﻤﺘﻦ

جرب رفع الملف هذا !! شوف النتائج في الصور المتحركة: جعفر 66.BarcodeStudent.mdb.zip

السلام عليكم أستاذنا الفاضل / الجندبي (هاي لزقة فيك ) كان على بالي أخبرك عن موضوع ارفاق صور الطلبه في البرنامج ، ولكن وللأسف نسيت وشكرا لأخي حربي ، ذكرني بالموضوع فكرة إرفاق الصور داخل البرنامج ، ستؤدي الى مشاكل في البرنامج ، ومنها ان حجم البرنامج سيصبح كبيرا ، وقد لن تستطيع تستعمله!! والطريقة الصحيحة هي جعل الصور في مجلد على الكمبيوتر ، وانا افضل ان يكون هذا المجلد في نفس المجلد الذي يكون فيه برنامج الجداول (هذا اذا كان برنامجك مقسم الى قسمين) ، وإلا فيكون المجلد في نفس مجلد البرنامج. الملف المرفق بصيغة 2003 ، مع بعض التعديلات على البرنامج السابق ، والصور غير مرفقة في الجدول في البرنامج ، وانما هناك مجلد اسمه Student_Pictures (وانا وضعت فيه صورة للأخ أحمد واخرى لرائد) ، ويجب ان تضع مجلد الصور في نفس مجلد البرنامج (ما يهم اين ، ودائما تستطيع ان تنقلهم معا الى اي مكان تحب ، بشرط ان يكونوا مع بعض) ، واذا اردت ان يكون مجلد الصور في اي مكان آخر في الكمبيوتر ، فيجب تغيير المسار في الوحدة النمطية (وهناك مثال لهذا). جرب ادخال الباركود لأحمد او رائد ، ثم اضغط TAB ، وسترى الصورة جعفر 66.BarcodeStudent.mdb.zip

الأخ الفاضل لم أقصد بالملف المرفق أن تقوم بنسخ الكود في ملف نصي وتضعه ..بل أن ترفق ملف الإكسيل الذي به الكود !!!! ويرجى ضغط الملف ورفعه على سيرفر المنتدى ..بلاش الروابط الخارجية راجع التوجيه الثاني عشر http://www.officena.net/ib/index.php?showtopic=60147

مع اني معارض فكرة إعطاء تقرير عن المتأخرين (مو انا كنت منهم ايام زمان ) ، ولكن تفضل: جعفر 66.BarcodeStudent.accdb.zip

تم تطوير الكود لاحظ الخلية AC36 و AD33 تحياتي قمة وقاع5.rar

شكرا اخي الحبيب وجزاك الله كل خير وزادك علما ونفعنا من علمك :)

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

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

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