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

السلام عليكم ورحمة الله وبركاته أحب أن أهنيء الأخ العزيز عبد السلام أبو العوافي بمناسبة ترقيته عضو خبير ، وهو بالفعل يستحقها بجدارة ألف مبروك أخي الحبيب عبد السلام ومن تقدم إلى تقدم ، وإلى الأمام دائماً

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

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

شهادة اخرى افتخر بها .. جزاك الله خيرا استاذ محمد علي التشجيع

والله يستاهل ويستحق عن جداره الف الف مبروك والشكر موصول للاستاذ الكبير ياسر خليل تقبلوا تحياتى

مشاركة مع استاذنا ابو خليل ولكن ضع فى حسبانك قاعدة بيانات انه يجب اغلاقها اولا قبل استعمال الكود حتى لا يتم فقد بياناتها او ماشابه 'اغلاق الجهاز Public Function TurnOff() Shell "shutdown -s -t 02", vbHide End Function 'اعادة تشغيل Public Function Reboot() Shell "shutdown -r -t 02", vbHide End Function 'تسجيل الخروج Public Function LogOff() Shell "shutdown -l -t 02", vbHide End Function 'اعادة التشغيل بالقوة Public Function ForceReboot() Shell "shutdown -r -f -t 02", vbHide End Function

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

تفضل اعمل فلترة حسب اللون

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

السلام على عبدالسلام و يعطيك الغافية يا بو العوافي الف مبروك تستحقها عن جدارة

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

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

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

أخي الحبيب حسام عيسى أشم في مشاركتك وموضوعك رائحة لا أحب أن أشمها فهلا عدلت عما أنت بصدده؟!!! تقبل وافر تقديري واحترامي

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

شكرا لعله يمكن اختصار الكود بعض الشىء Me.asd2.SetFocus Me.asd2.Form.Controls!nmm.SetFocus DoCmd.GoToRecord , , acNewRec

أخي ياسر خليل و الذي نفسي بيده اني ابادلك نفس الشعور احبك الذي احببتني من اجله جزاكم الله خيرا و حفظكم و رعاكم

شكرا اخي العزيز حل ممتاز بارك الله فيك ...

جزاك الله خير استاذنا محمد

وعليكم السلام ورحمة الله وبركاته معذرة فى التاخير فى الرد اعددت فيديو سريع جدا يوضح مبدئيا طريقة عمل هذا المخطط https://youtu.be/oa09m9Fq5Tc اخى وحبيببى الاستاذ حسام تسعدنى دائما بمرورك تحياتى اليك

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

لا قم بنسخ قاعدة البيانات الخاصة بك فى هذه القاعدة وقم بتغيير الكود داخل logo1 لفتح اول فورم من قاعدتك انت

ربنا يبارك فيك

اخى الكريم جارى تنفيذ برنامج لتركيب هذا المعالج على اى قاعدة بيانات اخرى او يمكنك التعامل مع البرنامج الحالى فقط افتحه وانظر الى اكواده وقم بتصميم برنامج مثله قاعدتين فى قاعدة واحدة

=IF(AND(A2=B2;A2=C2);"TRIPLESTARTING";IF(AND(C2=D2;E2=C2);"TRIPLEMIDD";IF(AND(E2=F2;E2=G2);"TRIPLENDING";"")))

تفضل لعله المطلوب =IF(AND(A2=B2;B2=C2;C2=A2);"TRIPLESTARTING";IF(AND(C2=D2;D2=E2;E2=C2);"TRIPLEMIDD";IF(AND(E2=F2;F2=G2;G2=E2);"TRIPLENDING";""))) EXA.rar

اعتذر اخي .. نسيت ارفاق الملف Book2.rar

بارك الله فيك أخي الحبيب ياسر العربي يعجبني حلولك عندما تكون السهل الممتنع تقبل تحياتي

تفضل Book2.rar

السلام عليكم دعنا نمشي خطوة خطوة واترك وورد والاستعلامات الفرعية الاخرى الآن انظر المرفق فاذا العملية تمام اخبرني ما الخطوة التالية المطلوبة ملحوظة : سيكون العمل على هذا المثال فقط db11.rar

اخى الكريم اضف هذا المعيار فى الاستعلام حيث تريد الاستثناء Not In ("بيروت";"طرابلس";"بكفيا";"كسروان";"فتوح")

المعزرة لك يااخى fruit twig.rar

