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

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

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

استاذ عبد الرحمن كما طلبت حضرتك تم تحوبله للعربى أتمنى أن أكون قد وفقت فى عملى هذا لعله ما تطلب وشكرا 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

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

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

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

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

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

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

اهداء لأخوتي في المنتدى فورم ادخال بسيط وتم عمل شاشة دخول للبرنامج بباس ورد ويوزر يمكن تطويعة كيفما تريد عسى ان ينفع به احد الاخوة للدخول للبرنامج User Password Wael Wael@19637 Elhadi 2014 حماية الكود Wael@19637 login.rar

السلام عليكم أخي محمود هذا حل بمعادلات الصفيف تفضل ترحيل المشتريات و المبيعات1.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

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

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

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

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

أخي الكريم سامح طاهر هلا غيرت اسم الظهور للغة العربية ليعبر عن شخصكم الكريم جرب الكود التالي عله يفي بالغرض .. سيتم وضع معادلات في الخلية E1 والخلية F1 في الملفات المغلقة كما سيتم إخفاء العمودين C و D .. يمكنك التعديل بما يتناسب مع ملفك (ولا تطلب التعديل طالما أنك لم ترفق ملف من البداية .. طبعاً بهزر معاك .. ) ولكن للأسف الموضوعات التي لا يتم إرفاق ملف فيها غالباً ما يتم فيه تقديم مشاركات كثيرة حتى نصل للمطلوب وستلاحظ ذلك بنفسك ..بخلاف الموضوعات التي يكون فيها ملف مرفق Sub LoopThroughClosedWBs() Dim WBK As Workbook Dim FolderPath As String Dim FileName As String Dim Counter As Double FolderPath = ThisWorkbook.Path & "\" FileName = Dir(FolderPath & "*.xl*") Application.ScreenUpdating = False Application.Calculation = xlManual Do While FileName <> "" If FileName <> ThisWorkbook.Name Then Set WBK = Workbooks.Open(FolderPath & FileName) With WBK.Sheets("Sheet1") .Range("E1").Formula = "=SUM(A1:B1)" .Range("F1").Formula = "=A1*B1" .Columns("C:D").Hidden = True End With WBK.Close SaveChanges:=True End If FileName = Dir() Loop Application.Calculation = xlAutomatic Application.ScreenUpdating = True MsgBox "Finished ...", 64 End Sub وإليك الملف المرفق من عندي تقبل تحياتي Loop Through Closed Workbooks & Type Formulas And Hide Columns YasserKhalil.rar

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم لم توضح ما هو اصدار الاوفيس الذي تعمل عليه ولم توضح ايضاً طريقة التحزيم مبدئياً : حمل access runtime الخاص بنفس النسخة التي تعمل عليها ( جميع الاصدارات الخاصة بـ access runtime متاحة مجاناً بمايكروسوفت ) ثم استخدم برنامج Smart Install Maker لتحزيم البرنامج تحياتي

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

=Sum(Val(Nz([num];0))+Val(Nz([num2];0))+Val(Nz([num3];0))) أخي الكريم: استخدم هذا التعبير

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

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

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

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

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

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

استبدل الكود بهذا Function myfacteur(Myfact As Long, n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer) As Long '''''''''''''''''''''''''''''''''''''''''' Select Case Myfact Case 0 To 70 How_Many = Myfact * n1 Case 70.00001 To 80 How_Many = (70 * n1) + (Myfact - 70) * n2 Case 80.0001 To 200 How_Many = (70 * n1) + (10 * n2) + (Myfact - 80) * n3 Case Is > 200.001 How_Many = (70 * n1) + (10 * n2) + (120 * n3) + (Myfact - 200) * n4 End Select myfacteur = How_Many '''''''''''''''''''''''''''''''''''''''' End Function و يكون شكل المعادلة الجديدة =myfacteur(f3,5,9,15,17)

انسخ الكود من هذا الملف الى ملفك و جربه (في موديل جديد) و اكتب الدالة التالية في الخلية تحت فيمة الاستهلاك مباشرة واسحب نزولاً =myfacteur(f3,5,9,17) facteur_electrique.zip

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

كود إضافة القائمة المنسدلة إلى خلية في إكسل Sub Add_Drop_Down_Menu_Cell() With Range("C1").Validation .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _ Formula1:="=$B$1:$B$9" .IgnoreBlank = True .InCellDropdown = True End With End Sub مرفق ملف به التطبيق

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

كود لعرض معلومات عن الملف الذى تعمل عليه Sub ShowFolderSize(filespec) Dim fs, F, S Set fs = CreateObject("Scripting.FileSystemObject") Set F = fs.GetFile("E:\Bids.xls") S = "File Name :" & UCase(F.Name) & vbLf & _ "Total Size: " & FormatNumber(F.Size) & " Kbytes" & vbLf & _ "Created :" & F.DateCreated & vbLf & _ "Modifide :" & F.DateLastModified & vbLf & _ "Last Accessed: " & F.DateLastAccessed MsgBox S, 0, "File Size Info" Open "Log.log" For Append As #2 'Open file Print #2, S Close #2 'Close Exit Sub 'Exit End Sub ' Sub GetII() ' ShowFolderSize (filespec) ' End Sub

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

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