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

السلام عليكم حسب فهمي للموضوع انك تريد ان تستدعي حسب الشهر في الخلية b1 اذا كان كذلك يكفي هذا Sub saad2222() Dim cc As Worksheet, ccc As Worksheet Dim H As Long, G As Long Set ccc = Sheets("يومية") Set cc = Sheets("اليومية الامريكية") RR = ccc.Range("b" & Rows.COUNT).End(xlUp).Row Application.ScreenUpdating = False Application.Calculation = xlCalculationManual cleardata G = 6 For H = 4 To RR If ccc.Cells(H, 13).Value = cc.Range("b1").Value Then cc.Cells(G, 2) = ccc.Cells(H, 2) cc.Cells(G, 3) = ccc.Cells(H, 4) cc.Cells(G, 4) = ccc.Cells(H, 5) G = G + 1 End If Next '======================================== Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub تحياتي

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

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

السلام عليكم قمت بعمل نموذج لتسجيل حجز فندق وفيه عدة حقول ( اسم المدينة , اسم الفندق , ....... ) المطلوب جعل المستخدم بقوم بتعبئة جميع الحقول في الحجز و عدم ترك حقل فارغ قبل الانتقال لحجز جديد علما بانه قد تم عمل كود برمجي بحيث لو قام الموظف بادخال بيانات الحجز ثم عاد الى ( اسم المدينة ) مثلا و غيرها الى مدينة اخرى يتم تفريغ جميع البيانات التي ادخلها مسبقا لانه بيانات الفندق و الغرف مثلا ليست متعلقة بالمدينة التي اختارها بعد اضافت البيانات سوف تلاحظون الكود المقصود في الملف الاكسس المرفق + توظيح للمطلوب فقط تبقى اضافة خاصية عدم ترك اي حقل فارغ قبل الانتقال لحجز جديد ولكم جزيل الشكر Hotels.rar

السؤال كما هو العنوان تحيياتي

السلام عليكم أستاذى الفاضل / محمد يوسف تفضل ما تريد يمكن التنفيذ من صفحة الشيت أو صفحة الشطف كما تريد الشطف.rar

السلام عليكم تفضل أخى تجربة.rar

نعم نعم نعم ممكن حذفهم نهائيا فمثلا محافظة مثل محافظة الشرقية لايوجد بها سوي 22 طالب مكفوف وهؤلاء من الممكن عمل كشوف خاصه بهم خارج هذا الشيت لصغر العدد وسهولة احصائه اما باقي الشيتات فننتظر المذيد من الابداع وشكر واجب لك وتعبك ومجهودك

أخى الفاضل / ابو يحي سوف يتم تغيير عنوان الموضوع ليناسب محتوى الطلب ولكن برجاء الإهتمام بهذه النقطة فى المرات القادمة قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

اولا : جزاك الله كل خير وبارك الله في هذا العمل ثانيا :سوف يتم ردي في الموضوع الجديد الذي تم فتحه من قبل الاستاذ / محمد ابو البراء ثالثا : ارجو غلق هذا الموضوع لان الموضوع الجديد اصبح اساسيا وافضل لوجود النماذج الجديده بشكلها التجريبي والنهائي

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

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

الأستاذ / أبو صلاح السلام عليكم ورحمة الله وبركاته عذراً .النت فصل عند الرفع. استدعاء الاسماء حسب سن معين1.rar استدعاء الاسماء حسب سن معين2.rar

