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

اتفضل ابو حنين الملف لعله يقى بالغرض بحث بشرطين.xlsx

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

جرب هذا الملف الكود Option Explicit Private Sub ComboBox1_Change() fill_val_list End Sub '=============================================== Sub fill_val_list() Dim my_rg As Range Dim i% Dim st$: st = Sheets("Drop List").[b8] Dim arr Sheets("Drop List").Range("b10").Validation.Delete On Error GoTo No_Items Set my_rg = ActiveWorkbook.Names(st).RefersToRange ReDim arr(1 To my_rg.Cells.Count) With Sheets("Drop List").Range("b10").Validation For i = 1 To my_rg.Cells.Count arr(i) = my_rg.Cells(i) Next .Add 3, , , Join(arr, ",") End With Exit Sub No_Items: MsgBox "Wrong range", 64 End Sub '========== ComboBox With Drop List.xlsm

السلام عليكم تفضل الحل في الملف المرفق بمعادلة مختلفة تماما عن السابقة... بن علية حاجي DAYS_CALCULATION_3.xlsx

السلام عليكم وصلتنا أكثر من شكوي بشأن عدم تفعيل الترقيات الالية تمت مراجعة الأمر و حاليا سيتم التفعيل باذن الله مع أول دخول أو مع اضافة أول مشاركة الترقيات الالية الحالية كالتالي: عند التسجيل: عضو جديد عند بلوغ 50 مشاركة : عضو عند بلوغ 100مشاركة : عضو مميز عند بلوغ 500 مشاركة : عضو فضي عند بلوغ 1000 مشاركة : عضو ذهبي عند بلوغ 2000 مشاركة: عضو ماسي و يستثني من الترقيات الالية مجموعات الخبراء و فريق الموقع الحالي و السابق و العضوية الشرفية

السلام عليكم تفضل هذا الكود يقوم بإنشاء المجلد إن لم يجده Dim curPath As String curPath = CurrentProject.Path & "\نتيجة البحث" If Len(Dir(curPath, vbDirectory)) = 0 Then MkDir (curPath) ' إنشاء مجلد بالمسار المحدد End If

دائمًا مبدع أستاذنا الفاضل / سليم ونحن نتعلم منك الكثير بارك الله فيك ولي سؤال ماذا لو تم تعديل الكود بإضافة Range("b10") = "" في بداية الكود ليتم مسح الخلية b10 قبل البدء بالعمل فيكون الكود Option Explicit Private Sub ComboBox1_Change() fill_val_list End Sub '=============================================== Sub fill_val_list() Range("b10") = "" Dim my_rg As Range Dim i% Dim st$: st = Sheets("Drop List").[b8] Dim arr Sheets("Drop List").Range("b10").Validation.Delete On Error GoTo No_Items Set my_rg = ActiveWorkbook.Names(st).RefersToRange ReDim arr(1 To my_rg.Cells.Count) With Sheets("Drop List").Range("b10").Validation For i = 1 To my_rg.Cells.Count arr(i) = my_rg.Cells(i) Next .Add 3, , , Join(arr, ",") End With Exit Sub No_Items: ' MsgBox "Wrong range", 64 End Sub '======================================

ممكن يكون الرابط يفيدك

السلام عليكم اود مشاركة ملف اكسل بعد اجهزة عبر شبكة لاسلكية شكراااا

تشغيل الصوت بزر.rarتشغيل الصوت بدون اظهار رسالة.rarتشغيل الصوت بزر.rar هذه احدى المشاركات السابقة

السلام عليكم ورحمة الله أخي الحبيب، بارك الله فيك وفي أهلك للسؤال على أحوالنا نشكر الله على ستره وعافيته.... تفضل ما طلبته في الملف المرفق مع تعديلات على بعض المعادلات (للتبسيط فقط)... بن علية حاجي البرامج التدريبية للعاملين بحقول طارق 2018-2019.rar

اتفضل الملف لعله يفى بالغرض نسخة من saad.xlsx

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

