بن علية حاجي

السلام عليكم يجب حذف العلامة ' من الأمر ChDir ThisWorkbook.Path' حتى يصبح من الشكل ChDir ThisWorkbook.Path أي القيام بـ إعادة تنشيط هذا الأمر داخل الكود... ويكون الكود كاملا بالشكل التالي: Sub Create_Links() Set MyFile = CreateObject("Scripting.FileSystemObject") ChDir ThisWorkbook.Path For Each cell In Range("A2:A" & Range("A60000").End(xlUp).Row) If MyFile.fileexists("الملفات\" & Cells(cell.Row, 1).Value) = False Then Cells(cell.Row, 2).Value = "لا يوجد مستمسك": GoTo 1 ActiveSheet.Hyperlinks.Add Anchor:=Cells(cell.Row, 2), Address:="الملفات\" & Cells(cell.Row, 1).Value, TextToDisplay:="الملفات\" & Cells(cell.Row, 1).Value 1 Next End Sub المصطلح "لا يوجد مستمسك" (الذي وضعته لأحد الإخوة في موضوع مشابه سابق منذ أيام) يمكن تغييره بالمصطلح "لا يوجد ملف بهذا الاسم في المجلد".... بن علية حاجي

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي hyperlink.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حبيب، معذرة على هذا الخلل فقد قمت بتبسيط معادلات خلايا تاريخ البداية وتاريخ النهاية دون التركيز في صحة النتيجة... في الملف المرفق تم إضافة معادلة لتحديد رقم صف (انطلاقا من الصف 5) لتحقق الشرطين (رقم العامل بالخلية K4 وكود البرنامج بالخلية H19) مع التعديل على معادلات خلايا تاريخي البداية والنهاية باستبدال الدالة VLOOKUP بالدالة INDEX... أرجو أن تفي هذه التعديلات الغرض المطلوب... بن علية حاجي البرامج التدريبية للعاملين بحقول طارق 2018-2019.rar

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

جرب المرفق... منتدي اوفسينا.xlsx

السلام عليكم ورحمة الله ماذا تعني بـ "تبع TextBox10" و "تبع TextBox11"؟ هي الأكواد نفسها حرف بحرف... ثم إن الإضافة التي تريدها تكون في كود الفورم ذاته... يرجى إرفاق الملف المعني وليس صورة للأكواد أو الفورم... بن علية حاجي

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

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

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

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

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

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

السلام عليكم تم التعديل على المعادلات في العمودين E و F... جرب المرفق لعل فيه ما تريد... بن علية حاجي توزيع نقود كما بالبنوك (1).rar

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

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق باختيار اسم المعلم من الكومبوبوكس فقط (بالنسبة للفترة من تاريخ إلى تاريخ فهي تلقائية أي أن الكود يعطي تلقائيا أول تاريخ للاحتياط في TextBox2 وآخر تاريخ للاحتياط TextBox3 للمعلم المختار)... أرجو أن يفي الغرض المطلوب... بن علية حاجي حصص الاحتياط1.xlsm

السلام عليكم ورحمة الله جرب المرفق لعل فيه ما تريد... (تم عمل المطلوب باعتبار أنه لا توجد أوراق من فئة 1 أو 0.50 أو 0.25).. بن علية حاجي توزيع نقود كما بالبنوك.xlsx

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

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

السلام عليكم ورحمة الله جرب الفكرة التي وضعتها في الملف... تم إضافة شيت جديد نضع فيه الأسماء في العمود A وصورة كل اسم في العمود B (صورة بحجم الخلية تقريبا 2.3 سم × 3.3 سم) وباستعمال المعادلات والتسميات تم عمل المطلوب... بن علية حاجي جلب الصورة على اساس الأسم.xlsx

السلام عليكم جرب المرفق... بن علية حاجي حصص الاحتياط.xlsm

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

السلام عليكم لست أدري إن كنت قد فهمت المطلوب جيدا... محاولة في الملف المرفق... بن علية حاجي الاحد.xlsm

السلام عليكم ورحمة الله تم عمل المطلوب بالمعادلات (معادلات بسيطة ومعادلات صفيف)... بن علية حاجي ترحيل الحراس.xlsm

وعليكم السلام ورحمة الله جرب المرفق... بن علية حاجي معادلة.xlsx

السلام عليكم في هذا المطلوب يكفي نقل صيغة المعادلة التي اقترحها أخي الكريم "عبد السلام ابو العوافي" إلى معادلة "الاجمالي" (الاجمالي المتبقي)... تم عمل ذلك في المرفق... بن علية حاجي 2.xlsx