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

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

بسم الله الرحمن الرحيم طلب بعض الاخوة موضوع الوارد اولا صادر اولا (FIFO) قمنا بعمل مثال بالاكواد لحل هذه المشكلة المثال يعتمد على اعمدة مساعدة ويتم مسح البيانات منها بعد الانتهاء الكود المستخدم Sub YasserFIFO() Dim z As Byte Application.ScreenUpdating = False Range("K6:K23").ClearContents Range("D6:E23").Copy Range("R1") Range("r1:s18").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp Range("G6:G23").Copy Range("T1") z = 1 For Each x In Range("g6:g23") If x.Value <> "" Then If x.Value <= Cells(z, 18) Then Cells(x.Row, 11) = Cells(z, 19) * x.Value Cells(z, 18) = Cells(z, 18) - x.Value ElseIf x.Value > Cells(z, 18) Then 3 Cells(x.Row, 11) = Cells(x.Row, 11) + (Cells(z, 18) * Cells(z, 19)) x.Value = x.Value - Cells(z, 18) Cells(z, 18) = 0 For z = 1 To 20 If Cells(z, 18) = 0 Then GoTo 1 If Cells(z, 18) >= x.Value Then GoTo 2 If Cells(z, 18) < x.Value Then GoTo 3 1 Next z 2 Cells(x.Row, 11) = Cells(x.Row, 11) + (Cells(z, 19) * x.Value) Cells(z, 18) = Cells(z, 18) - x.Value End If End If Next Range("T1:T18").Copy Range("G6:G23") Range("R1:T18").Clear Range("a1").Activate Application.ScreenUpdating = True End Sub ومرفق المثال تستطيعوا تكبير المدى او جعله مرن بالتعديل على النطاقات الموجودة بالكود FiFo_2.rar

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

- المطالبة ببيانات الشركة / المؤسسة عند فتح القاعدة للمرة الاولى - نسخة تجريبية للسنة الحالية فقط حتى لو تم التلاعب بتاريخ النظام بالتقديم والتاخير فى شاشة اتفاقية الترخيصعند الضغط على الرز (F6) سوف تتم فتح نافذة لو تم تغيير التاريخ الى الى سنة 2016سوف يعمل البرنامج بنجاح - اخفاء اطارات الاكسس - انشاء مجلدات تخص نظم قاعدة البيانات -مشاركة الصور بحفظ مسارتها داخل المجلد الخاص بها بنفس مسار القاعدة -عرض الصور على الشبكة دون تغييرها او تغيير مسارها او تعديله او دون اى تدخل من المبرمج بدون عناء ( تصلح لصور الموظفين) تم ادراج نموذج يتحكم بكل صغيرة وكبيرة فى القاعدة لزيادة الحماية ملحوظة : القاعدة لن تعمل عند محاولة تغيير اسمها لم اخفى كل كائنات القاعدة بلا رجعة لم اقم بغلاق زر الشيفت demo.rar

بسم الله الرحمن الرحيم للتسهيل في استخراج مواد الرسوب للطلبة تم عمل هذه الدالة لاستخراج المواد الراسب فيها او متغيب يشترط وجود صف الدرجة العظمى ودرجة النجاح نضع هذا الكود في موديول Function ASEEL(x As Range) Dim D As String For Each Rng In x If Rng = "" Then GoTo 1 If Rng < Cells(5, Rng.Column) Or Rng = "غ" Then D = " (" & Cells(3, Rng.Column).Text & ")" & D End If 1 Next If D <> "" Then ASEEL = D Else ASEEL = "ناجح ومنقول" End If End Function ونضع هذه الدالة في الملاحظات داخل الكشف ونسحبها نزولا كما موضح بالمرفق =ASEEL(D6:J6) وشكرا دالة معرفة لاستخراج مواد الرسوب.rar

الى جميع الاخوى الاعضاء اضع بين ايدكم في منتدانا الكريم على ال جميع بلمعلومات ملف عله نستفيد منه والعطاء لله ومن الله تكرمون وتقبلو تحياني local_month_and_day_names.rar

