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

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

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

استاذ عبد الرحمن كما طلبت حضرتك تم تحوبله للعربى أتمنى أن أكون قد وفقت فى عملى هذا لعله ما تطلب وشكرا New-Userform-Arabic.rar نتشارك كلنا بمساعدتكم معنا . شكرا لمرور حضرتك الاستاذ / أبو أنس الحمد لله أنه نال اعجاب حضرتك ان شاء الله واحيانا هدور تانى ولو لقيت حاجه تانية ان شاء الله هرفعها للمنتدى أسعدنى وشرفنى مرورك الكريم

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

زين شاشة برنامجك بعلم دولتك واجعلة يرفرفر خفاقا" مرفق مثال بسيط flags.rar

مجموعة اكواد اعجبتنى الكود الاول : تحية منى لاساتذتى بالمنتدى الرائع Sub Elsiad() ' ' Elsiad ماكرو ' الماكرو مسجل ‎28/06/2013 بواسطة ‎Basim Magdy Range("j1").Select ActiveCell.FormulaR1C1 = "بسم الله الرحمن الرحيم" Range("j2").Select ActiveCell.FormulaR1C1 = "تحياتى لكل اساتذتى بمنتديات أوفيسنا" Range("j3").Select ActiveCell.FormulaR1C1 = "الاستاذ / عبد الله باقشير" Range("j4").Select ActiveCell.FormulaR1C1 = "الاستاذ / أحمد فضيلة" Range("j5").Select ActiveCell.FormulaR1C1 = "الاستاذ / رجب جاويش" Range("j6").Select ActiveCell.FormulaR1C1 = "الاستاذ / حماده عمر" Range("j7").Select ActiveCell.FormulaR1C1 = "الاستاذ / هانى عدلى " Range("j8").Select ActiveCell.FormulaR1C1 = "الاستاذ / جمال عبد السميع " Range("j9").Select ActiveCell.FormulaR1C1 = "الاستاذ / احمد عبد الناصر " Range("j10").Select ActiveCell.FormulaR1C1 = "الاستاذ / شوقى ربيع " Range("j11").Select ActiveCell.FormulaR1C1 = "الاستاذ / جمال دغيدى " Range("j12").Select ActiveCell.FormulaR1C1 = "الاستاذ / طارق محمود " Range("j13").Select ActiveCell.FormulaR1C1 = "الاستاذ / ضاحى الغريب " Range("j14").Select ActiveCell.FormulaR1C1 = "الاستاذ / عبد الله المجرب " Range("j15").Select ActiveCell.FormulaR1C1 = "الاستاذ / سعيد بيرم " Range("j16").Select End Sub الكود الثانى : دعاء وحصن جميل Sub Hellomsg() donkeyain: Msg = "[ حصن لوقاية الانسان من شياطين الانس والجان ] " Ans = MsgBox(Msg, vbYesNo) If Ans = vbNo Then MsgBox "هل تود الذهاب الى الدعاء" GoTo donkeyain Else MsgBox "تحصنت بذى العزة والجبروت واعتصمت برب الملكوت وتوكلت على الحى الذى لا يموت & اصرف عنا الأذي انك على كل شئ قدير " End If End Sub الكود الثالث : ترحيل بيانات Sub sRange_Move() Sheets("ورقة2").Range("A9:c12").ClearContents Sheets("ورقة2").Range("a9:c12").ClearContents Sheets("ورقة2").Range("a9:c12").Value = Sheets("ورقة1").Range("A9:c12").Value End Sub الكود الرابع : جمع رقمين او اكثر Sub AddEmUp() Sum = 50 + 170 + 30 MsgBox "النتيجة = " & Sum End Sub الكود الخامس : حفظ تلقائى للبيانات فى ملف اكسل دون الضغط على ايقونة الحفظ ويوضع الكود فى WorkBook Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End Sub ومرفق ملف اكسل به تطبيقات لهذه المجموعة من الاكواد

فقط استعمل هذه المغادلة =SUMIF($D$5:$D$20,"<0",$D$5:$D$20)

جرب هذا الملف عدم اظهار المكرر salim.rar

