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

بمناسبة كلامك اخوي خالد ، بوضع اكثر من مشاركة في الموضوع ، كنت افكر اعمل موضوع ، ونطلب من كل عضو يحل الموضوع بطريقة تختلف 🙂 فأنا اعتبر البرمجة مثل الطبخ (مع اني ما اعرف اطبخ 🙂 ) ، ممكن تعمله بعدة طرق 🙂 ايش رأيك ؟ شوف لنا موضوع ، والميدان يا حميدان 🙂 وللعلم ، اذكر في احد المنتديات الاجنبية لما كنت اشارك فيها ، صاحب السؤال شرح طلبه بعدة اسطر ، وواحدة من الاعضاء المحترفات ردت على سؤاله بسطر واحد ، وانا من باب المزاح ، قمت بحل المسألة بعدة خطوات ، وقلت لها حرام عليك ، صاحب السؤال حط سؤاله بعدة اسطر ، بينما جوابك سطر واحد !! واذا بصاحب السؤال ينقر على مشاركتي كأفضل جواب !! قلت له يا رجال انا جوابي كان مزاح ، والجواب الافضل هو للعضوه ، فرد عليّ: انا احصل اجرتي بعدد الاسطر اللي ابرمجها ، فكلما زادت الاسطر ، زاد اجري لهذا السبب دائما اقول : رمضان كريم علينا جميعا ان شاء الله ، ولا تنسونا في دعائكم في هذه الليالي المباركة 🙂 جعفر

وعليكم السلام 🙂 اخذت لك هذا الكود من مساعد الاكسس ، ممكن تفيدك في امور اخرى : How to: Calculate and Display Specific Date Values Because a Date value is stored as a double-precision number, you may receive incorrect formatting results when you try to manipulate Date values in an expression. This topic illustrates how to create expressions and custom functions for displaying specific dates and calculating time intervals. Displaying Specific Dates The current month: DateSerial(Year(Date()), Month(Date()), 1) The next month: DateSerial(Year(Date()), Month(Date()) + 1, 1) The last day of the current month: DateSerial(Year(Date()), Month(Date()) + 1, 0) The last day of the next month: DateSerial(Year(Date()), Month(Date()) + 2, 0) The first day of the previous month: DateSerial(Year(Date()), Month(Date())-1,1) The last day of the previous month: DateSerial(Year(Date()), Month(Date()),0) The first day of the current quarter: DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1) The last day of the current quarter: DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0) The first day of the current week (assuming Sunday = day 1): Date() - WeekDay(Date()) + 1 The last day of the current week: Date() - WeekDay(Date()) + 7 جعفر

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

بالعكس اخي خالد .... بارك الله فيك رمضان كريم أستاذ @jjafferr و أستاذ @kha9009lid

هل تقصد انك تريد حساب عدد الايام من بداية العام حتى تاريخ اليوم اذا كان فهمي صحيح جرب التالي =Date()-DateSerial(Year(Date());1;1) اعتذر اساتذتي @kanory و @jjafferr لم اشاهد ردودكم كنت اكتب اوف لاين 🌹

جرب كده ربما هو المطلوب = DateSerial(Year(Date), 1, 1)

حياك الله اخي جرب المرفق Subjects_UPDATED.accdb

تفضل. لك ماطلبت تصدير كل ورقة الى ملف pdf . حسبب محتوى الخلية b3 SALIM بالاحرف الكبيرة هو محتوى الخلية B3. . و الرقم الموجود في تسمية الملف هو رقم الورقة. االنتيجة أامامك في الصوررة 17.xlsm

اتفق مع اخي احمد انظر الصورة

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

تفضل هنا الحل : جعفر

هلا اخي هل هذا ماتريدSubjects.accdb

هل تريد توزيع 10 درجات على مقررات الرسوب لكل طالب بحبث : 1 - لا يتم التوزيع اذا كانت المواد أكثر من ثلاثة ؟ أم ماذا تقصد ؟ 2 - وما معنى : يتم التوزيع اذا كان الطالب ناجحا ؟ فاذا كان ناجحا لماذا توزع عليه درجات للنجاح ؟

بعد اذن الاخ علي هذا الملف Indx_match.xlsx