بعد اذن استاذنا الكبير الاستاذ سليم واثراء للموضوع اتفضل الملف لعله يفى بالغرض نسخة من z1.xlsx

لما بعملها اقل من 91 كله بيعمل لون اصفر تقريبا حضرتك عاملها يدوي اقل من 90 انا رافع ملف كمثال عشان اطبقها على كذا ملف

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

حياك الله استاذ @صالح حمادي وشكرا على اثرائك للموضوع. للمزيد حول دالة sndPlaySoundA اضغط على اسم الدالة.

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

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

وعليكم السلام بارك الله فيكم جميعا

السلام عليكم أو ربما كان هذا المطلوب لكن باستعمال أعمدة مساعدة (فصل أوقات البصمات في خلايا منفصلة)... بن علية حاجي المثال.xls

بارك الله فيك استاذى بن علية

السلام عليكم معادلة أخي الكريم سليم مختصرة في الملف المرفق... يمكن استعمال الدالة SUMPRODUCT بدلا من الدالة SUM (وفي هذه الحالة غير ضروري تأكيدها كمعادلة صفيف)... بن علية حاجي DAYS_CALCULATION_2.xlsx

السلام عليكم ورحمة الله ما عليك إلا تعديل "التحقق من الصحة" حسب ما تريد وسيعمل الكود بإذن الله... بن علية حاجي

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

جرب هذا الملف DAYS_CALCULATION.xlsx

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

أستاذ / ابا جودى بارك الله فيك وزادك علما..وقد تعلمت منك الكثير. أستاذ / محمد ابوعبد الله الله يبارك فيك ويحفظك أستاذ / SEMO.Pa3x بارك الله فيك أخى الكريم أستاذ / محمد طاهر بارك الله فيك ويسر لك كل الصعاب .. والله أنا حاسس إنى داخل إمتحان والمادة مذاكرها ومش فاكر فيها أى حاجه. يعيننى ربى أن أكون عند حسن الظن. أستاذ / ابوخليل بارك الله فيك .. وكم إستقيت العلم والمعرفة من منتدانا الكبير وأساتذته الأفاضل وكنت لا أعلم شيئا. أستاذ / omar19-3 بارك الله فيك أخى الكريم ويسر لك سبل النجاح. أستاذ / athal أعزك الله وزادك علما.

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

أذن الأمر بسيط جدا 1- إذهب إل الكمبيوتر الذي يحتوي علي الملف المراد نقلة أو المكان الموضوع به وليكن بارتشن ال ( d) مثلا ثم كليك يمين علي البارتشن ستظهر قائمة ستجدبها ( shiring and secuirty) أضغط عليها ستجد زرار به ( shiring) ستجد أسفلة سكر مكتوب فيه (if you understand the risk) ألي أخر السطر إضغط علية ستظهر قائمة أخري بها عبارة ( network shiring and secuirty ) وبجوارها صورة لثلاث كمبيوترات مجتمعة أضغط علي (if you understand the risk) أيضا ستظهر قائمة أخري علم علي المربعان إذا أردت نقل الملف والسماح للأخرين من الأجهزة الأخري التعديل علية أو السماح بالنقل فقط دون التعديل علم علي المرع الأول فقط ثم ( ok) ستجد أن هناك يد أوجدت أسفل البارتشن وبذلك يكون الملف وأي شئ علي هذا البارتشن جاهز للنقل من أي جهازعلي الشبكة يأتي دور الأجهزة الأخري التي ستنقل الملف نذهب إلي ( control pannel) ثم ( network connection) ثم (local area conection) ثم ( setup ahome or small office) ثم next ثم next ستظهر قائمة بها 3 إختيارات أختار الأول بكدة تكون الشبكة جاهزة للعمل ونقل الملفات ولكن قبل مغادرة هذه الصفحة تأكد أن(change windows fire wall) علي ( off) وليس علي ( on ) حتي لايمنع الملفات من التنقل كنوع من الحماية للجهاز