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

اخواني الكرام: عندما قمت بالاعداد لشرح موضوع Select Case توصلت الى عمل دالة جديدة تقوم باستخراج اسم المحافظة وتاريخ الميلاد والنوع من الرقم القومي المصري قد لا تكون هذه الدالة جديدة عليكم فقد قام عدد من الاساتذة واذكر منهم الاستاذ خبور بعمل دوال احترافية بهذا الخصوص ولكني احببت ان اضعها هنا للاستفادة منها الدالة تحوي على بارو مترين هما 1. A_Rng ويمثل خلية الرقم القومي 2. T ويمثل الخيار الخاص بالعنصر المراد استخراجه =============================== وهنا المتغير T ينقسم الى التالي اي عندما T = 1 يتم استخراج اسم المحافظة T = 2 يتم استخراج تاريخ الميلاد T = 3 يتم استخراج النوع سوء ذكر او انثى ==== ويصبح الشكل النهائي للدالة =A_ID(A_Rng;T) ارجو منكم التجربة وابداء الراي اليكم المرفق 2003 دالة معرفة.rar

إخوتى فى الله السلام عليكم ورحمه الله وبركاته هذا الكود لعمل التفاف للنص بناء على طلب احد الاخوة بالمنتدى أحببت ان اضعه بين أيديكم لتعم الفائده يوضع بموديول ومن ثم يتم ربطه بزر يجب عليك تحديد المدى او الخليه المطلوبه ومن ثم تقوم بالضغط على الزر ويوجد بالمرفقات مثال على ذلك وتقبلوا منى وافر الاحترام والتقدير Sub M_elshrief_FormatCell() Selection.ColumnWidth = 8 With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlCenter .wrAPText = True '!!!!!!!!!!!!!!!!!!!!! .Orientation = 0 End With End Sub التفاف النص.rar

السلام عليكم أخي الكريم هذا هو الحل ان شاء الله حل موضوع توزيع الخلايا.zip

السلام عليكم ورحمة الله وبركاته اقدم لكم برنامج مرتبات شئون العاملين الخاص بالتربية والتعليم 2014 /2015 يصلح لديوان الادارة او المدارس يحتوى البرامج على الاتى 1 - صحيفة احوال 2- بيان ملخص حالة 3- شهادة خبرة 4- صحبفة بيانات 5- استعلام جهة العمل 6- استعلام كادر المعلمين 7- استعلام عن المجموعة النوعية 8-استعلام مسمى وظيفى 9-استعلام موقف العمل @@@@@@ الرابط اسفل

السلام عليكم و رحمة الله و بركاته /اخواني في المنتدى معكم لائحة منسدلة لا تتعرف على الفراغات في الجدول و تستطيع ان تضيف لى الجدول ما تشاء من بيانات هذا بالاضافة الى انك تستطيع ان تعرف ما اخترتة بالترتيب مع امكانية التكرار او عدمه (حسب الاختيار) custum datval.rar

السلام عليكم ورحمة الله وبركاته شاهدت البارحة موضوع جميل جدا لأحد الأساتذة العباقرة هنا وكان عن فك حماية لورقة عمل اكسل وعمل رائع ومبدع صراحة ولكن الموضوع أعجبني فأردت أن أقوم بعمل مشابه فقمت بعمل كود يقوم بفك حماية الورقة ولكن إذا كانت كلمة السر أرقام فقط ولا يقوم بفكها إذا كانت أحرف أو مختلطة بين أحرف و أرقام كما أنه يعطيك كلمة السر التي كانت مستخدمة ..... نصيحة لا تضع كلمة السر أرقام فقط لاني سوف أفتحها لاحقا ..... ملاحظات : 1 - إن البحث يتم بسرعة اختبار 100 رقم خلال 15 ثانية أي كلما زادت قيمة الرقم زاد الوقت المتطلب للوصول الى فتح الورقة وإذا كانت ورقة العمل تستحق لا بأس في انتظارها 2 - عند تجريبك للكود قم بوضع رقم من منزلتين او ثلاثة لكي تجرب العملية واترك موضوع الأرقام الطويلة عند محاولتك لفتح ملف كنت قد نسيت كلمة المرور الخاصة به 3- ارجو عدم استخدامه مع الملفات التي يقوم أصحابها بقفلها لخصوصيتهم فيها أخيرا أرجو أن ينال الموضوع إعجابكم .. وسوف أسعى لتطوير نفسي لأتمكن من معالجة موضوع الحروف والأرقام والرموز لاحقا أخوكم في الله محمد بشار نصري فك حماية ورقة العمل اذا كانت عبارة عن رقم.zip

السلام عليكم ورحمة الله أخي الكريم جرب المرفق التالي لعل فيه الحل... أخوك بن علية المرفق : Test.rar

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل الاستاذ حمدي جرب المرفق التالي شئون طلاب الصف الاول الاعدادى - Copy.rar

السلام عليكم ورحمة الله وبركاته ملف تجريبي ينتهى عند تاريخ معين مع طلب ترخيص كود التفعيل عبارة عن رقم المسلسل مضروب فى 3 يطرح منة 6789 ويمكن تغيير المعادلة من Sheet1 خلية B2 باسورد قاعد البيانات 12345 reg.rar

تفضلوا تطبيق مبدئي للفكرة hajz.rar

المرفق التالي قد تم رفعة من قبل فيه المطلوب غياب الطلاب.rar

استاذ المصري تفضل هذا الملف ربما كان المطلوب محمد حسن المصري.rar

بعد إذن أخوتى الأعزاء وهذه الحلول الجميلة أعتقد هذا الحل سيفى بالغرض ويفيض لأن طول النص به غير محدود ولايعتمد على كلمة معينة تقبلوا تحياتى =IFERROR(TRIM(RIGHT(SUBSTITUTE(TRIM(A1);" ";REPT(" ";99));8*99))&" "&"فى الفرع 1";"")

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

بعد اذن الاستاذ علي استبدل الكود الموجود في حقل date2 بهذا : date2: (SELECT MAX(A2.S_date) FROM Absent As A2 WHERE A2.S_date < A1.S_date and A2.[emp no]=A1.[emp no] )

جرب المرفق التالي ووافني بالنتيجة FSaturday.rar

السلام عليكم ورحمة الله اليك هذا الملف ربما يكون المطلوب time.rar

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

غير في هذا السطر العمود الذي تريد If WorksheetFunction.CountIf(.Range("C2:C" & Last), CStr(.Cells(R, "c"))) > 1 Then .Cells(R, "A").Resize(1, 7) من العمود a الى g سبعة اعمدة غير العدد سبعة الى اي عدد تريد اذا غيرت الى 20 سيكون من العمود a الى t تحياتي

تعديل الملف لإزالة الإيام الزائدة عن الشهر رصد غياب الشهر للطلاب.rar

السلام عليكم اخي باسم شكراً على هذه الملاحظة لتعديل الدالة عدل هذا السطر A_ID = Format(DateSerial(Mid(A_Rng, 2, 2), Mid(A_Rng, 4, 2), Mid(A_Rng, 6, 2)), "yyyy/mm/dd") ليصبح A_ID = Format(DateSerial("19" & Mid(A_Rng, 2, 2), Mid(A_Rng, 4, 2), Mid(A_Rng, 6, 2)), "yyyy/mm/dd")