اخوتى فى هذا الصرح العلمى الكبير اعتذر لكل الاعضاء بالمنتدى عن كل شئ سئ صدر منى فى اى وقت وفى اى ظرف منذ اشتراكى فى هذا الصرح بتاريخ 26-4-2014م والى اخر مشاركة لى بالمنتدى الان بما فيهم الاخ العرب نت فلكل شئ بدايه ونهايه اسال الله تعالى لكم التوفيق والسداد وكل عام وانتم بخير بحلول رمضان المبارك واتمنى لا تنسونا من صالح دعائكم لى بالهديه فأنا احوج ما يكون لها تقبلوا جميعا تحياتى وحبى وتقديرى لكل عضو بالمنتدى منذ نشأته

الف مبروك اخي الكريم عبد السّلام أبو العوافي على الترقية المستحقة وفقك الله وايانا لما فيه الخير تقبل فائق احترامي

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

الله يحفظ ويصون الاستاذ المحترم عبد السلام ابو العوافي وانت يا استاذ باسر احسنت الاختيار

جرب التعديل التالي في الكود Sub Goal_Seek_Tax() Dim Opt_a, Opt_b, Opt_c, T As Integer, I As Integer Dim A As Single, B As Single, C As Single Application.ScreenUpdating = False Range("D10:F14").ClearContents For I = 10 To 14 Range("E" & I).Formula = "=(C" & I & "-D" & I & "*5%-F" & I & "*25%)/10%" For T = Int(Range("B" & I).Value / 2) To Range("B" & I).Value Range("D" & I).Value = T Range("G" & I).GoalSeek Goal:=1, ChangingCell:=Range("F" & I) A = Round(Range("D" & I).Value, 2) B = Round(Range("E" & I).Value, 2) C = Round(Range("F" & I).Value, 2) If A > 0 And B > 0 And C > 0 And A = Int(A) And B = Int(B) And C = Int(C) Then A = Range("D" & I).Value B = Range("E" & I).Value C = Range("F" & I).Value GoTo 10 End If Next T 10 If B < 0 Then Range("D" & I).Value = Int(Range("B" & I).Value / 4) Range("G" & I).GoalSeek Goal:=1, ChangingCell:=Range("F" & I) A = Round(Range("D" & I).Value, 2) B = Round(Range("E" & I).Value, 2) C = Round(Range("F" & I).Value, 2) End If Range("D" & I).Value = A Range("E" & I).Value = B Range("F" & I).Value = C Next I Application.ScreenUpdating = True End Sub أرجو أن يفي بالغرض إن شاء الله

بارك الله فيك أخي العزيز جلال الجمال على إحياء التراث والبحث عن الدرر الدفينة تقبل تحياتي

تم التثبيت للموضوع المشار إليه وإلغاء التثبيت لهذا الموضوع تقبل تحياتي

انسخ هذه المعادلة الى الخلية D1 واسحب نزولاً =IF(C1<>"",TEXT(TODAY(),"dd/mm/yyy"),"")

السلام عليكم اولا انت صقر وتبقى صقر اينما حللت ثانيا اتمنى اني فهمت رسالتك خطاً واننا لن نفقدك من هنا بكل الأحوال بارك الله بك وجزاك كل خير عن كل أعمالك ودمتم ذخراً

بارك الله فيكم وأطال عمركم أخي وصديقي حسام انتم ولاتزالو ذخراً ومنارة تنير طريق ودروب الباحثين عن العلم في هذا الموقع الاكثر من متميز وكل عام وأنتم والاصدقاء بألف خير

عن نفسي .. لم ارى منك الا كل ماهو طيب وكل عام وجميع اعضاء المنتدى بخير

الحمد لله اننا بهذا الصرح المحترم تحياتى لك اخى حسام عيسى تحية لكل من شارك و بنى لبنه فى هذا المنتدى حتى و لو بكلمة شكر و كل الشكر لاعضاء المنتدى على هذا البناء الشامخ و هو ملك لكل من اراد ان يتعلم حرفا تحياتى و كل عام و انتم بخير

تم رفع المرفق هنا لعلي اجد الوقت لمساعدتك او يسبقني احد الاعضاء الكرام اجازات.rar

و عليكم السلام و رحمة الله و بركاته ... للذهاب للسجل الأولمن نموذج رئيسي لنموذج فرعي Forms!asd!asd2.SetFocus Forms!asd!asd2.Form.Controls!nmm.SetFocus DoCmd.GoToRecord , , acFirst بحيث asd الرئيسي و asd2 الفرعي لإضافة سحل جديد من نموذج رئيسي لنموذج فرعي Forms!asd!asd2.SetFocus Forms!asd!asd2.Form.Controls!nmm.SetFocus DoCmd.GoToRecord , , acNewRec كرار ... فاتورة .rar

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

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

كود ملء الشاشة ، اخفاء شريط الادوات ،اخفاء شريط الصيغة DisplayFullScreen.rar