السلام عليكم و رحمة الله و بركاته الاساتذة الافاضل انا عندى فى البيت office 2013 و فى العمل office 2007 و الملف اصلا معمول ب 2007 الملف كان شغال كويس قوى فى البيت و فى العمل لحد ما قمت بوضع كود مهم جدا لعمل نسخة احتياطية لاحد اساتذة المنتدى و اعذروى للنسيان انا الرامات عندى بعافية شوية المهم : الملف على office 2007 لا يقوم بالحفظ و لا عمل نسخة احتياطية و يعطى رسالة وجود اضرار كثيرة بالملف و سوف يقوم باصلاحها مع الحفظ مرة اخرى و لكن يتعذر الحفظ و و يعلمنى بحفظه فى مكان على ال c/users/gs/appdata/romain/microsoft/office و بعد كده ملف بصيغة xlsb و مش عارف ايه المشكلة فى الكود و لا ايه علما بأنه الملف شغال كويس على office 2013 الباس الاول : اول ثلاث ارقام من الشمال × اخر ثلاث ارقام من اليمين الباس الثانى : 1310 باس الاكواد : 24229197 ملحوظة مهمة : الاكواد بالملف ليس لى اى دخل بها فهى انتقاء ما يناسبنى من ابداعات السادة الافاضل أ / ابراهيم ابو ليلة أ / الحسامى أ / رجب جاويش أ / سليم حاصبيا أ / محمد ابو البراء أ / عبد الله باقشير و الله يا جماعه كلهم اساتذة افاضل استفدت منهم كتير و اعذرونى تانى مرة لو كنت نسيت حد ارجو مساعدتى و لكم جزيل الشكر salah 2014.rar

السلام عليكم . شونكم اخواني الاعزاء . ان شاء الله الكل بخير فيه مجموعه من الاختيارات . ولكن اريد بعض الاضافات لانه انا جديد في الاكسال وحابب اتعلمها من اجل ان اصدر برامج مجانية . المطلوب : 1- عمل صلاحيات للملف . مشاهدة - حذف - اضافة 2- عمل مربع بحث من حرف واحد . انا حاولت اعمله ولكن ما عرف . المربع يكون في خانة العملاء المنبثقة . عندما اكتب احمد يظهرلي فقط احمد . وشكرا ً 1.rar

الاخ ... شاهد الرابط التالى http://www.officena.net/ib/index.php?showtopic=32063

السلام عليكم ورحمة الله وبركاته إليك الملف به المطلوب مع الشرح لعله المطلوب الترقيم.rar

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

هل جـرّبت ان تحصي كم مرة استعملت زراً معيّنا؟؟!!!! لا تقلق اكسل يحصيها لك انظر الى المرفق عدد مرات استعمال زر.rar

السلام عليكم أخى الفاضل / سليم تسلم ايديك على هذه الإبداعات ولاثراء الموضوع هذا كود آخر يعتمد على Array وبدون عمود مساعد Sub ragab() Dim i As Integer Dim LR As Integer Dim cl As Range Dim arr() As Variant '========================================= Set WF = Application.WorksheetFunction LR = Cells(Rows.Count, 1).End(xlUp).Row '========================================= For Each cl In Range("A1:A" & LR) If Not IsEmpty(cl) Then i = i + 1 ReDim Preserve arr(1 To i) arr(i) = cl End If Next Range("A:A").ClearContents Range("A1").Resize(i) = WF.Transpose(arr) Erase arr End Sub ازالة الفراغات.rar

انظر المرفق تم التعديل حسب ما فهمت Fatora4.rar

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

تم التعديل على ما اتفق عليه عدد مرات استخدام زر (معدل).rar

السلام عليكم ورحمة الله وبركاته الوالدة الكريمة // أم عبد الله جزاك الله خيرا على المعلومة.. ولاضافة شي بسيط ومهم هو لو اردنا التعديل على الجذرالمكتوب وتغيير ارقامه تضغط على alt + f9 ستظهر معادلة بها ارقام نقوم بتغيير الارقام ثم للعودة الى شكل الجذر نضغط على ctrl + f9

أتمنى من الله أن أكون وفقت في تنفيذ المطلوب لك والشرح الوافي وإليك الحل بطريقة أخرى اظهار اسم مستخدم الويندوز في مربع رسالة001.rar