تكملة لموضوع جعل النص بشكل رأسى الذى بدأه أخى الحبيب / ياسر خليل قررت اضافة فكره أخرى بالاضافة الى جعل النص بشكل رأسى وهذه الفكرة إهداء إلى أخى الحبيب ياسر خليل Option Explicit Private Sub CommandButton1_Click() Dim T1 As String, TT1 As String Dim T2 As String, TT2 As String Dim N As Byte, w As Single, Temp Dim i As Integer, ii As Integer '================================== TT1 = "YASSER KHALIL" TT2 = "ياسر خليل" N = 0: i = 1: ii = 1 Do While N < Len(TT1) T1 = T1 & Mid(TT1, i, 1) & Chr(13) T2 = T2 & Mid(TT2, i, 1) & Chr(13) i = i + 1: ii = ii + 1 Label1.Caption = T1 Label3.Caption = T2 w = 0.2 Temp = Timer Do While Timer < Temp + w DoEvents Loop N = N + 1 Loop End Sub اهداء الى أخى الحبيب ياسر خليل.rar

السلام عليكم أخي الطيب الحبيب برنامج رائع جزاكم الله خيراً وجعله بموازين حسناتكم...آمين والسلام عليكم.

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

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

السلام عليكم ورحمة الله وبركاته أسعد الله صباحكم بكل خير اللهم أنت ربي لا إله إلا أنت، خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت، أعوذ بك من شر ما صنعت، أبوء لك بنعمتك علي وأبوء بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت رَبَّنَا إِنَّنَا آمَنَّا فَاغْفِرْ لَنَا ذُنُوبَنَا وَقِنَا عَذَابَ النَّارِ

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

أخي الكريم أرسلان ننتظر منك تغيير اسم الظهور للغة العربية بعد إذن أخي وحبيبي قنديل الصياد سأقوم بعمل ملفات مرفقة للأكواد الموجودة في الموضوع كل كود في ملف مرفق منفصل ليستفيد منه الجميع ..حيث لاحظت أن الملف المرفق الاستفادة منه أفضل من الأكواد بدون ملفات مرفقة الملف الأول : الكود الأول في المشاركة الأولى (تم التعديل بما يتناسب مع عدم استخدام كلمة Select التي تبطيء من عمل الكود) Sub Officena() Range("J1").FormulaR1C1 = "بسم الله الرحمن الرحيم" Range("J2").FormulaR1C1 = "تحياتى لكل أساتذتي بمنتديات أوفيسنا" Range("J3").FormulaR1C1 = "الأستاذ / عبد الله باقشير" Range("J4").FormulaR1C1 = "الأستاذ / أحمد فضيلة" Range("J5").FormulaR1C1 = "الأستاذ / رجب جاويش" Range("J6").FormulaR1C1 = "الأستاذ / حماده عمر" Range("J7").FormulaR1C1 = "الأستاذ / هاني عدلي" Range("J8").FormulaR1C1 = "الأستاذ / جمال عبد السميع " Range("J9").FormulaR1C1 = "الأستاذ / احمد عبد الناصر " Range("J10").FormulaR1C1 = "الأستاذ / شوقى ربيع" Range("J11").FormulaR1C1 = "الأستاذ / جمال دغيدي" Range("J12").FormulaR1C1 = "الأستاذ / طارق محمود" Range("J13").FormulaR1C1 = "الأستاذ / ضاحي الغريب" Range("J14").FormulaR1C1 = "الأستاذ / عبد الله المجرب" Range("J15").FormulaR1C1 = "الأستاذ / سعيد بيرم" Range("J16").FormulaR1C1 = "تلميذكم / ياسر خليل" End Sub تقبل تحياتي Officena Staff YasserKhalil.rar

مزرعه ايه بقا يا ابو البراء مانتو هتاكلوها بعد صلاة الجمعه ان شاء الله انت بتحلم بالمزرعه من امبارح هههههههههههههههههههه

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

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

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

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

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

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

السّلام عليكم و رحمة الله و بركاته برنامج رائع .. بارك الله فيك .. جزاك الله خيرًا و زادك من علمه و فضله و ما زاد من روعته هو اللّمسة الجديدة و النظرة الجديدة فائق إحتراماتي

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

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