ممتاز اخي الرائد حتى ولو كان عندي ملاحظة بسيطة من شأنها التسريع (للبيانات الكثيرة) 1 - الدالّة IFERROR في المعادلات الأفضل عدم استعمالها الا للضروروة لأنها تلزم الاكسل على حساب المعادلة واذا وجد خطأ يدرج فراغاً (مما يضيع الوقت سدى / جزء من الف من الثانية بالنسبة للحاسوب شيء كبير جداً / ) هذا بالإضافة الى ارهاق البرنامج بأشياء لا لزوم لها 2- الأفضل استعمال CountA لانه عندما رقم الصف يتجاوز الرقم المطلوب من خلال CountA يقوم اكسل بإدراج الفراغ ولا يفكر حتى بحساب نتيجة المعادلة 3- المعادلة المفترحة من عندي =IF(ROWS(B$4:B4)>COUNTA(A$4:A$1000),"",INDEX(A$4:A$1000,SMALL(IF(A$4:A$1000<>"",ROW(A$4:A$1000)-ROW(A$4)+1),ROWS(B$4:B4))))

الى اخي العزيز ابو تراب المحترم الى من بذل جهده ونذر نفسه ليكون شمعه تُنير دروب الحائرين . لا املك الا الدعاء لك ولوالديك ولمن تحب بان يحفظكم ربي . وجزاكم الله خير

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

علينا وعليك اخي الحبيب وكل عام وانتم بخير تقبل الله منا ومنكم صالح الاعمال

ملاحطة ممتازة جرب المرفق و خبرنا Subjects_UPDATE2.accdb

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

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

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

هذا الكود Dim iStart As Integer, iEnd As Integer, I As Integer iStart = Sheet1.Range("B1").Value iEnd = Sheet1.Range("C1").Value For I = iStart To iEnd step 2 Sheet1.Range("D12").Value = I Sheets(1).PrintPreview Next I

جرب هذا الملف Joulous.xlsm

الكود يعمل اوتوماتيكيا حسب عدد الاوراق احذف الاوراق التي لا تحتاجها . و الكود سيظل يعمل بشكل عادي تعديل على التسمية . حسب اسم ورقة العمل. الملف المرفق 17.xlsm

تفضل هذا بحث اخر بالإسم ولا يمكن ان يكون هناك اكثر من بند للبحث فى وقت واحد Search by Name.xlsx

بعد اذن استاذ سليم -تفضل تم عمل قائمة منسدلة لعمود ID حتى لا يكون هناك امكانية للخطأ عند كتابة الرقم وبالتالى يتم جلب البيانات بصورة صحيحة , ويمكنك استخدام هذه المعادلة =IFERROR(VLOOKUP($A5,Sheet1!$A$2:$K$1700,MATCH(B$4,Sheet1!$A$1:$K$1,0),0),"") Vlookup.xlsx

أفضل برنامج لتحويل المستندات إلى PDF ( محول الوثيقة العالمي)

تفضل تواتي7.xlsm

تفضل أخي رمضان كريم (C1)اخي الكريم فقط اضف القائمة المنسدلة في الخلية من شيت قائمة الزبائن أو انسخ والصق اسم الزبون الارشيف.xls

السلام عليكم اخى @f16 مشاركه مع اخى واستاذى محمد @أبو عبدالله الحلوانى جزاه الله خيرا ارفق حل بدون اللجوء الى استعلام التحديد والتجميع وهو بداله Dsum فى استعلام التحديث DSum("num";"request";"item_id=" & [item_id]) اضف سجل جديد بالجدول request لاى رقم من الموجودين بالجدول مثال 101 او 102 ثم استخدم استعلام التحديث يمكن عمل استعلام الحاقى بعد ذلك لاضافه السجلات الجديده بالجدول request للجدول story مع عدم تكرار السجلات المدخله من قبل تقبلوا تحياتى وارجو لكم وللجميع التوفيق والنجاح مثال_اوفيسنا_استعلام_تحديث_من_استعلام_تجميع(1).accdb

اخى @ازهر عبد العزيز وارفق لك حل بطريقتين ان شاء الله تستفاد منهم اول واحد بطرح الحقلين بالنموذج الرئسيى مباشره بما انك قد اخدت جمعهم من الحقول بالنموذج الفرعى والثانى وضع حقل x بتذييل النموذج واخذ قيمته كالحقول السابقه بالتوفيق اخى ازهر XXX.accdb XXX(1).accdb

