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

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

السلام عليكم ورحمة الله وبركاتة بصفتك المدير المالى او رئيس الحسابات تمت دعواتك الى اجتماع هام لعرض معدل التغير بالنمو او الانخفاض فى المصروفات او الايرادات او العملاء......الخ ولذلك فقد اعددت لك هذا المخطط باستخدام فن المخططات بالاكسيل زكاة العلم نشره لاتنسونا بصالح دعاؤكم 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

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

عوداً حميداً أخي الغالي أبو حنين افتقدت وجودك كثيراً الأيام الماضية .. لا تغيب عن إخوان يشتاقون لرؤيتك على الدوام أشهد الله أني أحبك في الله

اللهم امين واياكم بارك الله فيك تقبل تحياتى

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

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

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

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

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

الآن عند ادخال الرقم في الرئيس تظهر الانتدابات في ورقة البيانات لماذا لا تضيف الانتداب الجديد من ورقة البيانات نفسها ؟

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

أخي الكريم وعليكم السلام يرجى وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط جرب الكود التالي Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim strDate As String, DefPath As String Dim FileNameZip, FileNameXls Dim oApp As Object If ActiveWorkbook Is Nothing Then Exit Sub On Error Resume Next DefPath = ThisWorkbook.Path & "\مجلد النسخ الاحتياطية\" MkDir DefPath On Error GoTo 0 If Len(DefPath) = 0 Then MsgBox "Please Save Activeworkbook Before Zipping" & Space(12), vbInformation, "Zipping" Exit Sub End If If Right(DefPath, 1) <> "\" Then DefPath = DefPath & "\" End If strDate = Format(Now, " dd_mm_yyyy, hh.mm AMPM ") FileNameZip = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & strDate & ".zip" FileNameXls = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & strDate & ".xls" If Dir(FileNameZip) = "" And Dir(FileNameXls) = "" Then ActiveWorkbook.SaveCopyAs FileNameXls newzip (FileNameZip) Set oApp = CreateObject("Shell.Application") oApp.Namespace(FileNameZip).CopyHere FileNameXls On Error Resume Next Do Until oApp.Namespace(FileNameZip).items.Count = 1 Application.Wait (Now + TimeValue("0:00:01")) Loop On Error GoTo 0 Kill FileNameXls MsgBox "Completed Zipped : " & vbNewLine & FileNameZip, vbInformation, "Zipping" Else MsgBox "FileNameZip Or/And FileNameXls Exist", vbInformation, "Zipping" End If End Sub Private Sub newzip(sPath) If Len(Dir(sPath)) > 0 Then Kill sPath Open sPath For Output As #1 Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) Close #1 End Sub تقبل تحياتي

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

جزاك الله خيرا و تحياتى لشخصكم الكريم استاذ / ياسر خليل أبو البراء

شكرا جزيلا اخي الغالي استاذ ياسر

اخوتى فى هذا الصرح العلمى الكبير اعتذر لكل الاعضاء بالمنتدى عن كل شئ سئ صدر منى فى اى وقت وفى اى ظرف منذ اشتراكى فى هذا الصرح بتاريخ 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 أرجو أن يفي بالغرض إن شاء الله

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

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

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

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

عندما نترابط بقوة يصعب ان نفك هذا الرباط

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

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

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

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

تم رفع المرفق هنا لعلي اجد الوقت لمساعدتك او يسبقني احد الاعضاء الكرام اجازات.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

رويدك أخى الكريم الصبر الصبر طلباتك متعددة وهذا ما ينفر الأخوة من تلبية طلبك الأفضل أن تضع طلبا واحدا ومحددا ثم تطلب طلبا آخر أو تعديلا جرب الملف ده أولا لتجميع البيانات من الملفات شغل الكود واختار مجلدك ( معلمين ) ثم حدد الملفات التى ترغب فيها ثم نستكمل الباقى بإذن الله تعالى سواء معا أو مع الأخوة الزملاء ----------------------- ملحوظة للحصول على نتائج جيدة اجعل كل الملفات بصيغة xlsx بلاش من csv تحياتى لك و لا تنسى تغير اسمك الى العربية Collect data from multiple workbooks by mokhtar v1.rar