أخى الفاضل / خالد الرشيدى عندك حق يظهر إن الزهايمر اشتغل تانى هذا السطر لم يعد له أهمية فى الكود وفعلا نسيت حذفه بعد الانتهاء من الشكل النهائى للكود ربنا يستر على الذاكره جزاك الله كل خير ودا الشكل النهائى للكود بعد حذف السطر Sub ragab() Dim x As Integer Dim T As Variant Dim S_name As Range '============================================================= For Each T In Array("عام", "خاص", "مغلق", "مفتوح") On Error Resume Next With Sheets(T) Set S_name = .Columns(2).Find(What:=[d5], LookAt:=xlWhole) x = Application.WorksheetFunction.Match(T, [c8:c11], 0) + 7 .Cells(S_name.Row, 3) = Cells(x, 4) End With Next End Sub

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

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

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

السلام عليكم تفضل أخى محمود Sub ragab() Dim x As Integer Dim T As Variant Dim Rng As Range Dim S_name As Range '============================================================= For Each T In Array("عام", "خاص", "مغلق", "مفتوح") On Error Resume Next With Sheets(T) Set Rng = .Range("B6:B" & Cells(Rows.Count, "B").End(xlUp).Row) Set S_name = .Columns(2).Find(What:=[d5], LookAt:=xlWhole) x = Application.WorksheetFunction.Match(T, [c8:c11], 0) + 7 .Cells(S_name.Row, 3) = Cells(x, 4) End With Next End Sub بيانات1.rar

أخي الحبيب أحمد إليك هدية مني ملف مرفق يمكنك ترجمة أسماء الدوال من الإنجليزية للفرنسية أو العكس ويوجد لغات أخرى .. تقبل تحياتي Translation Of Functions Officena YasserKhalil.rar

ههههههههههههه شاكلها هتاخد رقبة البطه مش جناحها

اللهم ما أصبح بي من نعمة أو بأحد من خلقك فمنك وحدك لا شريك لك فلك الحمد ولك الشكر.

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

رائع يا كريلس واصل بلا فواصل أمثله من دى عربيه واجنبيه

جزاكم الله خير احبابي في الله جزاكم الله خير احبابي في الله جزاكم الله خير احبابي في الله

بسم الله الرحمن الرحيم http://up.top4top.net/downloadf-484ol21-rar.html

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

عمل رائع اعجبت ملف

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

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

أخي الكريم محمود إن شاء الله ليلاً إذا تيسر لي وقت سأحاول العمل على ملفك .. ربنا ييسر الأمور تقبل تحياتي

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

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

اخي حسام تفحص المرفق الكهرباء.rar

تعلم أكسس 2007 | الفصل الثاني: إنشاء الجداول

كود لحذف البيانات من الخلايا الغير محمية وعدم حذف المعادلات فى الخلايا المحمية Sub ragab() On Error Resume Next ActiveSheet.Range("D2:N23").Value = vbNullString End Sub

السلام عليكم ورحمة الله وبركاته ارفق لكم برنامج ذمم ينقسم الى 48 صفحة رئيسيه للذمم الرئيسي وصفحة خاصة بذمم المتفرقات وقد استخدمت بالصفحات مبدأ الداتا لست بالاضافة الى بعض الاكواد البسيطه جدا اتمنى ان يعجبكم وادعوا لي ان يتقبل الله عمرتي في 11_4_2010 واسلام عليكم ورحمة الله وبركاته ذمم المحل.rar

بسم الله الرحمن الرحيم وبه نستعين أخى الكريم / أبو ألاء سلمت يداكم وبارك الله فيكم وجزاكم الله خيرا أرجو أن تسمح لى بهذه الملحوظة البسيطة بالنسبة للحالة الإجتماعية حسابيا ليس هناك مايسمى " متزوج +3 " هذا بالنسبة للزوج (( فهو يا إما متزوج أو متزوج+1 أو متزوج+2 مهما كان عدد الاولاد)) وحسابيا ليس هناك مايسمى " متزوجة + 1 أو 2 أو 3 " هذا بالنسبة للزوجة (( فهى متزوج فقط مهما كان عدد الاولاد )) وللزوجة الحق فى ضم العلاوة الاضافية الخاصة بالزوج فى حالة وفاته على اعتبار انها العائلة الوحيده لابنائها وخاصة إذا كانوا قصروتصبح الحالة الاجتماعية لها تحت مسمى " أرملة وتعول " تقبل تحياتى وأكرر إمتنانى وشكرى لسيادتكم لهذا البرنامج القيم وهذا من ألاء الله علينا وفقنا الله واياكم