أخى الكريم اقتراحكم فى غاية الروعه ولكن المشكله تنحصر فى الآتى : هناك الكثير من الدروس والشروحات والأعمال المشروحه بشكل كبير وبطريقة مبسطه ولكن هناك من لا يهتم بتحصيل المعرفة والعلم وهدفه هو محاوله حل مشكلته بأى طريقة سريعة وهناك عدد كبير من الأعضاء هدفه تحصيل العلم والمعرفة فتجده يسأل فى كل نقطه وكيف تم ذلك .... وما الى آخره .. لأن هدفه هو ايجاد اجابه لسؤاله يستطيع أن يطبقها بنفسه وحاول الكثير لفت نظر الآخرين الى روابط بها شرح أو أعمال مشروحه أو نماذج قام بها الأساتذة بالمنتدى ولكن دون جدوى وإحقاقا للحق لم تبخل إدارة المنتديات والأقسام والمشرفين والأعضاء الفعالين عن تقديم كل عون ومساعدة للجميع بل ما زالوا مستمرون فى عطائهم ومنحهم ما تحصلوا عليه من علم للجميع رغم مشاغلهم الخاصة ولى رجاء فى حاله رغبتكم بإضافة مقترح أو طلب أن يتم تدوينه فى قسم الإقترحات وهو قسم مستقل بالمنتدى وهذا رابطه http://www.officena.net/ib/index.php?showforum=159 أسأل الله عز وجل أن يوفق الجميع لما يحبه ويرضاه وتقبل منى وافر الاحترام والتقدير

أقدم لكم و انا فى أول خطواتى فى هذا الموقع العملاق برنامج لشؤن الموظفين أسأل الله العلى القدير أن تستفيدوا منه و أن يجزى مصممة كل الخير لأنى لا أتذكر من اين حصلت عليه و لكنى وجدته مفيد و يمكنكم الإستفادة منه. ____________________11.zip

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

السلام عليكم الاخ الكريم / مهيب الحمادي بارك الله فيك لفك حماية ورقة اكسيل هناك برامج لعمل ذلك وطرق اخري كثيرة ولكن اقدم لك كود يعمل علي فك حماية ورقة الاكسيل ويتم استخدام الكود التالي بالطريقة التالية : ماعليك سوى عمل التالي : 1 / - فتح الملف الذي تريد فك الحماية الخاصة بة . 2 / - الضغط على مفتاح Alt + F 11 . 3 / - بعد ذلك تظهر لك نافذة Microsoft Visual Basic من قائمة Insert نختار Module . 4 / - تظهر بعد ذلك نافذة Module ماعلينا سوى نسخ ولصق اومر البرنامج الموجودة في الملف المرفق وبعد ذلك نقوم بأغلق نافذة Microsoft Visual basic . 5 / - بعد ذلك يظهر لنا ملف الاكسل الخاص بنا نذهب الى قائمة عرض > وحدات ميكرو > عرض وحدات الميكرو . نقوم بتحديد الميكرو الخاص بنا ومن ثم عمل لة Run او يتم النقر علية مرتين . بعد نتظر فترة من الزمن تعتمد على خصائص الجهاز الخاص بك . بعد ذلك تظهر رسالة تفيد ان كلمة السر هي ************ . قم بأغلاق الرسالة ومن ثم ستلاحظ ان الورقة اصبحت غير محمية . او قم بارفاق الملف للعمل عليه .... وفي انتظار ردك .... هل نجحت الطريقة ام لا Sub PasswordBreaker() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) ActiveWorkbook.Sheets(1).Select Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub جزاك الله خيرا

للذين يتخوفون من استخدام excel2007 وللذين تعودوا على قوائم excel2003 يمكنك العمل على excel2007 باستخدام القوائم المستخدمة في excel2003 مرفق ملف يحتوي على كود لاظهار القوائم وكود اخر لاخفاء هذه القوائم 2003.rar

السلام عليكم يبدو ان هناك مشكلة حدثت للملفات في الترقية الجديدة ويارك الله فيك اخي ضاحي على مجهودك الطيب وهنا الملفات مرة اخرى الدرس الأول UserForm.rar الدرس الثاني.rar الدرس الثالث textbox.rar الدرس الرابع.rar الدرس الخامس.rar الدرس السادس.rar