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

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

السلام عليكم ورحمة الله وبركاته يا من تعشقون سيرته، ويا من ترجون شفاعته، صلوا عليه وسلموا تسليما صلى الله عليك ياحبيبى يارسول الله كل عام وانتم بخير بمناسبة المولد النبوى الشريف ========================================================= اساتذتى فى هذا الصرح العظيم اوفيسنا اخواتى فى الله اقدم اليكم دالة HYPERLINK بدون استخدام اى دوال وسيطه مثل ال VLOOKUP اوINDIRECT او اى داله من دوال البحث الاخرى ====================================================== تقبلوا منى خالص تحياتى تعلم دالة hyperlink.rar

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

السلام عليكم ورحمة الله ملف يغلق نفسة بعد فتحه عدد من المرات ولا يفتح بعد ذلك إلاً برم سري كلمة المرور KHMB12345 حسب طلب احد الاخوان ثم نقلته إلي هنا لسهولة البحث لاغير ضمن المراجع اغلاق ملف بعد فتحه عدد من مرات حسب رغبتك وفتحه بعد ذلك برقم سري.rar

وجزاكم الله خيراً أخي ناصر .. وفي انتظار مزيد من مشاركاتك (أقولك حاجة بس خليها في سرك .. لو عايز تتعلم بجد يبقا لازم تشارك بمواضيع إنت هتتعلم قبل ما تعلم .. خليك جوا الملعب مش مجرد متفرج ... متنساش الكلام دا بيني وبينك يعني سر .. هحاول أكتب الكلام بالحبر السري عشان محدش يشوفه) الأخ العزيز ياسر حبيت ابعث لك بباقة ورد ومحبة ، واشكرك علي مجهوداتك الجميلة ولو سمحت ممكن تعيد السر عشان انا مسمعتش كويس؟؟!!!!!

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

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

السلام عليكم ورحمة الله هذا كود يحذف الملف تلقائيا بعد 3 مرات إستخدام وإمكانية تغيير عدد مرات الاستخدام وكذلك يشعر المستخدم برسالة في آخر مرة You have exceeded the maximum of uses of this file لقد تجاوزت الحد الأقصى لعدد استخدام هذا الملف The file has been permanently deleted from your drive تم حذغ الملف نهائيا من محرك الاقراص الملف يحذف نفسه تلقائيا بعد 3 استعمالات و يشعر المستخدم بعد الحذف.rar

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

اخى الفاضل تفضل الملف بعد التعديل ... لعله المطلوب تحياتي pass.rar

ضع هذا الكود في حدث بعد التحديث لحقل id في النموذج if DCount("*","tbl1","id=" & me.id)>0 then msgbox"الرقم موجود" undo exit sub end if باعتبار id هو حقل الرقم في الجدول و tbl1 هو الجدول

التغيير تم في الجزء تم التخلي على الترتيب التلقائي المدخل في الكود حيث انا الكود يعمل بآلية اول خلية فارغة بعد الترتيب التلقائي يدخل رقم واحد ثم يقوم بالترتيب تلقائيا .kh_SetAddrss "rayan", "A3:D3" حيث تم التخلي على الخلية التي تدخل اول رقم في السجلات

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

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

تفضل الحل اخي الفاضل ( وانشاء الله) يكون هو المطلوب ملحوظه : من الافضل كتابة الاسماء في الجداول باللغة الانجليزية لتجنب الاخطاء البرمجية mm.rar

جزاك الله خيرا يا أ/ ياسر أكواد جميلة جدا

المرفق invigilations.rar

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

تقصد طريقة عمل الملف الذي ادرجته هذه طريقته مشروحة بالفيديو + المرفق الفكرة تعنمد على تحديد المطلوب ثم جعل الخلية الاولى في عمود البحث نشطة http://www.gulfup.com/?jc2GSY

أستاذى ياسر أنا متوصى بيك النهردة أهــــه كود بحث عن طالب باستخدام رقمه السرى ( يوضع فى حدث الـــورقة ) Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False ' هنا نحدد رقم الصف الرقم السرى If Target.Column <> 6 Then Exit Sub ' هنا نحدد عنوان الخلية التى سنضع بها الرقم السرى للطالب الذى سنبحث عنه If Not Range("f6") = "" Then Range("f6").Select Range(Selection, Selection.End(xlDown)).Select ' عند الكتابة فى الخلية تحدث عملية فلترة وظهور الاسم الذى تبحث عنه فقط فى شيتك Selection.AutoFilter Field:=1, Criteria1:=[f6], Operator:=xlOr Application.ScreenUpdating = True ' رسالة حمد بعد ظهور الاسم MsgBox "بحمد الله تعالى تم اظهار الاسم ", vbInformation + vbMsgBoxLEFT, " مع تحيات / مختار حسين محمود " End If Application.ScreenUpdating = True ' ملحوظه : لإعادة اظهار جميع الأسماء امسح الرقم السرى من الخلية عندها ستظهر كل الاسماء End Sub

كود انتهاء صلاحية ملف فى تاريخ محدد مع فتح الملف بكلمة سر الحمد لله ( يوضع فى حدث الـــ workbook ) Private Sub Workbook_Open() 'تحديد انتهاء صلاحية ملف اعتبارا من تاريخ محدد والفتح بكلمة الحمد لله If Date > DateValue("1/1/2015") Then If InputBox ("من فضلك أدخل كلمة السر ") <> "الحمد لله" Then ' رسالة لو كلمة المرور خاطئة MsgBox "كلمة مرور خاطئة " ' وغلق الملف لو كلمة المرور خاطئة ThisWorkbook.Close Else ' اذا كانت كلمة المرور صحيحة ترى الرسالة التالية MsgBox "تفضل بالدخول كلمة مرورك صحيحة " End If End If End Sub