يا هلا الف بابو عبدالله الحقيقة لو تكتب اي واحدة منهما في حضن قوقل لاخرج لنا العجائب من الشروح والمقالات وعل كل حال سأذكر المختصر المفيد instr تحدد موضع التواجد الأول لسلسلة داخل سلسلة اخرى فمثلا : InStr(1;[Names];"-") تحدد موضع (-) من السلسلة الموجودة داخل الحقل Names والرقم 1 يعني الموضع الاول للعلامة وهو اختياري وفي مثالنا اعلاه يمكن حذفه والاستغناء عنه وحينئذ ستقوم الدالة بارجاع الموضع الاول على اعتبار ان السلسلة تحتوي على اكثر من (-) واحدة ولكننا لو اردنا موضع العلامة الثانية فاننا يلزمنا ان نضع في البداية رقم 2 ونعني بالموضع هنا هو رقم العلامة او الحرف من السلسلة وفي الكودين اعلاه وضعنا في بداية الاول left ليبدأ العد من اليسار وفي الثاني Right ليبدأ العد من اليمين اما الدالة split فيمكننا من خلالها تقسيم او فصل السلسلة بناء على حرف او علامة داخلها مثال : Split(text1, " ")(1) في هذا المثال سيتم ارجاع القسم الاول الذي يسبق المسافة الخالية ولو وضعت الرقم 2 سيتم ارجاع القسم او الكلمة الثانية التي تأتي بعد المسافة الخالية اذا : الدالة الاولى لتحديد الموقع والثانية للتقسيم علما انه يوجد اكثر من دالة يمكن توظيفها في تقسيم السلسلة مثل Right Left Mid ولعل في هذا الاختصار غنية عن الاسهاب .. هذا ما اعلمه .. والله اعلم ،،،

تفضل تم تحويل كود أستاذنا أبو خليل الى وحدة نمطية (موديل) والتطبيق على المرفق الأخير QUS2.rar

Expr1: Left([Names];InStr(1;[Names];"-")-1) Expr2: Right(Trim([Names]);Len(Trim([Names]))-InStr(1;[Names];"-")) فصل نص عند حرف او علامة محددة.rar

الله الله عليك يا ابو العربى المصطبة فيها شغل جامد اهوه ربنا يجعلها مصطبة خير دايما

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

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

هذا رابط وجدته اثناء البحث وبه مشاركة http://arabteam2000-forum.com/index.php?/topic/182093-قاعدة-بيانات-تطلب-من-أخرى-الارتباط-بها/ مستخدما دوال ال api العجيب ان اسم صاحب المشاركة قريب من اسمي تنبيه فقط اذا كان لديك 64 بت غير مايلزم بالدالة باضافة ptrsafe كما انبه والله اعلم انه لابد من وجود صلاحية لمستخدمك الحالي وكذلك يمكن يتطلب اعادة تشغيل الكمبيوتر بالتوفيق

برنامج_مخازن_جديد.xlsm

كيف تستخدم دالة dcount لعمل الإحصائيات فى أكسيس؟السلام عليكميشرح هذا الفيديو دالة dcountو هى إحدى الدوال التجميعية فى أكسيستستخدم فى عد السجلات فى جدولعد كل سجلات جدولعد حقل معين بدون شرطعد حقل معين بشرط فى نفس الحقلعد حقل بشرط فى حقل آخرعد حقل بشرطين فى حقل أو حقلينالعد بشرط فى حقل نصى و الشرط الآخر فى حقل رقمىأرجو لكم الفائدةرابط الملف المستخدم فى الشرحhttps://drive.google.com/file/d/0Bw4...ew?usp=sharingجارى رفع الفيديو https://www.youtube.com/watch?v=_e10IKSpaAU&feature=youtu.be https://www.youtube.com/watch?v=_e10IKSpaAU&feature=youtu.be

مرفق شيت قوائم الفصول عملته لمدرستى بالاستعانة باكواد اخذتها من موقعكم واخذنا الكثير وحان الوقت ان نعطى ما تعلمناه من موقعكم العظيم الشيت بسيط جدا سهل الاستعمال يعطى القوائم ببساطة ويتم طبعها وعند نهاية العام الدراسى وبداية عام جديد يتم اخذ نسخة من الشيت السابق ويتم حذف صفوف اخر سنة موجودة وعندى هنا الثانوية العامة ويتم الترحيل 1ولى ابتدائى (1) تصبح ثانية ب (2) وهكذا و KG2 ورقم 14 تصبح 1(اولى ب) و KG1 تصبح 14 ( KG2) يتبقى لك KG1 يتم ادخال الاسماء والبيانات فقط وباقى الصفوف يتم اضافة او حذف كما تريد ولو اردت تحويل طالب مثلا فى اولى اعدادى من فصل 4 الى 2 اذهب الى طلبة الصف 7 وغير الفصل يتم تغيره فورا فى القوائم ولكن اضغط على ذر النقل اولا قبل الطباعة عموما انا مستعد لاى سؤال وتحياتى الى الاخ ياسر ومنتظر ردودكم ولو هناك اقتراحات تعديل للاحسن يبقى خير وبركه وان هنا اكثر عدد فصول فى اى فرقة 6 ولو كان عندك اكثر ممكن يتم التعديل قوائم 2016-2017.rar