تم عمل المطلوب يبدو ان الأمر كان سهلاً (الكومبو بوكس لا يستقبل الكتابة بواسطة الكيبورد تفادياً للخطأ) يمكن ادراج القيم فقط من حلال قائمته المنسدلة كذلك يمكنك التنقل داخل الشيت حتى ولو كان اليوزرفورم ظاهراً All_Saerch_In With_User.xlsm

ابو عبد الرحمن العراقي أين الضغط على الإعجاب لهذه الإجابة ؟!!!💙

هلا اخي جرب المرفق لا اعتقدALSSAFE.accdb

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

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

بسم الله الرحمن الرحيم نتابع من حيث توقفنا بأداة قوية و رائعة مجانية وغير محدودة بفترة معينة وكمان الSource Code متاح يعنى مفتوحة المصدر الأداة اسمها v-tools نشوف صورة الأداة بعد فك الضغط وتثبيتها ستظهر فى Add-ins أو الاضافات 1-الاعدادات مثل اللغة ومعلومات عن الاداة الخ... 2-معلومات فنية عن قاعدة البيانات مثلا تاريخ الانشاء واخر تعديل وهكذا 3-من المعروف ان الاكسس به الكثير من الصور والايقونات هذا الاختيار يمكنك من تطبيق هذه الصور على عناصر التحكم تابعوا الصورة 4- فى هذا الاختيار قوالب جاهزة لخصائص النماذج مثلا انا بعمل كل النماذج فى قاعدة معينة ممنوع الاضافات والحذف والتعديل سكرول بار عمودى وافقى مثلا وهكذا بهذا الاختيار ممكن تحفظ هذه الاعدادات فى قالب من تسميتك وتستدعيه لتطبيقه على اى نموذج جديد بدون الحاجة الى عمل الاعدادات مجددا كل مرة عند تصميم نماذج جديدة تابعو الصورة 5- ولا اعرف ده بتاع ايه ولا فاهم منه حاجة 6- من اقوى خصائص هذه الاداة هى مكتبة الكائنات مثلا انا فى كل قاعدة بيانات بصممها بحتاج اطبق عليها نظام صلاحيات المستخدمين اللى بيتكون من عدد من النماذج و الاستعلامات والوحدات النمطية الى اخره بدلا من استيرادها من قاعدة اخرى بعملية بسيطة جدا ممكن تحفظ الكائنات المفضلة فى مكتبتك الخاصة وتعملها ادراج فى اى قاعدة بيانات جديدة بدون الحاجة الى استيرادها او كتابة اكوادها مرة أخرى وفيها ايضا خاصية حفظ الاكواد تدرج كود مفضل وتستدعيه فى اى قاعدة جديدة تابع الصورة 7-خاصية البحث العميق فى النماذج والاستعلامات وهكذا ولكنها ليست بقوة الاداة الاولى فى الموضوع Find And Replace 8-بعد تصميمك لنموذج معين بألوان محددة يمكن ان تتغير الالوان بتغيير بعض اعدادات الثيمات فى هذا الخيار يثبت الالوان والتصميم ليظل ثابتا حتى لو تم تغيير الثيمات والألوان 9-من اقوى خصائص الاداة وهذه الخاصية العمل على SQL فى الخاصية دى بتتعامل مع جمل SQL فى الاستعلامات من حيث البحث والاستبدال وتغيير جملة معينة وتطبيقها على كافة الاستعلامات مرة واحدة بدون الحاجة الى فتح كل استعلام على حدى وايضا خاصية البحث داخل جمل الاستعلامات وعرض عدد النتائج الموجودة فى القاعدة والتعامل معها ايضا دفعة واحدة تابع الصورة و بكده نكون خلصنا شرح سريع للاداة باقى فقط تجربتها وممكن بعض الخبراء عندنا يعدلوا على الاداة لانها كما ذكرنا اداة مفتوحة المصدر واعتذر عن اى خطأ فى الشرح لاحظوا انى مجرد هاوى بالنسبة للأداة تعمل على كافة الاصدارات وده الرابط الرسمى للاداة و اصداراتها المختلفة ttp://www.skrol29.com/us/vtools.php دمتم فى أمان الله