لا تعطنى سمكه ولكن علمنى كيف اصطاد فعلا يأخى ( الصقر الجريح ) أما أرغب فى أن أكون صيادا - ,اريد أن أتعلم الترحيل فكيف أبداء

جزاك الله كل خير مجهود كبير وممتاز

السلام عليكم كود لتوليد كود عشوائي (سيريل نمبر عشوائي) Sub Code_Aléatoire() Randomize Dim sCarac As String: sCarac = "ABCDEFGKHLMNPQRSTWXYZ0123456789" Dim sLettre As String: sLettre = "" Dim bI As Byte, bNombre As Byte For bI = 1 To 20 bNombre = Int(Len(sCarac) * Rnd) + 1 sLettre = sLettre & Mid(sCarac, bNombre, 1) If bI Mod 5 = 0 Then sLettre = sLettre & "-" Next MsgBox Mid(sLettre, 1, 23) End Sub تحياتي

السلام عليكم دالة استخراج اخر يوم من الشهر Function NB_JOURS(date_test As Date) NB_JOURS = Day(DateSerial(Year(date_test), Month(date_test) + 1, 1) - 1) End Function ضع الكود في موديل ثم في ورقة العمل أدرج الدالة كاي دالة اخرى تجدها باسم NB_JOURS السيغة العامة لدالة تكون =NB_JOURS(A1) تحياتي

اخى الفاضل معادلتك التى استخدمتها والمعادلة التى استخدمتها انا نفس الشئ والاختلاف بسيط ... الدالة year تقوم باستخلاص السنة من التاريخ فتظهر لك 2015 او 2014 ونحن نريد رقمين فقط وليس اربعه فاستخدمت معها الدالة right لإيجاد اول رقمين فقط فكانت بهذا الشكل =RIGHT(YEAR(A1),2) وممكن استخدام الدالة Mid لعمل ذلك ايضا وتكون بهذا الشكل =MID(YEAR(A1),3,2) بهذا حصلنا على السنة 14 او 15 ... كرقمين وليس اربعه انت بمعادلتك ربطت السنة والشهر باستخدام & بينما انا استخدمت الدالة Concatenate وهما يؤديان نفس الغرض ... فالصورة النهاية للمعادلة اما ان تكون هكذا =RIGHT(YEAR(A1),2)&"/"&MONTH(A1) أو هكذا =MID(YEAR(A1),3,2)&"/"&MONTH(A1) أو هكذا =CONCATENATE(RIGHT(YEAR(A1),2),"/",MONTH(A1)) أو هكذا =CONCATENATE(MID(YEAR(A1),3,2),"/",MONTH(A1)) والجميع يؤدي نفس الغرض تقبل تحياتى

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

السلام عليكم ورحمة الله تفضل ملف يغلق بعد استخدامة 30 مره وتستطيع تعديل عدد مرات فتحه من الكود وعند إنتهاء عدد المرات يغلق ولايفتح إلا بكلمة مرور تستطيع تغييرها من الكود كلمة المرور KHMB12345 إن شاء الله يكون المطلوب اغلاق ملف بعد فتحه عدد من مرات حسب رغبتك وفتحه بعد ذلك برقم سري.rar

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

أستاذي شاهذ هذا الملف وحاول تطبف العملية وتفيدنا به VLOOKUP.rar

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

السلام عليكم بارك الله فيكم جميعا راجعوا الرابط التالى لزيادة الفائدة http://www.officena.net/ib/index.php?showtopic=57286

بين تاريخين hossam.rar

السلام عليكم تحية كبيرة لاخ ياسر بخصوص قبول TextBox لحروف فقط أو أرقام فقط افضل الاتي 1 لجعل التكست بوكس لاتقبل الا الارقام Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0 End Sub 2 لجعل التكست بوكس لاتقبل الا الحرف الانجليزية الصغيرة Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!a-z]" Then KeyAscii = 0 End Sub 3 لجعل التكست بوكس لاتقبل الا الحروف الانجليزية الكبيرة Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!A-Z]" Then KeyAscii = 0 End Sub 4 لجعل التكست تقبل الا الحروف الانجليزية الصغيرة والكبيرة معا Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!A-z]" Then KeyAscii = 0 End Sub 5 لجعل التكست بوكس لا تقبل الا الحروف العربية Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!أ-ي]" And ChrW(KeyAscii) <> " " Then KeyAscii = 0 End Sub اما اذا كنت تريد تفعيل المسطرة فكل ماعليك هو تلرك فراغ قبل الحرف الأول مثال Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[! A-Z]" Then KeyAscii = 0 End Sub أما اذا اردت تضمين بعض الاشكل كل ما عليك هو ادراج الشكل أو العلامة التي ستسمح بها بين الحرف الاول والمطة هذا مثال لايقبل الا الحروف الانجليزة الكبيرة والمسافة وهته الاشارات =:;/. Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[! A=:;/-Z]" Then KeyAscii = 0 End Sub تحياتي للجميع

ـم عمل البحث بواسطة دالة VLOOKUP invigilations.rar

يامرحبا باخينا bedonada هل تستخدمون تقويم ام القرى ام التقويم الهجري العربي ... هناك فروقات بين التقويمين مثلا بتاريخ اليوم 3 بناير 2015 نجد فرق يوم (وهذا ليس ثابتا)

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

هلا ادرجت ملفا للاطلاع على ما تريد

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