ابنى الغالى ياسر شرف لى معرفتك وعلمك فى الاكسيل كبير واى مكان يتمناك

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

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

جزاك الله خيرا النهل من علمكم خير بكثير من الجوجل - على الأقل لن يقول لى جوجل أحسن الله اليك

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

عذرا استاذ محمد لم انتبه لمرفقاتك تفضل تم التعديل عليها QUS2.rar

السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا أستاذنا أبو خليل - اسمحلى باستفسار مناسب للموضوع ان سمح لنا صاحب الموضوع أيضا جزاه الله خيرا - فلطالما وددت معرفة وظيفة كل من ( Split - InStr) والفارق بينهما أحسن الله اليكم جميعا وجزاكم عنا خيرا

نعم نتيجة مرضية إن شاء الله تم عمل عمود للملاحظات لاحظ المرفق اصناف3.rar

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

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

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

السلام عليكم و رحمة الله جرب المرفق بيان بحركة السائقين1.rar

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

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

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

اخى ياسر السلام عليكم زدنا اخى ياسر جزاك الله خيرا

For i = 1 To Me.InsideHeight Me.InsideHeight = Me.InsideHeight - 40 Me.InsideWidth = Me.InsideWidth - 90 Next If Me.InsideHeight <= 0 Then DoCmd.Close End If السلام عليكم جرب هذا الكود

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

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

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

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

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

وعليكم السلام مين إنت ؟! حد يعرف الشخص الحلو ده؟!! الشخص دا لابس طاقية الإخفا .. بيكون مختفي طول الوقت (حدش يقدر يقلعه الطاقية اللي لابسها دي عشان نقدر نشوفه) عوداً حميداً أخي وحبيبي الغالي ومعلمي الكبير أحمد يعقوب .. ويا ريت تشيل الطاقية

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

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

الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير .. تقبل تحياتي

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

شكرا على الرد واى استفسار انا موجود

وعليكم السلام أخي صالح أهلاً بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية بالنسبة لطلبك ضع المعادلة التالية في الخلية D2 =IF($B2-$C2>=1000,1000,$B2-$C2) ثم ضع المعادلة التالية في الخلية E2 =IF($D2>=1000,($B2-$D2)/4,"") قم بسحب المعادلة الأخيرة التي في الخلية E2 إلى الخلية H2 الآن قم بتحديد النطاق D2:H2 ثم قم بسحب المعادلات إلى آخر الجدول ** إذا صادفتك مشكلة قم بتحويل الفاصلة العادية لفاصلة منقوطة تقبل تحياتي

تم الاستعانة بالخليتين B6 B7 في العمود المخفي قي ورقة التصفية جحم الملف قل كثيرا تفضل بيان بحركة السائقين3.rar

اثراء للموضوع هذا الكود Sub InsertSheet() Dim arr() arr = Array("كانون الثّاني", "شباط", "آذار", "نيسان", "أيّـار", "حزيران", "تـمّوز", "آب", "أيلول", "تشرين الأوّل", "تشرين الثّاني", "كانون الأوّل") For i = 0 To UBound(arr) On Error Resume Next If Len(Sheets(arr(i)).Name) = 0 Then Sheets.Add.Name = arr(i) End If Next End Sub

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

تفضل اخى الملف يشتغل على 2003 وانا مستعد للرد على اى استفسار بشأن، الملف فهو مع حجم مدرستى الكبير سهل لى الامور قوائم 2003.rar

السلام عليكم اخي مصطفى علوش انا في المنتدى ولكن قد انشغلت قليلا يمكنك التواصل معي على الواتس اب على الرقم 00905456969400 او على الفيسبوك على صفحتي الشخصية رابط الصفحة